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

<%
  Dim openhouseRS
  Set openhouseRS=Server.CreateObject("ADODB.RecordSet")
  openhouseRS.Open "OpenHouse", objConn, 2, 3
  openhouseRS.AddNew
  openhouseRS("Q1")=Request.Form("Q1")
  openhouseRS("Q2")=Request.Form("Q2")
  openhouseRS("Q3")=Request.Form("Q3")
  openhouseRS("Q4")=Request.Form("Q4")
  openhouseRS("Q5")=Request.Form("Q5")
  openhouseRS("Q6")=Request.Form("Q6")
  openhouseRS("Q7")=Request.Form("Q7")
  openhouseRS("IPAddress")=varIPAddress
  openhouseRS("TimeStamp")=Now()
  openhouseRS.Update
  
openhouseRS.Close
Set openhouseRS=Nothing

objConn.Close
Set objConn=Nothing

Response.Redirect "openhousecomplete.asp"

%>