<!-- #Include File="datastore.asp" -->
<%
varIPAddress= Request.ServerVariables("REMOTE_ADDR")

  
  Dim surveyRS
  Set surveyRS=Server.CreateObject("ADODB.RecordSet")
  surveyRS.Open "TCSurvey", objConn, 2, 3
  surveyRS.AddNew
  surveyRS("IPAddress")=varIPAddress
  surveyRS("TimeStamp")=Now()
  surveyRS("UniqueID")=Session("UniqueID")
  surveyRS("TCQ1Residential")=Trim(Request.Form("TCQ1Residential"))
  surveyRS("TCQ1Retail")=Trim(Request.Form("TCQ1Retail"))
  surveyRS("TCQ1Service")=Trim(Request.Form("TCQ1Service"))
  surveyRS("TCQ1Office")=Trim(Request.Form("TCQ1Office"))
  surveyRS("TCQ1Oth")=Trim(Request.Form("TCQ1Oth"))
  surveyRS("TCQ1Other")=Trim(Request.Form("TCQ1Other"))
  surveyRS("TCQ2")=Trim(Request.Form("TCQ2"))
  surveyRS("TCQ3Shopping")=Trim(Request.Form("TCQ3Shopping"))
  surveyRS("TCQ3Restaurants")=Trim(Request.Form("TCQ3Restaurants"))  
  surveyRS("TCQ3Services")=Trim(Request.Form("TCQ3Services"))
  surveyRS("TCQ3Events")=Trim(Request.Form("TCQ3Events"))
  surveyRS("TCQ3Work")=Trim(Request.Form("TCQ3Work"))
  surveyRS("TCQ3Oth")=Trim(Request.Form("TCQ3Oth"))  
  surveyRS("TCQ3Other")=Trim(Request.Form("TCQ3Other"))
  surveyRS("TCQ4")=Trim(Request.Form("TCQ4"))  
  surveyRS("TCQ5")=Trim(Request.Form("TCQ5"))
  surveyRS("TCQ61Story")=Trim(Request.Form("TCQ61Story"))
  surveyRS("TCQ62Story")=Trim(Request.Form("TCQ62Story"))
  surveyRS("TCQ63Story")=Trim(Request.Form("TCQ63Story"))
  surveyRS("TCQ6More")=Trim(Request.Form("TCQ6More"))
  surveyRS.Update
  
surveyRS.Close
Set surveyRS=Nothing

objConn.Close
Set objConn=Nothing

Response.Redirect "vps.asp?Slide=End"

%>