%
if Request.Form.Count > 0 then
frmRecipientOne = Request.Form("frmRecipientOne")
frmRecipientTwo = Request.Form("frmRecipientTwo")
frmRecipientThree = Request.form("frmRecipientThree")
frmRecipientFour = Request.form("frmRecipientFour")
frmSubject = Request.Form("frmSubject")
frmMessageText = "Broker Name= " & Request.Form("Broker_Name") & vbcrlf & "Todays Date= " & Request.Form("Todays_Date") & vbcrlf & "Broker Contact Name= " & Request.Form("Broker_Contact") & vbcrlf & "Broker Contact Telephone= " & Request.Form("BrokerPhone_Number") & vbcrlf & "Broker Contact Fax = " & Request.Form("BrokerFax_Number") & vbcrlf & "Broker Contact Email= " & Request.form("Brokeremail") & vbcrlf & "Proposed Effective Date= " & Request.form("Proposed_Effective_Date") & vbcrlf & "Named Insured= " & Request.form("Named_Insured") & vbcrlf & "Insured Address= " & Request.form("Insured_Address") & vbcrlf & "Insured City= " & Request.form("Insured_City") & vbcrlf & "Insured State= " & Request.form("Insured_State") & vbcrlf & "Insured Zip Code= " & Request.form("Insured_Zipcode") & vbcrlf & "Insured Social Security Number #1= " & Request.form("Insured_SS") & vbcrlf & "Insured Social Security Number #2= " & Request.form("Insured_SS2") & vbcrlf & "Policy Form= " & Request.form("Policy_Form") & vbcrlf & "Dwelling Amount= " & Request.form("Dwelling_Amount") & vbcrlf &"Dwelling is= " & Request.form("Dwelling") & vbcrlf & "Liability Limit= " & Request.form("Liability") & vbcrlf & "Medical Payments= " & Request.form("Medical_Payments") & vbcrlf & "All Perils Deductible= " & Request.form("AllPerils_Deductible") & vbcrlf & "Wind/Hail Deductible= " & Request.form("WindHail_Deductible") & vbcrlf & "Hurricane Deductible= " & Request.form("Hurricane_Deductible") & vbcrlf & "Replacement Cost Dwelling= " & Request.form("replacementdwg") & vbcrlf & "Replacement Cost Contents= " & Request.form("replacementcont") & vbcrlf & "Off Premises Theft Exclusion= " & Request.form("offpremisestheft") & vbcrlf & "Construction= " & Request.form("Construction") & vbcrlf & "Year Built= " & Request.form("Year_built") & vbcrlf & "Number of Families= " & Request.form("Families") & vbcrlf & "Purchase Date= " & Request.form("Purchase_Date") & vbcrlf & "Protection Class= " & Request.form("ProtectionClass") & vbcrlf & "Heat Type= " & Request.form("HeatType") & vbcrlf & "Oil Tank Location= " & Request.form("Oil_Tank") & vbcrlf & "Protection Device Credit= " & Request.form("ProtectionDevice") & vbcrlf & "Pool= " & Request.form("Pool") & vbcrlf & "Dog Breed= " & Request.form("Dog_Breed") & vbcrlf & "Claims History= " & Request.form("Claim_History") & vbcrlf & "Additional Endorsements= " & Request.form("additional_endorsements") & vbcrlf & "Agreed to Disclaimer, Regarding Signed Application= " & Request.form("Acceptance")
set m=Server.CreateObject("NCSimpleEMail.EmailClass")
m.sendEmail "info@bbainsurance.com",frmRecipientOne & "; " & frmRecipientTwo & "; " & frmRecipientThree & " ; " & frmRecipientFour,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
'Set objFourRecip = objMessage.Recipients.Add
'objOneRecip.Name = frmRecipientOne
'objOneRecip.Resolve
'objTwoRecip.Name = frmRecipientTwo
'objTwoRecip.Resolve
'objThreeRecip.Name = frmRecipientThree
'objThreeRecip.Resolve
'objFourRecip.Name = frmRecipientFour
'objFourRecip.Resolve
'objMessage.Subject = frmSubject
'objMessage.Text = frmMessageText
'objMessage.Send showDialog=False
response.redirect "confirmationpage5.asp?field1=" & request.form("Broker_Contact") & "&field2=" & Request.Form("BrokerPhone_Number")& "&field3=" & Request.Form("Brokeremail")& "&field4=" & Request.Form("Broker_Name")& "&field5=" & Request.Form("Named_insured")
end if
%>