%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Err.Clear
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Cannot create connection"
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Cannot create record set"
fp_conn.Open Application("mainconnection_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"
fp_rs.Open "Mainins", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"
fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
Dim arFormFields0(97)
Dim arFormDBFields0(97)
Dim arFormValues0(97)
arFormFields0(0) = "quotenum"
arFormDBFields0(0) = "quotenum"
arFormValues0(0) = Request("quotenum")
arFormFields0(1) = "legalname"
arFormDBFields0(1) = "legalname"
arFormValues0(1) = Request("legalname")
arFormFields0(2) = "tradename"
arFormDBFields0(2) = "tradename"
arFormValues0(2) = Request("tradename")
arFormFields0(3) = "contactname"
arFormDBFields0(3) = "contactname"
arFormValues0(3) = Request("contactname")
arFormFields0(4) = "contact_title"
arFormDBFields0(4) = "contact_title"
arFormValues0(4) = Request("contact_title")
arFormFields0(5) = "streetaddress"
arFormDBFields0(5) = "streetaddress"
arFormValues0(5) = Request("streetaddress")
arFormFields0(6) = "streetaddress2"
arFormDBFields0(6) = "streetaddress2"
arFormValues0(6) = Request("streetaddress2")
arFormFields0(7) = "city"
arFormDBFields0(7) = "city"
arFormValues0(7) = Request("city")
arFormFields0(8) = "state"
arFormDBFields0(8) = "state"
arFormValues0(8) = Request("state")
arFormFields0(9) = "zip"
arFormDBFields0(9) = "zip"
arFormValues0(9) = Request("zip")
arFormFields0(10) = "mailaddress"
arFormDBFields0(10) = "mailaddress"
arFormValues0(10) = Request("mailaddress")
arFormFields0(11) = "mailaddress2"
arFormDBFields0(11) = "mailaddress2"
arFormValues0(11) = Request("mailaddress2")
arFormFields0(12) = "mailcity"
arFormDBFields0(12) = "mailcity"
arFormValues0(12) = Request("mailcity")
arFormFields0(13) = "mailstate"
arFormDBFields0(13) = "mailstate"
arFormValues0(13) = Request("mailstate")
arFormFields0(14) = "mailzip"
arFormDBFields0(14) = "mailzip"
arFormValues0(14) = Request("mailzip")
arFormFields0(15) = "telephone"
arFormDBFields0(15) = "telephone"
arFormValues0(15) = Request("telephone")
arFormFields0(16) = "phone2"
arFormDBFields0(16) = "phone2"
arFormValues0(16) = Request("phone2")
arFormFields0(17) = "fax"
arFormDBFields0(17) = "fax"
arFormValues0(17) = Request("fax")
arFormFields0(18) = "email"
arFormDBFields0(18) = "email"
arFormValues0(18) = Request("email")
arFormFields0(19) = "contactpref"
arFormDBFields0(19) = "contactpref"
arFormValues0(19) = Request("contactpref")
arFormFields0(20) = "hsinternet"
arFormDBFields0(20) = "hsinternet"
arFormValues0(20) = Request("hsinternet")
arFormFields0(21) = "keytitle"
arFormDBFields0(21) = "keytitle"
arFormValues0(21) = Request("keytitle")
arFormFields0(22) = "eeowners"
arFormDBFields0(22) = "eeowners"
arFormValues0(22) = Request("eeowners")
arFormFields0(23) = "eecovered"
arFormDBFields0(23) = "eecovered"
arFormValues0(23) = Request("eecovered")
arFormFields0(24) = "eetotal"
arFormDBFields0(24) = "eetotal"
arFormValues0(24) = Request("eetotal")
arFormFields0(25) = "ee1099"
arFormDBFields0(25) = "ee1099"
arFormValues0(25) = Request("ee1099")
arFormFields0(26) = "eeoutofstate"
arFormDBFields0(26) = "eeoutofstate"
arFormValues0(26) = Request("eeoutofstate")
arFormFields0(27) = "states"
arFormDBFields0(27) = "states"
arFormValues0(27) = Request("states")
arFormFields0(28) = "Industry"
arFormDBFields0(28) = "Industry"
arFormValues0(28) = Request("Industry")
arFormFields0(29) = "services"
arFormDBFields0(29) = "services"
arFormValues0(29) = Request("services")
arFormFields0(30) = "sic"
arFormDBFields0(30) = "sic"
arFormValues0(30) = Request("sic")
arFormFields0(31) = "yearstarted"
arFormDBFields0(31) = "yearstarted"
arFormValues0(31) = Request("yearstarted")
arFormFields0(32) = "localexec"
arFormDBFields0(32) = "localexec"
arFormValues0(32) = Request("localexec")
arFormFields0(33) = "business_Ind"
arFormDBFields0(33) = "business_Ind"
arFormValues0(33) = Request("business_Ind")
arFormFields0(34) = "curplan"
arFormDBFields0(34) = "curplan"
arFormValues0(34) = Request("curplan")
arFormFields0(35) = "curcarrier"
arFormDBFields0(35) = "curcarrier"
arFormValues0(35) = Request("curcarrier")
arFormFields0(36) = "curcontribution"
arFormDBFields0(36) = "curcontribution"
arFormValues0(36) = Request("curcontribution")
arFormFields0(37) = "curemployee"
arFormDBFields0(37) = "curemployee"
arFormValues0(37) = Request("curemployee")
arFormFields0(38) = "curspouse"
arFormDBFields0(38) = "curspouse"
arFormValues0(38) = Request("curspouse")
arFormFields0(39) = "curchild"
arFormDBFields0(39) = "curchild"
arFormValues0(39) = Request("curchild")
arFormFields0(40) = "curfamily"
arFormDBFields0(40) = "curfamily"
arFormValues0(40) = Request("curfamily")
arFormFields0(41) = "newplanppo"
arFormDBFields0(41) = "newplanppo"
arFormValues0(41) = Request("newplanppo")
arFormFields0(42) = "newplanhsa"
arFormDBFields0(42) = "newplanhsa"
arFormValues0(42) = Request("newplanhsa")
arFormFields0(43) = "newplanhmo"
arFormDBFields0(43) = "newplanhmo"
arFormValues0(43) = Request("newplanhmo")
arFormFields0(44) = "newplanpos"
arFormDBFields0(44) = "newplanpos"
arFormValues0(44) = Request("newplanpos")
arFormFields0(45) = "newplanpeo"
arFormDBFields0(45) = "newplanpeo"
arFormValues0(45) = Request("newplanpeo")
arFormFields0(46) = "newplanhdhp"
arFormDBFields0(46) = "newplanhdhp"
arFormValues0(46) = Request("newplanhdhp")
arFormFields0(47) = "newplanhra"
arFormDBFields0(47) = "newplanhra"
arFormValues0(47) = Request("newplanhra")
arFormFields0(48) = "newplanrmba"
arFormDBFields0(48) = "newplanrmba"
arFormValues0(48) = Request("newplanrmba")
arFormFields0(49) = "newplanother"
arFormDBFields0(49) = "newplanother"
arFormValues0(49) = Request("newplanother")
arFormFields0(50) = "newplandental"
arFormDBFields0(50) = "newplandental"
arFormValues0(50) = Request("newplandental")
arFormFields0(51) = "newplanvision"
arFormDBFields0(51) = "newplanvision"
arFormValues0(51) = Request("newplanvision")
arFormFields0(52) = "newplanded"
arFormDBFields0(52) = "newplanded"
arFormValues0(52) = Request("newplanded")
arFormFields0(53) = "newplanpfp"
arFormDBFields0(53) = "newplanpfp"
arFormValues0(53) = Request("newplanpfp")
arFormFields0(54) = "newplancopay"
arFormDBFields0(54) = "newplancopay"
arFormValues0(54) = Request("newplancopay")
arFormFields0(55) = "newplanr"
arFormDBFields0(55) = "newplanr"
arFormValues0(55) = Request("newplanr")
arFormFields0(56) = "requirements"
arFormDBFields0(56) = "requirements"
arFormValues0(56) = Request("requirements")
arFormFields0(57) = "needeewill"
arFormDBFields0(57) = "needeewill"
arFormValues0(57) = Request("needeewill")
arFormFields0(58) = "needelife"
arFormDBFields0(58) = "needelife"
arFormValues0(58) = Request("needelife")
arFormFields0(59) = "neededi"
arFormDBFields0(59) = "neededi"
arFormValues0(59) = Request("neededi")
arFormFields0(60) = "needeeast"
arFormDBFields0(60) = "needeeast"
arFormValues0(60) = Request("needeeast")
arFormFields0(61) = "neederetire"
arFormDBFields0(61) = "neederetire"
arFormValues0(61) = Request("neederetire")
arFormFields0(62) = "needeed"
arFormDBFields0(62) = "needeed"
arFormValues0(62) = Request("needeed")
arFormFields0(63) = "needecu"
arFormDBFields0(63) = "needecu"
arFormValues0(63) = Request("needecu")
arFormFields0(64) = "neede529"
arFormDBFields0(64) = "neede529"
arFormValues0(64) = Request("neede529")
arFormFields0(65) = "neededsp"
arFormDBFields0(65) = "neededsp"
arFormValues0(65) = Request("neededsp")
arFormFields0(66) = "needemsa"
arFormDBFields0(66) = "needemsa"
arFormValues0(66) = Request("needemsa")
arFormFields0(67) = "needefsa"
arFormDBFields0(67) = "needefsa"
arFormValues0(67) = Request("needefsa")
arFormFields0(68) = "needesi"
arFormDBFields0(68) = "needesi"
arFormValues0(68) = Request("needesi")
arFormFields0(69) = "needeitm"
arFormDBFields0(69) = "needeitm"
arFormValues0(69) = Request("needeitm")
arFormFields0(70) = "needohsi"
arFormDBFields0(70) = "needohsi"
arFormValues0(70) = Request("needohsi")
arFormFields0(71) = "needo125"
arFormDBFields0(71) = "needo125"
arFormValues0(71) = Request("needo125")
arFormFields0(72) = "needobs"
arFormDBFields0(72) = "needobs"
arFormValues0(72) = Request("needobs")
arFormFields0(73) = "needocp"
arFormDBFields0(73) = "needocp"
arFormValues0(73) = Request("needocp")
arFormFields0(74) = "needodc"
arFormDBFields0(74) = "needodc"
arFormValues0(74) = Request("needodc")
arFormFields0(75) = "needokeyd"
arFormDBFields0(75) = "needokeyd"
arFormValues0(75) = Request("needokeyd")
arFormFields0(76) = "needokeyl"
arFormDBFields0(76) = "needokeyl"
arFormValues0(76) = Request("needokeyl")
arFormFields0(77) = "needoeo"
arFormDBFields0(77) = "needoeo"
arFormValues0(77) = Request("needoeo")
arFormFields0(78) = "needopnc"
arFormDBFields0(78) = "needopnc"
arFormValues0(78) = Request("needopnc")
arFormFields0(79) = "needoepli"
arFormDBFields0(79) = "needoepli"
arFormValues0(79) = Request("needoepli")
arFormFields0(80) = "needodir"
arFormDBFields0(80) = "needodir"
arFormValues0(80) = Request("needodir")
arFormFields0(81) = "needolia"
arFormDBFields0(81) = "needolia"
arFormValues0(81) = Request("needolia")
arFormFields0(82) = "needoauto"
arFormDBFields0(82) = "needoauto"
arFormValues0(82) = Request("needoauto")
arFormFields0(83) = "needowc"
arFormDBFields0(83) = "needowc"
arFormValues0(83) = Request("needowc")
arFormFields0(84) = "needoitaxo"
arFormDBFields0(84) = "needoitaxo"
arFormValues0(84) = Request("needoitaxo")
arFormFields0(85) = "needopay"
arFormDBFields0(85) = "needopay"
arFormValues0(85) = Request("needopay")
arFormFields0(86) = "needoacct"
arFormDBFields0(86) = "needoacct"
arFormValues0(86) = Request("needoacct")
arFormFields0(87) = "Needoee"
arFormDBFields0(87) = "Needoee"
arFormValues0(87) = Request("Needoee")
arFormFields0(88) = "Needohire"
arFormDBFields0(88) = "Needohire"
arFormValues0(88) = Request("Needohire")
arFormFields0(89) = "Needoteach"
arFormDBFields0(89) = "Needoteach"
arFormValues0(89) = Request("Needoteach")
arFormFields0(90) = "Needoperf"
arFormDBFields0(90) = "Needoperf"
arFormValues0(90) = Request("Needoperf")
arFormFields0(91) = "needotaxa"
arFormDBFields0(91) = "needotaxa"
arFormValues0(91) = Request("needotaxa")
arFormFields0(92) = "needocomp"
arFormDBFields0(92) = "needocomp"
arFormValues0(92) = Request("needocomp")
arFormFields0(93) = "needocopy"
arFormDBFields0(93) = "needocopy"
arFormValues0(93) = Request("needocopy")
arFormFields0(94) = "spareone"
arFormDBFields0(94) = "spareone"
arFormValues0(94) = Request("spareone")
arFormFields0(95) = "sparetwo"
arFormDBFields0(95) = "sparetwo"
arFormValues0(95) = Request("sparetwo")
arFormFields0(96) = "quotedate"
arFormDBFields0(96) = "quotedate"
arFormValues0(96) = Request("quotedate")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"
fp_rs.Close
fp_conn.Close
FP_FormConfirmationFromArrays "text/html; charset=windows-1252",_
"Form Confirmation",_
"Thank you for submitting the following information:",_
"submission_form.asp",_
"Return to the form.",_
arFormDBFields0,_
arFormValues0
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
<%
If Session(SiteID) <> true Then
Response.Redirect("Login.asp?requester=submission_form.asp")
End If
%> <% Response.Buffer = True %>
Mainins -- New