% Function DoubleQuotes(str) If NOT IsNull(str) Then DoubleQuotes = Trim(Replace(str,"""",""")) Else DoubleQuotes = "" End Function Function NoTags(str) NoTags = Trim(Replace(Replace(str,">",">"),"<","<")) End Function Function SingleQuotes(str) SingleQuotes = Trim(Replace(str,"'","''")) End Function Function IsValidEmail(Email) ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function formsubmitted = (Request.Form("formsubmitted")="1") 'Response.Write formsubmitted 'Response.End if formsubmitted AND trim(request.form("name")) <> "" AND trim(request.form("city")) <> "" AND trim(request.form("state")) <> "" _ AND IsValidEmail(request.form("email")) AND trim(request.form("name1")) <> "" AND trim(request.form("dob1")) <> "" _ AND trim(request.form("vehicle1")) <> "" AND trim(request.form("vin1")) <> "" AND trim(request.form("ssn"))<>"" then EmailBody = "Name: " & request.form("name") & chr(13) _ & "Address: " & request.form("address") & chr(13) _ & "City: " & request.form("city") & chr(13) _ & "Zip: " & request.form("zip") & chr(13) _ & "State: " & request.form("state") & chr(13) & chr(13)_ & "SSN: " & request.form("ssn") & chr(13) _ & "Email: " & request.form("email") & chr(13) _ & "Phone: " & request.form("phone") & chr(13) _ & "Fax: " & request.form("fax") & chr(13) & chr(13) & chr(13) _ & "Current Insurer: " & request.form("insurer") & chr(13) _ & "Expiration Date: " & request.form("date") & chr(13) & chr(13) _ & "Vehicle " & chr(13) _ & "Vehicle #1 Info: " & request.form("vehicle1") & chr(13) _ & "Vehicle #2 Info: " & request.form("vehicle2") & chr(13) _ & "Vehicle #3 Info: " & request.form("vehicle3") & chr(13) _ & "Vehicle #4 Info: " & request.form("vehicle4") & chr(13) & chr(13) _ & "Vin Number " & chr(13) _ & "VIN #1: " & request.form("vin1") & chr(13) _ & "VIN #2: " & request.form("vin2") & chr(13) _ & "VIN #3: " & request.form("vin3") & chr(13) _ & "VIN #4: " & request.form("vin4") & chr(13) & chr(13) _ & "Driver Information " & chr(13) _ & "Driver #1" & chr(13) _ & "Name: " & request.form("name1") & chr(13) _ & "DOB: " & request.form("dob1") & chr(13) _ & "License #: " & request.form("license1") & chr(13) _ & "Drive vehicle #: " & request.form("license1") & chr(13) _ & "Record: " & chr(13) _ & Request.Form("record1") & chr(13) & chr(13) _ & "Driver #2" & chr(13) _ & "Name: " & request.form("name2") & chr(13) _ & "DOB: " & request.form("dob2") & chr(13) _ & "License #: " & request.form("license2") & chr(13) _ & "Drive vehicle #: " & request.form("license2") & chr(13) _ & "Record: " & chr(13) _ & Request.Form("record2") & chr(13) & chr(13) _ & "Driver #3" & chr(13) _ & "Name: " & request.form("name3") & chr(13) _ & "DOB: " & request.form("dob3") & chr(13) _ & "License #: " & request.form("license3") & chr(13) _ & "Drive vehicle #: " & request.form("license3") & chr(13) _ & "Record: " & chr(13) _ & Request.Form("record3") & chr(13) & chr(13) _ & "Driver #14" & chr(13) _ & "Name: " & request.form("name4") & chr(13) _ & "DOB: " & request.form("dob4") & chr(13) _ & "License #: " & request.form("license4") & chr(13) _ & "Drive vehicle #: " & request.form("license4") & chr(13) _ & "Record: " & chr(13) _ & Request.Form("record4") & chr(13) & chr(13) & chr(13) _ & "Coverages" & chr(13) _ & "Uninsured/Underinsured Motorist Coverages: " & Request.Form("coverage") & chr(13) & chr(13) _ & "Medical Payments: " & Request.Form("medical") & chr(13) & chr(13) _ & "Comprehensive/Other Than Collision" & chr(13) _ & "Vehicle #1 Deductible: " & Request.Form("deductible1") & chr(13) _ & "Vehicle #2 Deductible: " & Request.Form("deductible2") & chr(13) _ & "Vehicle #3 Deductible: " & Request.Form("deductible3") & chr(13) _ & "Vehicle #4 Deductible: " & Request.Form("deductible4") & chr(13) & chr(13) _ & "Collision Deductible" & chr(13) _ & "Vehicle #1: " & Request.Form("collision1") & chr(13) _ & "Vehicle #2: " & Request.Form("collision2") & chr(13) _ & "Vehicle #3: " & Request.Form("collision3") & chr(13) _ & "Vehicle #4: " & Request.Form("collision4") & chr(13) & chr(13) _ & "Towing Coverage: " & Request.Form("towing") & chr(13) _ & "Rental Reimbursement Coverage: " & Request.Form("rental") & chr(13) & chr(13) _ & "Respond by: " & request.form("respond") & chr(13) & chr(13) & chr(13) _ & "Comments/Questions:" & chr(13) _ & request.form("comments") & chr(13) & chr(13) _ & "Submitted: " & FormatDateTime(Date(),2) & " at " & FormatDateTime(Now(),3) & " CST" & chr(13) & chr(13) EmailBody = "The following Auto Insurance Quote was submitted through the Frontier Bank site:" & chr(13) & chr(13) & EmailBody '************USING CDONTS*********************************** set objMail = CreateObject("CDONTS.NewMail") objMail.To = "insurance@frontierbk.com;" objMail.BCC = "" objMail.From = trim(request.form("email")) objMail.Subject = "Frontier Bank - Auto Insurance Quote" objMail.Body = EmailBody objMail.Send set objMail = nothing response.redirect("/quote_thanks.asp") end if %>
|
|||||||||||||||||||||||||