<%
If Session("ErrFlg") Then
ErrFlg = True
ErrTxt = Session("ErrTxt")
ctitle = Session("ctitle")
cfirst = Session("cfirst")
clast = Session("clast")
caddress = Session("caddress")
ccity = Session("ccity")
cstate = Session("cstate")
czip = Session("czip")
cbustitle = Session("cbustitle")
cofficephone = Session("cofficephone")
ccellphone = Session("ccellphone")
cemail = Session("cemail")
cbusname = Session("cbusname")
cwebsite = Session("cwebsite")
clocations = Session("clocations")
cindustry = Session("cindustry")
cestablished = Session("cestablished")
cemployees = Session("cemployees")
cpremiums = Session("cpremiums")
cbussize = Session("cbussize")
cinterest = Session("cinterest")
curgent = Session("curgent")
cmethod = Session("cmethod")
cbesttime = Session("cbesttime")
Else
ErrFlg = False
ctitle = ""
cfirst = ""
clast = ""
caddress = ""
ccity = ""
cstate = ""
czip = ""
cbustitle = ""
cofficephone = ""
ccellphone = ""
cemail = ""
cbusname = ""
cwebsite = ""
clocations = False
cindustry = ""
cestablished = ""
cemployees = ""
cpremiums = True
cbussize = 1
cinterest = ""
curgent = ""
cmethod = 2
cbesttime = 4
End If
Session("ErrFlg") = False
%>
Welcome to Blue Coast Financial
      |
  |
 |
<%
Unq = Session("ExecutiveUnq")
If Unq = "" Then
'Oops... There wasn't an advisor
Unq = 1
End If
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DSN=bluecoast"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Executive WHERE Executive=" & Unq, cn
efirst = rs("EFirst")
elast = rs("ELast")
eaddress = rs("EAddress")
ecity = rs("ECity")
estate = rs("EState")
ezip = rs("EZip")
eworkphone = rs("EWorkPhone")
ecellphone = rs("ECellPhone")
eemail = rs("EEmail")
efirst2 = rs("EFirst2")
elast2 = rs("ELast2")
eaddress2 = rs("EAddress2")
ecity2 = rs("ECity2")
estate2 = rs("EState2")
ezip2 = rs("EZip2")
eworkphone2 = rs("EWorkPhone2")
ecellphone2 = rs("ECellPhone2")
eemail2 = rs("EEmail2")
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
If Unq > 1 Then %>
<% End If %>
|
|
Corporate Training Center
Phone 800-763-4070
Fax 925-887-4474
|
| |
| ©2007 Blue Coast Financial. All Rights Reserved. |
Home | company | services | contact