<% 'Dim strname, stremail, strtelephone, strfax, straddress, strzipcode, strbesttimetocall, _ 'strdrivername1, strdrivername2, stroperatornumber1, stroperatornumber2, strdateofbirth1, _ 'strdateofbirth2, strsex1, strsex2, strmaritalstatus1, strmaritalstatus2, strtrafficviolations1, _ 'strtrafficviolations2, stryearsofboatingexperience1, stryearsofboatingexperience2, _ 'strhomeowner, stryearofvehicle1, stryearofvehicle2, strpropulsiontype1, strpropulsiontype2, _ 'strnumberofmotors1, strnumberofmotors2, strhorsepower1, strhorsepower2, strlength1, strlength2, _ 'strmaximumspeed1, strmaximumspeed2, str1, str2, strhullmaterial1, strhullmaterial2, _ 'strhulltype1, strhulltype2, strcc1, strcc2, strwatersnavigated1, strwatersnavigated2, _ 'strtrailer1, strtrailer2, stryearoftrailer1, stryearoftrailer2, strstorage1, strstorage2, _ 'strgaragingzip1, strgaragingzip2, strtrafficyes, stroftrailer1, stroftrailer2 strname = "" stremail = "" strtelephone = "" strfax = "" straddress = "" strzipcode = "" strbesttimetocall = "" strdrivername1 = "" strdrivername2 = "" stroperatornumber1 = "" stroperatornumber2 = "" strdateofbirth1 = "" strdateofbirth2 = "" strsex1 = "" strsex2 = "" strmaritalstatus1 = "" strmaritalstatus2 = "" strtrafficviolations1 = "" strtrafficviolations2 = "" stryearsofboatingexperience1 = "" stryearsofboatingexperience2 = "" strhomeowner = "" stryearofvehicle1 = "" stryearofvehicle2 = "" strpropulsiontype1 = "" strpropulsiontype2 = "" strnumberofmotors1 = "" strnumberofmotors2 = "" strhorsepower1 = "" strhorsepower2 = "" strlength1 = "" strlength2 = "" strmaximumspeed1 = "" strmaximumspeed2 = "" str1 = "" str2 = "" strhullmaterial1 = "" strhullmaterial2 = "" strhulltype1 = "" strhulltype2 = "" strcc1 = "" strcc2 = "" strwatersnavigated1 = "" strwatersnavigated2 = "" strtrailer1 = "" strtrailer2 = "" stryearoftrailer1 = "" stryearoftrailer2 = "" stroftrailer1 = "" stroftrailer2 = "" strstorage1 = "" strstorage2 = "" strgaragingzip1 = "" strgaragingzip2 = "" strtrafficyes = "" %>
RV Application - Auto Application - Homeowners Application
Motorcycle / ATV Application - Pleasure Boat / Personal Watercraft Application

Pleasure Boat / Personal Watercraft Application

<% Sub PleasureForm %>

* Name: ">
* Email Address: ">
* Telephone: ">
Fax: ">
* Address:
* Zip Code: ">
Best time to call: ">

Driver Information
Driver Name: "> * Driver #1
"> Driver #2
Operator Number: "> * Driver #1
"> Driver #2
Date of Birth: "> * Driver #1
"> Driver #2
Sex: > Male > Female   * Driver #1
> Male > Female   Driver #2
Marital Status: * Driver #1
Driver #2
Traffic Violations: > Yes > No   * Driver #1
> Yes > No   Driver #2
If yes, please explain:
Years of Boating Experience: "> * Driver #1
"> Driver #2
* Homeowner: > Yes > No

Vehicle Information
Year/Make/Model of Vehicle: "> * Vehicle #1
"> Vehicle #2
Propulsion Type: * Vehicle #1
Vehicle #2
Number of Motors: * Vehicle #1
Vehicle #2
Horsepower: "> * Vehicle #1
"> Vehicle #2
Length: "> * Vehicle #1
"> Vehicle #2
Maximum Speed: "> * Vehicle #1
"> Vehicle #2
: "> * Vehicle #1
"> Vehicle #2
Hull Material: * Vehicle #1
Vehicle #2
Hull Type: * Vehicle #1
Vehicle #2
CC's (jet ski only): "> Vehicle #1
"> Vehicle #2
Waters Navigated: * Vehicle #1
Vehicle #2
Trailer: > Yes > No   * Vehicle #1
> Yes > No   Vehicle #2
Year/Make/Model of Trailer: "> * Vehicle #1
"> Vehicle #2
: "> * Vehicle #1
"> Vehicle #2
Storage Location: * Vehicle #1
Vehicle #2
Garaging Zip: "> * Vehicle #1
"> Vehicle #2


