%
' 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("Database1_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"
fp_rs.Open "tblMain", 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(21)
Dim arFormDBFields0(21)
Dim arFormValues0(21)
arFormFields0(0) = "lead_first_name"
arFormDBFields0(0) = "lead_first_name"
arFormValues0(0) = Request("lead_first_name")
arFormFields0(1) = "lead_job_type"
arFormDBFields0(1) = "lead_job_type"
arFormValues0(1) = Request("lead_job_type")
arFormFields0(2) = "lead_service1b"
arFormDBFields0(2) = "Faucet/Fixture"
arFormValues0(2) = Request("lead_service1b")
arFormFields0(3) = "lead_service1c"
arFormDBFields0(3) = "Shower/Tub"
arFormValues0(3) = Request("lead_service1c")
arFormFields0(4) = "lead_terms"
arFormDBFields0(4) = "lead_terms"
arFormValues0(4) = Request("lead_terms")
arFormFields0(5) = "lead_service1d"
arFormDBFields0(5) = "BrokenPipe"
arFormValues0(5) = Request("lead_service1d")
arFormFields0(6) = "lead_service1e"
arFormDBFields0(6) = "Sewer/Drain"
arFormValues0(6) = Request("lead_service1e")
arFormFields0(7) = "lead_service1"
arFormDBFields0(7) = "Backflow Testing"
arFormValues0(7) = Request("lead_service1")
arFormFields0(8) = "lead_service1f"
arFormDBFields0(8) = "Sink/Disosal"
arFormValues0(8) = Request("lead_service1f")
arFormFields0(9) = "uri"
arFormDBFields0(9) = "uri"
arFormValues0(9) = Request("uri")
arFormFields0(10) = "lead_service3"
arFormDBFields0(10) = "lead_service3"
arFormValues0(10) = Request("lead_service3")
arFormFields0(11) = "lead_service1g"
arFormDBFields0(11) = "lead_service1g"
arFormValues0(11) = Request("lead_service1g")
arFormFields0(12) = "lead_last_name"
arFormDBFields0(12) = "lead_last_name"
arFormValues0(12) = Request("lead_last_name")
arFormFields0(13) = "lead_service1h"
arFormDBFields0(13) = "lead_service1h"
arFormValues0(13) = Request("lead_service1h")
arFormFields0(14) = "lead_service1i"
arFormDBFields0(14) = "lead_service1i"
arFormValues0(14) = Request("lead_service1i")
arFormFields0(15) = "site"
arFormDBFields0(15) = "site"
arFormValues0(15) = Request("site")
arFormFields0(16) = "lead_service1j"
arFormDBFields0(16) = "lead_service1j"
arFormValues0(16) = Request("lead_service1j")
arFormFields0(17) = "lead_email"
arFormDBFields0(17) = "lead_email"
arFormValues0(17) = Request("lead_email")
arFormFields0(18) = "lead_phone"
arFormDBFields0(18) = "lead_phone"
arFormValues0(18) = Request("lead_phone")
arFormFields0(19) = "lead_notes"
arFormDBFields0(19) = "lead_notes"
arFormValues0(19) = Request("lead_notes")
arFormFields0(20) = "lead_zip"
arFormDBFields0(20) = "lead_zip"
arFormValues0(20) = Request("lead_zip")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type"
End If
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name"
End If
FP_SaveFieldToDB fp_rs, Now, "Timestamp"
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name"
End If
fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"
fp_rs.Close
fp_conn.Close
FP_FormConfirmation "text/html; charset=windows-1252",_
"Form Confirmation",_
"Thank you for submitting the following information:",_
"index.html",_
"Return to the form."
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
321 Plumbing
24 HOUR 7 DAYS FLAT RATE SERVICE
CALL TODAY:
(321) 728-2888
321 Plumbing
& The Space
Coast
Flat
Rate Means:
Saturdays &
Sundays and
after 5pm
are the same
a 9am to 5pm
Monday
through
Friday.
Setup your
appointment
around your
schedule.
321
Plumbing
technicians
are on-call
24 hours a
day, 7 days
a week, 365
days a year
to repair
your home
plumbing
systems in
any
situation.
Emergency
plumbing
repairs are
our
specialty,
with quick,
thorough and
cost-effective
service —
321 Plumbing
will help
get your
life back to
normal!.
Professional
& courteous
321 Plumbing
Customer
care agents
will answer
your call
24/7 and
dispatch a
licensed
plumber,
service
technician
or plumbing
crew as
quickly as
possible!
Commercial
&
Industrial
The Space
Coast Plumbing Company
If you need professional,
licensed and insured
plumbing experts, 321
Plumbing can help you
resolve your plumbing issue
quickly and effectively.
CALL TODAY:
(321)
728-2888
State
of Florida Registration Numbers QB59626, CFC048307