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

  
  Dim surveyRS
  Set surveyRS=Server.CreateObject("ADODB.RecordSet")
  surveyRS.Open "ttsurvey", objConn, 2, 3
  surveyRS.AddNew
  surveyRS("IPAddress")=varIPAddress
  surveyRS("TimeStamp")=Now()
  surveyRS("UniqueID")=Session("UniqueID")
  surveyRS("TTQ1")=Trim(Request.Form("TTQ1"))
  surveyRS("TTQ2a")=Trim(Request.Form("TTQ2a"))
  surveyRS("TTQ2b")=Trim(Request.Form("TTQ2b"))
  surveyRS("TTQ2c")=Trim(Request.Form("TTQ2c"))
  surveyRS("TTQ2d")=Trim(Request.Form("TTQ2d"))
  surveyRS("TTQ2e")=Trim(Request.Form("TTQ2e"))
  surveyRS("TTQ2Most1")=Trim(Request.Form("TTQ2Most1"))
  surveyRS("TTQ2Most2")=Trim(Request.Form("TTQ2Most2"))  
  surveyRS("TTQ2Most3")=Trim(Request.Form("TTQ2Most3"))
  surveyRS("TTQ2Least1")=Trim(Request.Form("TTQ2Least1"))
  surveyRS("TTQ2Least2")=Trim(Request.Form("TTQ2Least2"))
  surveyRS("TTQ2Least3")=Trim(Request.Form("TTQ2Least3"))  
  surveyRS("TTQ3")=Trim(Request.Form("TTQ3"))
  surveyRS("TTQ4")=Trim(Request.Form("TTQ4"))  
  surveyRS("TTQ5")=Trim(Request.Form("TTQ5"))
  surveyRS("TTQ6")=Trim(Request.Form("TTQ6"))
  surveyRS.Update
  
surveyRS.Close
Set surveyRS=Nothing

objConn.Close
Set objConn=Nothing

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

%>