* - Denotes Required Field

<% End Sub %> <% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then strname = Request.Form("name") stremail = Request.Form("email") strtelephone = Request.Form("telephone") strfax = Request.Form("fax") straddress = Request.Form("address") strzipcode = Request.Form("zipcode") strbesttimetocall = Request.Form("besttimetocall") strdrivername1 = Request.Form("drivername1") strdrivername2 = Request.Form("drivername2") stroperatornumber1 = Request.Form("operatornumber1") stroperatornumber2 = Request.Form("operatornumber2") strdateofbirth1 = Request.Form("dateofbirth1") strdateofbirth2 = Request.Form("dateofbirth2") strsex1 = Request.Form("sex1") strsex2 = Request.Form("sex2") strmaritalstatus1 = Request.Form("maritalstatus1") strmaritalstatus2 = Request.Form("maritalstatus2") strtrafficviolations1 = Request.Form("trafficviolations1") strtrafficviolations2 = Request.Form("trafficviolations2") stryearsofboatingexperience1 = Request.Form("yearsofboatingexperience1") stryearsofboatingexperience2 = Request.Form("yearsofboatingexperience2") strhomeowner = Request.Form("homeowner") stryearofvehicle1 = Request.Form("yearofvehicle1") stryearofvehicle2 = Request.Form("yearofvehicle2") strpropulsiontype1 = Request.Form("propulsiontype1") strpropulsiontype2 = Request.Form("propulsiontype2") strnumberofmotors1 = Request.Form("numberofmotors1") strnumberofmotors2 = Request.Form("numberofmotors2") strhorsepower1 = Request.Form("horsepower1") strhorsepower2 = Request.Form("horsepower2") strlength1 = Request.Form("length1") strlength2 = Request.Form("length2") strmaximumspeed1 = Request.Form("maximumspeed1") strmaximumspeed2 = Request.Form("maximumspeed2") str1 = Request.Form("1") str2 = Request.Form("2") strhullmaterial1 = Request.Form("hullmaterial1") strhullmaterial2 = Request.Form("hullmaterial2") strhulltype1 = Request.Form("hulltype1") strhulltype2 = Request.Form("hulltype2") strcc1 = Request.Form("cc1") strcc2 = Request.Form("cc2") strwatersnavigated1 = Request.Form("watersnavigated1") strwatersnavigated2 = Request.Form("watersnavigated2") strtrailer1 = Request.Form("trailer1") strtrailer2 = Request.Form("trailer2") stryearoftrailer1 = Request.Form("yearoftrailer1") stryearoftrailer2 = Request.Form("yearoftrailer2") strstorage1 = Request.Form("storage1") strstorage2 = Request.Form("storage2") strgaragingzip1 = Request.Form("garagingzip1") strgaragingzip2 = Request.Form("garagingzip2") strtrafficyes = Request.Form("trafficyes") stroftrailer1 = Request.Form("oftrailer1") stroftrailer2 = Request.Form("oftrailer2") If (strname <> "") and _ (stremail <> "") and _ (strtelephone <> "") and _ (straddress <> "") and _ (strzipcode <> "") and _ (strdrivername1 <> "") and _ (stroperatornumber1 <> "") and _ (strdateofbirth1 <> "") and _ (strsex1 <> "") and _ (strmaritalstatus1 <> "") and _ (strtrafficviolations1 <> "") and _ (stryearsofboatingexperience1 <> "") and _ (strhomeowner <> "") and _ (stryearofvehicle1 <> "") and _ (strpropulsiontype1 <> "") and _ (strnumberofmotors1 <> "") and _ (strhorsepower1 <> "") and _ (strlength1 <> "") and _ (strmaximumspeed1 <> "") and _ (str1 <> "") and _ (strhullmaterial1 <> "") and _ (strhulltype1 <> "") and _ (strwatersnavigated1 <> "") and _ (strtrailer1 <> "") and _ (stryearoftrailer1 <> "") and _ (strstorage1 <> "") and _ (strgaragingzip1 <> "") Then %> <% Call PleasureForm End If Else Call PleasureForm End If %>