<% ' 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 Session.LCID = 1033 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("Order_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", 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(17) Dim arFormDBFields0(17) Dim arFormValues0(17) arFormFields0(0) = "Product_ProductName" arFormDBFields0(0) = "Product_ProductName" arFormValues0(0) = Request("Product_ProductName") arFormFields0(1) = "Time Needed" arFormDBFields0(1) = "Time_Needed" arFormValues0(1) = Request("Time Needed") arFormFields0(2) = "Order Information_LastName" arFormDBFields0(2) = "Order_Information_LastName" arFormValues0(2) = Request("Order Information_LastName") arFormFields0(3) = "Location_ProductName" arFormDBFields0(3) = "Location_ProductName" arFormValues0(3) = Request("Location_ProductName") arFormFields0(4) = "Account_Username" arFormDBFields0(4) = "Account_Username" arFormValues0(4) = Request("Account_Username") arFormFields0(5) = "Order Information_FirstName" arFormDBFields0(5) = "Order_Information_FirstName" arFormValues0(5) = Request("Order Information_FirstName") arFormFields0(6) = "Product_ProductName0" arFormDBFields0(6) = "Product_ProductName0" arFormValues0(6) = Request("Product_ProductName0") arFormFields0(7) = "Service Request_ProductName" arFormDBFields0(7) = "Service_Request_ProductName" arFormValues0(7) = Request("Service Request_ProductName") arFormFields0(8) = "Order Information_Email" arFormDBFields0(8) = "Order_Information_Email" arFormValues0(8) = Request("Order Information_Email") arFormFields0(9) = "Order Information_Organization" arFormDBFields0(9) = "Order_Information_Organization" arFormValues0(9) = Request("Order Information_Organization") arFormFields0(10) = "Date Needed" arFormDBFields0(10) = "Date_Needed" arFormValues0(10) = Request("Date Needed") arFormFields0(11) = "Order Information_WorkPhone" arFormDBFields0(11) = "Order_Information_WorkPhone" arFormValues0(11) = Request("Order Information_WorkPhone") arFormFields0(12) = "Order Information_FAX" arFormDBFields0(12) = "Order_Information_FAX" arFormValues0(12) = Request("Order Information_FAX") arFormFields0(13) = "Order Information_URL" arFormDBFields0(13) = "Order_Information_URL" arFormValues0(13) = Request("Order Information_URL") arFormFields0(14) = "Account_Password" arFormDBFields0(14) = "Account_Password" arFormValues0(14) = Request("Account_Password") arFormFields0(15) = "Account_PasswordConfirm" arFormDBFields0(15) = "Account_PasswordConfirm" arFormValues0(15) = Request("Account_PasswordConfirm") arFormFields0(16) = "Service Request_SerialNumber" arFormDBFields0(16) = "Service_Request_SerialNumber" arFormValues0(16) = Request("Service Request_SerialNumber") 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:",_ "Order.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Southland Pavement Cleaning Order
 

             

Southland Pavement Cleaning

You can Count On Us!
Home Our Staff Our Equipment Our Service Contacts Southland in Action
 
Place an Order

We are committed to being your #1 cleaning and hauling service.

You can count on:

Our  Staff— Committed Professionals do the job right

Our Equipment—Performance matched for efficiency and quality

Our Service—As promised, when promised

You can count on Southland Pavement Cleaning!

Place a Service Order

To place an order for street cleaning or other services, please fill out this form.

Please provide the following contact information:

First Name
Last Name
Company
Work Phone
FAX
E-mail
URL

Date Needed. :

-- mm/dd/yy

Time Needed

-- hh:mm:ss am/pm

Account Information

User Name
Password
Confirm Password

Service Order

Service
Description

Location

Location Name
Directions         

 

Special Instructions:

Special Instructions
 

 
 

To contact us:

 

Phone: 704-938-1512
Fax: 704-934-2797
E-mail: info@southlandpavementcleaning.com

 
 

Web Design by Landmark Solutions

Web Hosting by TruckSavvy.com