<% 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 %> <!--#include virtual="/library/globalpagetitle_ire.htm"--> - Insurance & Real Estate

 

Auto Insurance Quote

Fill out and submit the from below to receive a free auto quote. Final premium is subject to information verification.

Marked fields (*) are required.

Personal Information
Name:* "><%if formsubmitted AND Trim(Request.Form("name"))="" then Response.Write " Type in your name."%>
Address:* ">
City:* "><%if formsubmitted AND Trim(Request.Form("city"))="" then Response.Write " Field cannot be empty."%>
Zip: ">
State:*
SSN:* "><%if formsubmitted AND Trim(Request.Form("ssn"))=""then Response.Write " Field cannot be empty"%>
Email:* "><%if formsubmitted AND NOT IsValidEmail(Request.Form("email")) then Response.Write " Type in a valid email."%>
Phone: ">
Fax: ">
Current Carrier Information
Who is your current insurance carrier (not agency)?
Insurance carrier name: ">
What is the expiration date of your current auto policy?
Expiration Date: ">
Vehicle Description
Vehicle #1 (Year, Make & Model)* ">
Vehicle #2 (Year, Make & Model) ">
Vehicle #3(Year, Make & Model) ">
Vehicle #4 (Year, Make & Model) ">
VIN Number
VIN #1 (Vehicle Identification Number)* ">
VIN #2 (Vehicle Identification Number) ">
VIN #3 (Vehicle Identification Number) ">
VIN #4 (Vehicle Identification Number) ">
Driver Information
Driver #1
Driver's Name* "> <%if formsubmitted AND Trim(Request.Form("name1"))="" then Response.Write " Field cannot be empty"%>
Date of Birth* "> <%if formsubmitted AND Trim(Request.Form("dob1"))="" then Response.Write " Field cannot be empty"%>
Driver's License #* ">
Which vehicle do you drive?
Please enter any tickets or accidents in the last 3 years:

Driver #2
Driver's Name ">
Date of Birth ">
Driver's License # ">
Which vehicle do you drive?
Please enter any tickets or accidents in the last 3 years:

Driver #3
Driver's Name ">
Date of Birth ">
Driver's License # ">
Which vehicle do you drive?
Please enter any tickets or accidents in the last 3 years:

Driver #4
Driver's Name ">
Date of Birth ">
Driver's License # ">
Which vehicle do you drive?
Please enter any tickets or accidents in the last 3 years:
Coverages

Uninsured/Underinsured Motorist Coverages
Medical Payments

Comprehensive/Other Than Collision
Vehicle #1 Deductible
Vehicle #2 Deductible
Vehicle #3 Deductible
Vehicle #4 Deductible

Collision Deductible
Vehicle #1
Vehicle #2
Vehicle #3
Vehicle #4

Towing Coverage
Rental Reimbursement Coverage

How would you like us to respond
If you have any other questions or comments concerning your free auto insurance quote, please enter them here: