<%' 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("new_page_11_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) = "S13" arFormDBFields0(0) = "S13" arFormValues0(0) = Request("S13") arFormFields0(1) = "S1" arFormDBFields0(1) = "S1" arFormValues0(1) = Request("S1") arFormFields0(2) = "S14" arFormDBFields0(2) = "S14" arFormValues0(2) = Request("S14") arFormFields0(3) = "S2" arFormDBFields0(3) = "S2" arFormValues0(3) = Request("S2") arFormFields0(4) = "R1" arFormDBFields0(4) = "R1" arFormValues0(4) = Request("R1") arFormFields0(5) = "S15" arFormDBFields0(5) = "S15" arFormValues0(5) = Request("S15") arFormFields0(6) = "S3" arFormDBFields0(6) = "S3" arFormValues0(6) = Request("S3") arFormFields0(7) = "S16" arFormDBFields0(7) = "S16" arFormValues0(7) = Request("S16") arFormFields0(8) = "S4" arFormDBFields0(8) = "S4" arFormValues0(8) = Request("S4") arFormFields0(9) = "S17" arFormDBFields0(9) = "S17" arFormValues0(9) = Request("S17") arFormFields0(10) = "S5" arFormDBFields0(10) = "S5" arFormValues0(10) = Request("S5") arFormFields0(11) = "S6" arFormDBFields0(11) = "S6" arFormValues0(11) = Request("S6") arFormFields0(12) = "S7" arFormDBFields0(12) = "S7" arFormValues0(12) = Request("S7") arFormFields0(13) = "S8" arFormDBFields0(13) = "S8" arFormValues0(13) = Request("S8") arFormFields0(14) = "S9" arFormDBFields0(14) = "S9" arFormValues0(14) = Request("S9") arFormFields0(15) = "S10" arFormDBFields0(15) = "S10" arFormValues0(15) = Request("S10") arFormFields0(16) = "S11" arFormDBFields0(16) = "S11" arFormValues0(16) = Request("S11") arFormFields0(17) = "S12" arFormDBFields0(17) = "S12" arFormValues0(17) = Request("S12") 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:",_ "Restaurant%20Survey%20Questionaire%202.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Dining and Entertainment  Please select any dining venues you would like to evaluate
 

 
 

Dining and Entertainment
Please select any dining venues you would like to evaluate:

 

Location:
Shop Name:
Day of Shop
Shop Start Time: hour min  
Completed Time: hour min  
Shopper Name:

For each item shown, please tell us how well you were satisfied.

If something does not apply to your experience, please check "Not Applicable".

 

 Telephone Reservations
Date and time you called and made your reservations?

Date:

Time:

 hour min    

Comments:

Was the phone answered in 3 rings or less? If 'no' please note how many rings it took.
  Yes No # of Rings      
       

Comments:

Wait time to be seated?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

Attentiveness of server?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

Server's knowledge of restaurant menu?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

Restaurant menu variety?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

Quality of restaurant food?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

Presentation of restaurant food?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

Flavor of restaurant food?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

Restaurant food size?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

Please describe the problem with the portion size?
  Portions to big Portions to small
 

Comments:

Quality of restaurant beverages?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

Attractive and enjoyable atmosphere in the restaurant?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

Cleanliness of restaurant?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

Value for price paid at the restaurant?
  Very Satisfied Somewhat Satisfied Neither Somewhat Dissatisfied Very Dissatisfied Not Applicable
 

Comments:

How likely is it you will recommend the restaurant to others?
  Very Likely Possibly Not Likely
 

Comments:

What one thing could we do to improve your experience in this restaurant?

Comments: