%
if Request.Form.Count > 0 then
frmRecipientOne = Request.Form("frmRecipientOne")
frmRecipientTwo = Request.Form("frmRecipientTwo")
frmRecipientThree = Request.form("frmRecipientThree")
frmSubject = Request.Form("frmSubject")
frmMessageText = "Firm Name= " & Request.Form("Firm_Name") & vbcrlf & "Address= " & Request.Form("address") & vbcrlf & "Telephone= " & Request.Form("Phone_Number") & vbcrlf & "Fax Number= " & Request.form("fax_number") & vbcrlf & "Email Address= " & Request.form("email") & vbcrlf & "Website Address= " & Request.form("website") & vbcrlf & "Federal Id Number= " & Request.form("fedidnumber") & vbcrlf & "Social Security Number= " & Request.form("ssnumber") & vbcrlf & "Owners Name= " & Request.form("OwnersName") & vbcrlf & "Home Address= " & Request.form("HomeAddress") & vbcrlf & "Corporate Officers= " & Request.form("CorporateOfficers") & vbcrlf & "E&O Policy Carrier= " & Request.form("EOPolicyCarrier") & vbcrlf & "E&O Policy Number= " & Request.form("EOPolicyNumber") & vbcrlf & "E&O Policy Expiration Date =" & Request.form("EOPolicyExpDate") & vbcrlf &"Brokers License Number= " & Request.form("BrokersLicenseNum") & vbcrlf & "Company/Agency Already Affiliated with #1= " & Request.form("com_agcy_field1") & vbcrlf & "Company/Agency Already Affiliated with #2= " & Request.form("com_agcy_field2") & vbcrlf & "Company/Agency Already Affiliated with #3= " & Request.form("com_agcy_field3") & vbcrlf & "Company/Agency Already Affiliated with #4= " & Request.form("com_agcy_field4") & vbcrlf & "Trust Depository Name= " & Request.form("trustdepositoryname") & vbcrlf & "Trust Address= " & Request.form("T1") & vbcrlf & "Volume of Business= " & Request.form("volumeofbusiness") & vbcrlf & "Percentage of Volume that is Personal= " & Request.form("T2A") & vbcrlf & "Percentage of Volume that is Commercial= " & Request.form("T2B") & vbcrlf & "Agency Licenses= " & Request.form("T3") & vbcrlf & "Licensed in these states as a non-resident= " & Request.form("T4") & vbcrlf & "Disclaimer Agreed with= " & Request.form("C1")
set m=Server.CreateObject("NCSimpleEMail.EmailClass")
m.sendEmail "info@bbainsurance.com",frmRecipientOne & "; " & frmRecipientTwo & "; " & frmRecipientThree,frmSubject,replace(frmMessageText,vbcrlf,"
" & vbcrlf)
'Set objOMSession = CreateObject("MAPI.Session")
'bstrProfileInfo = "NCSVR002" & chr(10) & "infobba"
'objOMSession.Logon "","", True, True, 0, True, bstrProfileInfo
'Set objMessage = objOMSession.Outbox.Messages.Add
'Set objOneRecip = objMessage.Recipients.Add
'Set objTwoRecip = objMessage.Recipients.Add
'Set objThreeRecip = objMessage.Recipients.Add
'objOneRecip.Name = frmRecipientOne
'objOneRecip.Resolve
'objTwoRecip.Name = frmRecipientTwo
'objTwoRecip.Resolve
'objThreeRecip.Name = frmRecipientThree
'objThreeRecip.Resolve
'objMessage.Subject = frmSubject
'objMessage.Text = frmMessageText
'objMessage.Send showDialog=False
response.redirect "confirmationpage2.asp?field1=" & request.form("Firm_Name") & "&field2=" & Request.Form("Phone_Number")
end if
%>