<!-- #include file="_private/include/adovbs.inc" -->
<!-- #include file="_private/include/common.inc" -->
<!-- #include file="_private/include/datafunc.inc" -->

<%
e = request.querystring("e")
v = request.querystring("v")

strReturn = "0"
if e <> "" then
  SQL = "SELECT ID, Name, Email, isRegistered FROM Register WHERE email=" & SQLString(e) 
  set rs = createobject("ADODB.Recordset")
  rs.Open SQL, myDSN
  If Not rs.EOF Then
    strReturn = rs("Name") & "|" & rs("Email") & "|" & rs("ID") & "|" & rs("isRegistered")
    SQL = "UPDATE Register SET LastUsed=GETDATE(), RegVersion=" & SQLString(v) & " WHERE ID=" & rs("ID")
    set cn = createobject("ADODB.Connection")
    cn.Open MyDSN
    cn.Execute SQL
    set cn = nothing
  end if
  set rs = nothing
end if
response.write strReturn


%>