Quote - Import and buy Cars, We export cars

<%' 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("quote_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(18) Dim arFormDBFields0(18) Dim arFormValues0(18) arFormFields0(0) = "Telephone" arFormDBFields0(0) = "Telephone" arFormValues0(0) = Request("Telephone") arFormFields0(1) = "Budget" arFormDBFields0(1) = "Budget" arFormValues0(1) = Request("Budget") arFormFields0(2) = "Options" arFormDBFields0(2) = "Options" arFormValues0(2) = Request("Options") arFormFields0(3) = "Quantity" arFormDBFields0(3) = "Quantity" arFormValues0(3) = Request("Quantity") arFormFields0(4) = "Title" arFormDBFields0(4) = "Title" arFormValues0(4) = Request("Title") arFormFields0(5) = "Gas" arFormDBFields0(5) = "Gas" arFormValues0(5) = Request("Gas") arFormFields0(6) = "Model" arFormDBFields0(6) = "Model" arFormValues0(6) = Request("Model") arFormFields0(7) = "Brand" arFormDBFields0(7) = "Brand" arFormValues0(7) = Request("Brand") arFormFields0(8) = "Price" arFormDBFields0(8) = "Price" arFormValues0(8) = Request("Price") arFormFields0(9) = "Company" arFormDBFields0(9) = "Company" arFormValues0(9) = Request("Company") arFormFields0(10) = "Shipping" arFormDBFields0(10) = "Shipping" arFormValues0(10) = Request("Shipping") arFormFields0(11) = "When" arFormDBFields0(11) = "When" arFormValues0(11) = Request("When") arFormFields0(12) = "Email" arFormDBFields0(12) = "Email" arFormValues0(12) = Request("Email") arFormFields0(13) = "Name" arFormDBFields0(13) = "Name" arFormValues0(13) = Request("Name") arFormFields0(14) = "Country" arFormDBFields0(14) = "Country" arFormValues0(14) = Request("Country") arFormFields0(15) = "Website" arFormDBFields0(15) = "Website" arFormValues0(15) = Request("Website") arFormFields0(16) = "Color" arFormDBFields0(16) = "Color" arFormValues0(16) = Request("Color") arFormFields0(17) = "Comments" arFormDBFields0(17) = "Comments" arFormValues0(17) = Request("Comments") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" 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 Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "Thank you.htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Quote - Import and buy Cars, We export cars

Welcome to the Quote page!

For Used Luxury Cars, New Cars, Limousines

Back

Used Luxury Cars, New Cars, and 4x4

Limousines

LHD only (Driver on left side)

Please tell us in details what you need us to quote you on.
For Used Cars, please specify the Year.
We will keep all these informations confidential.

Please fill out every line of this quote and then click on "Submit".
Serious inquiries only please!

What you need:

Brand Name
Exact Model (Important) + Year
Color
Options?
We only sell cars on gas (Except Hummer+BMW+VW)
Quantity
Price you paid on any previous order (If any)?
What is your budget?
Shipping destination (Country)?
When do you need your order?

YOUR CONTACT INFORMATION:

Name and First Name
Title
Company Name
Country
Telephone (+ country code)
E-mail
Website (important if you have one)

Any additional Comments?

THANK YOU FOR THE OPPORTUNITY TO SERVE YOU.
WE WILL PROVIDE YOU WITH A QUOTE, PROMPTLY.
_{PLEASE CLICK ON "SUBMIT"}

What you need:

YOUR CONTACT INFORMATION:

Any additional Comments?

Copyright © 2002 Global Autos Solutions A Division of GEBC

Copyright © 2002 Global Autos Solutions
A Division of GEBC