<!-- #Include File="datastore.asp" -->
<%
varTitle="test"
varPhoto=Request.QueryString("PhotoID")
varPhoto=Trim(varPhoto)

varIPAddress= Request.ServerVariables("REMOTE_ADDR")

  
  Dim scoreRS
  Set scoreRS=Server.CreateObject("ADODB.RecordSet")
  scoreRS.Open "score", objConn, 2, 3
  scoreRS.AddNew
  scoreRS("ImageID")=varPhoto
  scoreRS("IPAddress")=varIPAddress
  scoreRS("TimeStamp")=Now()
  scoreRS("Score")=Request.Form("vps")
  scoreRS("UniqueID")=Session("UniqueID")
  scoreRS.Update
  
scoreRS.Close
Set scoreRS=Nothing

objConn.Close
Set objConn=Nothing

varNextPhoto=varPhoto + 1

If varNextPhoto < 61 Then 
	If varNextPhoto = 26 Then Response.Redirect "udsurvey.asp"
	If varNextPhoto = 41 Then Response.Redirect "ttsurvey.asp"
	Response.Redirect "vps.asp?Slide=" & varNextPhoto
Else
	Response.Redirect "tcsurvey.asp"  
End If

%>