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

  
  Dim surveyRS
  Set surveyRS=Server.CreateObject("ADODB.RecordSet")
  surveyRS.Open "udsurvey", objConn, 2, 3
  surveyRS.AddNew
  surveyRS("IPAddress")=varIPAddress
  surveyRS("TimeStamp")=Now()
  surveyRS("UniqueID")=Session("UniqueID")
  surveyRS("UDQ1")=Trim(ReQuest.Form("UDQ1"))
  surveyRS("UDQ2")=Trim(Request.Form("UDQ2"))
  surveyRS("UDQ3")=Trim(Request.Form("UDQ3"))
  surveyRS("UDQ4Scale")=Trim(Request.Form("UDQ4Scale"))
  surveyRS("UDQ4Materials")=Trim(Request.Form("UDQ4Materials"))
  surveyRS("UDQ4Color")=Trim(Request.Form("UDQ4Color"))  
  surveyRS("UDQ4Style")=Trim(Request.Form("UDQ4Style"))
  surveyRS("UDQ4Landscape")=Trim(Request.Form("UDQ4Landscape"))
  surveyRS("UDQ4Oth")=Trim(Request.Form("UDQ4Oth"))
  surveyRS("UDQ4Other")=Trim(Request.Form("UDQ4Other"))
  surveyRS("UDQ4Rank1")=Trim(Request.Form("UDQ4Rank1"))
  surveyRS("UDQ4Rank2")=Trim(Request.Form("UDQ4Rank2"))
  surveyRS("UDQ4Rank3")=Trim(Request.Form("UDQ4Rank3"))
  surveyRS("UDQ4Rank4")=Trim(Request.Form("UDQ4Rank4"))
  surveyRS("UDQ5Scale")=Trim(Request.Form("UDQ5Scale"))
  surveyRS("UDQ5Materials")=Trim(Request.Form("UDQ5Materials"))
  surveyRS("UDQ5Color")=Trim(Request.Form("UDQ5Color"))  
  surveyRS("UDQ5Style")=Trim(Request.Form("UDQ5Style"))
  surveyRS("UDQ5Landscape")=Trim(Request.Form("UDQ5Landscape"))
  surveyRS("UDQ5Oth")=Trim(Request.Form("UDQ5Oth"))
  surveyRS("UDQ5Other")=Trim(Request.Form("UDQ5Other"))
  surveyRS("UDQ5Rank1")=Trim(Request.Form("UDQ5Rank1"))
  surveyRS("UDQ5Rank2")=Trim(Request.Form("UDQ5Rank2"))
  surveyRS("UDQ5Rank3")=Trim(Request.Form("UDQ5Rank3"))
  surveyRS("UDQ5Rank4")=Trim(Request.Form("UDQ5Rank4"))
  surveyRS("UDQ6")=Trim(Request.Form("UDQ6"))
  surveyRS("UDQ7")=Trim(Request.Form("UDQ7"))
  surveyRS.Update
  
surveyRS.Close
Set surveyRS=Nothing

objConn.Close
Set objConn=Nothing

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

%>