<%
qid = CStr(Request("id"))
id = CryptText(qid, key, False)
set rsver = objConn.Execute("SELECT * FROM " & tablUPfx & "User WHERE acode = '" & id & "' AND status = 1;")
If rsver.EOF then
Response.Write "
" & strText_AlreadyVerified & "
"
Else
session("user_logged_ID" & strSUnique) = rsver("userID")
session("user_logged_email" & strSUnique) = CryptText(rsver("email"), key, True)
session("user_logged_nick" & strSUnique) = rsver("nick")
session("user_logged_city" & strSUnique) = rsver("city")
session("user_logged_moderator" & strSUnique) = CBool(rsver("moder"))
session("user_logged_ads" & strSUnique) = rsver("ads")
If ispack then
session("user_pack_ID" & strSUnique) = CLng(rsver("paypack"))
If session("user_pack_ID" & strSUnique) > 0 then
Set rspack = objConn.Execute("SELECT pname FROM " & tablPfx & "Pack WHERE packID = " & session("user_pack_ID" & strSUnique) & ";")
If rspack.EOF then
session("user_pack_ID" & strSUnique) = 0
Else
session("user_pack_name" & strSUnique) = rspack(0)
End If
rspack.close
End If
session("user_pack_expire" & strSUnique) = CDate(rsver("pexpire"))
End If
session("user_logged_credit" & strSUnique) = FormatNumber(CCur(rsver("credits")), 2)
If isEvents then Call logEvent("Account Activated", session("user_logged_ID" & strSUnique), session("user_logged_nick" & strSUnique), " - Activated By User (Quick Activation)", Empty, Empty)
objConn.Execute("UPDATE " & tablUPfx & "User SET status = 0;")
Response.Write "
" & strText_VerificationCompleted & "
"
End If
rsver.close
%>