<% ' 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("how_are_we_doing_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(23) Dim arFormDBFields0(23) Dim arFormValues0(23) arFormFields0(0) = "Appt" arFormDBFields0(0) = "Appt" arFormValues0(0) = Request("Appt") arFormFields0(1) = "Appt3" arFormDBFields0(1) = "Appt3" arFormValues0(1) = Request("Appt3") arFormFields0(2) = "Referral" arFormDBFields0(2) = "Referral" arFormValues0(2) = Request("Referral") arFormFields0(3) = "service2" arFormDBFields0(3) = "service2" arFormValues0(3) = Request("service2") arFormFields0(4) = "service3" arFormDBFields0(4) = "service3" arFormValues0(4) = Request("service3") arFormFields0(5) = "Inrpove" arFormDBFields0(5) = "Inrpove" arFormValues0(5) = Request("Inrpove") arFormFields0(6) = "service4" arFormDBFields0(6) = "service4" arFormValues0(6) = Request("service4") arFormFields0(7) = "service5" arFormDBFields0(7) = "service5" arFormValues0(7) = Request("service5") arFormFields0(8) = "Occurred" arFormDBFields0(8) = "Occurred" arFormValues0(8) = Request("Occurred") arFormFields0(9) = "Arrived" arFormDBFields0(9) = "Arrived" arFormValues0(9) = Request("Arrived") arFormFields0(10) = "Arrived2" arFormDBFields0(10) = "Arrived2" arFormValues0(10) = Request("Arrived2") arFormFields0(11) = "Arrived3" arFormDBFields0(11) = "Arrived3" arFormValues0(11) = Request("Arrived3") arFormFields0(12) = "Occurred2" arFormDBFields0(12) = "Occurred2" arFormValues0(12) = Request("Occurred2") arFormFields0(13) = "Occurred3" arFormDBFields0(13) = "Occurred3" arFormValues0(13) = Request("Occurred3") arFormFields0(14) = "Email" arFormDBFields0(14) = "Email" arFormValues0(14) = Request("Email") arFormFields0(15) = "FirstName" arFormDBFields0(15) = "FirstName" arFormValues0(15) = Request("FirstName") arFormFields0(16) = "How" arFormDBFields0(16) = "How" arFormValues0(16) = Request("How") arFormFields0(17) = "Favorite_news_paper" arFormDBFields0(17) = "Favorite_news_paper" arFormValues0(17) = Request("Favorite_news_paper") arFormFields0(18) = "service" arFormDBFields0(18) = "service" arFormValues0(18) = Request("service") arFormFields0(19) = "LastName" arFormDBFields0(19) = "LastName" arFormValues0(19) = Request("LastName") arFormFields0(20) = "Favorite_Radio_TV" arFormDBFields0(20) = "Favorite_Radio_TV" arFormValues0(20) = Request("Favorite_Radio_TV") arFormFields0(21) = "Appt2" arFormDBFields0(21) = "Appt2" arFormValues0(21) = Request("Appt2") arFormFields0(22) = "Referral2" arFormDBFields0(22) = "Referral2" arFormValues0(22) = Request("Referral2") 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_for_your_comments.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> How Are We Doing

How Are We Doing

We need your feedback! Like anyone else, we like to know when we have

done the job well. However - we also realize that in order to improve we must

know when we are not doing the job to your expectations.

All entries will be included in a quarterly drawing - $50.00 in service or repair.
w
When I phoned for an appointment: Excellent Very Good Good Fair Poor N/A

I am very pleased with the way I was treated

The person I spoke to was very helpful

Ease of obtaining an appointment was
When I arrived: Excellent Very Good Good Fair Poor N/A
I was quickly acknowledged
They understood my specific vehicle problems
The waiting area was clean and comfortable
The service I received: Excellent Very Good Good Fair Poor N/A
I felt confident in the diagnosing and estimating process
The service advisor answered all my questions
The vehicle was ready when promised
The work that was performed met my expectations
The cashier was friendly & helpful
The following occurred: Excellent Very Good Good Fair Poor N/A
The work order was filled out and ready when I left the vehicle for work
I was notified when my vehicle was ready
The invoice was completed and waiting when I arrived
Below, please indicate any area you feel we need to improve on.
How did you hear about us? Please check all that apply..
Newspaper Mailer/Coupon Phone Book Radio Cable TV
Favorite news paper
Favorite Radio/TV Station(s)
Referral - please tell us who referred you so that we may thank them.
Your name:   (First, Last)
E-mail Address:

Top