<%
'===================
'make sure the data all matches up
dim emailexist, error, error_msg
set tigRS = Server.CreateObject("ADODB.Recordset")
query = "SELECT id, login, pass, unlock_key " & _
"FROM beta_mappers " & _
"WHERE " & _
"unlock_key = '" & SQLsafe(Request.QueryString("k")) & "'" & _
"and " & _
"email = '" & SQLsafe(Request.QueryString("e")) & "'"
'Response.Write("Query = [" & query & "] ")
tigRS.Open query,DSN,1
if not tigRS.EOF then
emailexist = true
Response.Cookies("lvlbeta")("mapperid") = tigRS("id")
Response.Cookies("lvlbeta").Expires = DateAdd("yyyy",1,now())
else
'they ain't in the DB :[
error = true
error_msg = error_msg & "
Your email address is not in the ..::LvL Beta Mappers database or your unlock key number is incorrect - make sure the URL is the same as that in the email (it needs to be the FULL URL)
"
end if
tigRS.close
if emailexist then
'=================
'they want to subscribe!! - yayayay!
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
query = "update beta_mappers " & _
"set active = 1 " & _
"WHERE " & _
"email = '" & SQLsafe(Request.QueryString("e")) & "'" & _
"and " & _
"unlock_key = '" & SQLsafe(Request.QueryString("k")) & "'"
'Response.Write("Query = [" & query & "] ")
tigCON.Execute(query)
tigCON.close
end if
%>
..::LvL Beta Login
<%
if error then
Response.Write("There was an error processing your request.
![[ contact ]](../skinz/images<%=customcolours%>/t_contact.gif){kind=small}
