<%= strText_Home %>::<%= strText_UserRegistration %>

<% Dim msg, uSubject, uBody setLocale server_locale If request.querystring.count = 1 then IP = Request.ServerVariables("REMOTE_ADDR") uNick = Request.Form("R1") uCity = Request.Form("R2") If seclog then euEmail = Request.Form("erhash") uEmail = CryptText(euEmail, key, True) uPass = Request.Form("rhash") euPass = Decrypt(uPass,session("Dval" & strSUnique),session("Nval" & strSUnique)) session("Dval" & strSUnique) = Empty session("Nval" & strSUnique) = Empty Else uEmail = lcase(Request.Form("R3")) euEmail = CryptText(uEmail, key, False) uPass = Request.Form("R4") Set objMD5 = New MD5 objMD5.Text = uPass euPass = objMD5.HEXMD5 End If uElist = CLng(Request.Form("R6")) terms = Request.Form("R7") sour = Request.Form("sour") opt1 = CStr(HTMLEncode(Request.Form("uO0"))) If Len(opt1) = 0 then opt1 = CStr(HTMLEncode(Request.Form("COF0"))) opt2 = CStr(HTMLEncode(Request.Form("uO1"))) If Len(opt2) = 0 then opt2 = CStr(HTMLEncode(Request.Form("COF1"))) opt3 = CStr(HTMLEncode(Request.Form("uO2"))) If Len(opt3) = 0 then opt3 = CStr(HTMLEncode(Request.Form("COF2"))) opt4 = CStr(HTMLEncode(Request.Form("uO3"))) If Len(opt4) = 0 then opt4 = CStr(HTMLEncode(Request.Form("COF3"))) opt5 = CStr(HTMLEncode(Request.Form("uO4"))) If Len(opt5) = 0 then opt5 = CStr(HTMLEncode(Request.Form("COF4"))) opt6 = CStr(HTMLEncode(Request.Form("uO5"))) If Len(opt6) = 0 then opt6 = CStr(HTMLEncode(Request.Form("COF5"))) opt7 = CStr(HTMLEncode(Request.Form("uO6"))) If Len(opt7) = 0 then opt7 = CStr(HTMLEncode(Request.Form("COF6"))) opt8 = CStr(HTMLEncode(Request.Form("uO7"))) sdd = dd(objConn) Select Case request.querystring.item(1) '### Create New User Account Case "False" If Not Len(session("sour" & strSUnique)) = 0 AND CStr(sour) = CStr(session("sour" & strSUnique)) then If Len(uNick) = 0 OR Len(euEmail) = 0 OR Len(euPass) = 0 then Response.End If terms = Empty then Response.Write msgnoterms Else set rs = objConn.Execute("SELECT " & tablUPfx & "User.ID FROM " & tablUPfx & "User;") If rs.EOF then uID = 100001 Else If mysql then set rs = objConn.Execute("SELECT " & tablUPfx & "User.userID FROM " & tablUPfx & "User ORDER BY userID DESC LIMIT 0,1") Else: set rs = objConn.Execute("SELECT TOP 1 " & tablUPfx & "User.userID FROM " & tablUPfx & "User ORDER BY userID DESC") End If uID = CLng(rs("userID")) + 1 set rs = objConn.Execute("SELECT " & tablUPfx & "User.email FROM " & tablUPfx & "User WHERE email = '" & sq(euEmail) & "';") If not rs.EOF then duplicate = true End If rs.close If not duplicate then sessID = Session.SessionID & RandomNumber eSessID = CryptText(sessID, key, False) If verify_user then uStatus = 1 msg = msgnewVerif & uEmail & msgnewVerif1 Else uStatus = 0 msg = msgnewReg & uEmail & msgnewReg1 End If If isnotfree then crd = FormatNumber(CCur(ppArray(10)), 2): Else: crd = 0 Set rs = objConn.Execute("SELECT isallowtrial,pdur,pname FROM " & tablPfx & "Pack WHERE packID = 1000;") If CBool(rs("isallowtrial")) then paypack = 1000 pdur = rs("pdur") pname = rs("pname") pexpire = ConvDate(DateAdd("d", pdur, Now)) Else paypack = 0 pexpire = ConvDate(Now) End If rs.close strNewUser = "INSERT INTO " & tablUPfx & "User(userID, email, nick, pass, city, moder, cdate, lastLogon, status, acode, ads, elist, credits, " strNewUser = strNewUser & "opt1, opt2, opt3, opt4, opt5, opt6, opt7, opt8, IP, paypack, pexpire, ishold) " strNewUser = strNewUser & "VALUES(" & uID & ", '" & sq(euEmail) & "', '" & sq(uNick) & "', '" & sq(euPass) & "', '" & sq(uCity) & "', " & 0 strNewUser = strNewUser & ", " & sdd & ConvDate(Now) & sdd & ", " & sdd & ConvDate(Now) & sdd & ", " & uStatus & ", '" & sq(eSessID) & "', 0, " & uElist & ", '" & crd strNewUser = strNewUser & "', '" & sq(opt1) & "', '" & sq(opt2) & "', '" & sq(opt3) & "', '" & sq(opt4) & "', '" & sq(opt5) strNewUser = strNewUser & "', '" & sq(opt6) & "', '" & sq(opt7) & "', '" & sq(opt8) & "', '" & IP & "', " & paypack & ", " & sdd & pexpire & sdd & ", 0);" objConn.Execute(strNewUser) If not session("admin_loggedin" & strSUnique) = Session.SessionID then Call checkIP(IP) If uStatus = "0" then session("user_logged_ID" & strSUnique) = uID session("user_logged_email" & strSUnique) = uEmail session("user_logged_nick" & strSUnique) = uNick session("user_logged_city" & strSUnique) = uCity session("user_logged_credit" & strSUnique) = crd session("user_logged_ads" & strSUnique) = 0 session("user_logged_moderator" & strSUnique) = 0 If ispack then session("user_pack_ID" & strSUnique) = paypack session("user_pack_name" & strSUnique) = pname session("user_pack_expire" & strSUnique) = pexpire End If Call getTemplate("Registration", uEmail, uPass, uNick, Empty, Empty) Else session("user_verif_ID" & strSUnique) = uID session("user_verif_pass" & strSUnique) = uPass session("user_verif_nick" & strSUnique) = uNick session("user_verif_email" & strSUnique) = uEmail session("user_verif_verID" & strSUnique) = eSessID Response.Cookies("user_verif_verID" & strUnique) = eSessID Response.Cookies("user_verif_email" & strUnique) = euEmail Call getTemplate("Verification", uEmail, uPass, uNick, sessID, Empty) End If Call sendEmail(uEmail, notify_email, uSubject, uBody) If isEvents then Call logEvent("New Account", uID, uNick, Empty, Empty, Empty) session("sour" & strSUnique) = Empty Else Response.Write msgfailExist & uEmail & msgfailExist1 End If End If Else: Response.Write msgtamper End If '### Update User Account Case "True" If Not Len(session("sour" & strSUnique)) = 0 AND CStr(sour) = CStr(session("sour" & strSUnique)) then If Len(uNick) = 0 OR Len(euEmail) = 0 OR Len(euPass) = 0 then Response.End If not CStr(session("user_logged_ID" & strSUnique)) = Empty Or not session("user_verif_verID" & strSUnique) = Empty then If not CStr(session("user_logged_ID" & strSUnique)) = Empty then tempID = CLng(session("user_logged_ID" & strSUnique)) Else tempID = CLng(session("user_verif_ID" & strSUnique)) End If set rs = objConn.Execute("SELECT " & tablUPfx & "User.userID, " & tablUPfx & "User.credits, " & tablUPfx & "User.moder, " & tablUPfx & "User.ads FROM " & tablUPfx & "User WHERE userID = " & tempID & ";") If rs.EOF then Response.Write msgfailUpdate Else crd = FormatNumber(CCur(rs(1)), 2) moder = CLng(rs(2)) ads = CLng(rs(3)) set rs = objConn.Execute("SELECT " & tablUPfx & "User.email FROM " & tablUPfx & "User WHERE email = '" & sq(euEmail) & "' AND NOT userID = " & tempID & ";") If rs.EOF Then set rs = objConn.Execute("SELECT " & tablUPfx & "User.email FROM " & tablUPfx & "User WHERE email = '" & sq(euEmail) & "' AND userID = " & tempID & " AND status = 0;") If rs.EOF And verify_user Then reverify = true sessID = Session.SessionID & RandomNumber eSessID = CryptText(sessID, key, False) If reverify then status = 1: Else status = 0 strUpdate = "UPDATE " & tablUPfx & "User SET email = '" & sq(euEmail) & "', nick='" & sq(uNick) & "', pass='" & sq(euPass) strUpdate = strUpdate & "', city='" & sq(uCity) & "', status=" & status & ", acode='" & sq(eSessID) & "', udate=" & sdd & ConvDate(Now) & sdd strUpdate = strUpdate & ", elist=" & uElist & ", opt1='" & sq(opt1) & "', opt2='" & sq(opt2) & "', opt3='" & sq(opt3) & "', opt4='" & sq(opt4) strUpdate = strUpdate & "', opt5='" & sq(opt5) & "', opt6='" & sq(opt6) & "', opt7='" & sq(opt7) & "', opt8='" & sq(opt8) & "' WHERE userID = " & tempID & ";" objConn.Execute(strUpdate) If reverify then uStatus = 1 session("user_logged_ID" & strSUnique) = Empty session("user_logged_email" & strSUnique) = Empty session("user_verif_ID" & strSUnique) = tempID session("user_verif_pass" & strSUnique) = uPass session("user_verif_nick" & strSUnique) = uNick session("user_verif_email" & strSUnique) = uEmail session("user_verif_verID" & strSUnique) = eSessID Response.Cookies("user_verif_verID" & strUnique) = eSessID Response.Cookies("user_verif_email" & strUnique) = euEmail msg = msgupdateVerif & uEmail & msgupdateVerif1 rs.close Call getTemplate("Update_Verification", uEmail, uPass, uNick, sessID, Empty) Else uStatus = 0 session("user_logged_ID" & strSUnique) = tempID session("user_logged_email" & strSUnique) = uEmail session("user_logged_nick" & strSUnique) = uNick session("user_logged_city" & strSUnique) = uCity session("user_logged_credit" & strSUnique) = crd session("user_logged_moderator" & strSUnique) = moder session("user_logged_ads" & strSUnique) = ads rs.close msg = msgupdateComplete & uEmail & msgupdateComplete1 Call getTemplate("Update_Registration", uEmail, uPass, uNick, sessID, Empty) End If Call sendEmail(uEmail, notify_email, uSubject, uBody) If isEvents then Call logEvent("Account Updated", tempID, uNick, Empty, Empty, Empty) Else Response.Write msgfailExist & uEmail & msgfailExist1 End If End If Else: Response.Write msgreject End If Else: Response.Write msgtamper End If session("sour" & strSUnique) = Empty '### Verify User Account Case "verify" verID = Trim(Request.Form("vercode")) eVerID = CryptText(verID, key, False) uEmail = Trim(Lcase(Request.Form("veremail"))) euEmail = CryptText(uEmail, key, False) If not eVerID = session("user_verif_verID" & strSUnique) then msg = msgincorrectVerif uStatus = 1 ElseIf not uEmail = session("user_verif_email" & strSUnique) then msg = msgfailedVerif uStatus = 1 Else objConn.Execute("UPDATE " & tablUPfx & "User SET status = " & 0 & " WHERE email = '" & sq(euEmail) & "';") set rs = objConn.Execute("SELECT " & tablUPfx & "User.* FROM " & tablUPfx & "User WHERE email = '" & sq(euEmail) & "';") session("user_logged_ID" & strSUnique) = rs("userID") session("user_logged_email" & strSUnique) = CryptText(rs("email"), key, True) session("user_logged_nick" & strSUnique) = rs("nick") session("user_logged_city" & strSUnique) = rs("city") session("user_logged_moderator" & strSUnique) = CBool(rs("moder")) session("user_logged_ads" & strSUnique) = rs("ads") If ispack then session("user_pack_ID" & strSUnique) = CLng(rs("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(rs("pexpire")) End If session("user_logged_credit" & strSUnique) = FormatNumber(CCur(rs("credits")), 2) If isEvents then Call logEvent("Account Activated", session("user_logged_ID" & strSUnique), session("user_logged_nick" & strSUnique), " - Activated By User (Entering verif. code)", Empty, Empty) uStatus = 0 msg = msgVerified End If '### Resend Verification Code Case "resend" If not session("user_verif_email" & strSUnique) = Empty then uPass = session("user_verif_pass" & strSUnique) uNick = session("user_verif_nick" & strSUnique) uEmail = session("user_verif_email" & strSUnique) eSessID = session("user_verif_verID" & strSUnique) sessID = CryptText(eSessID, key, True) Response.Cookies("user_verif_verID" & strUnique) = eSessID Response.Cookies("user_verif_email" & strUnique) = CryptText(uEmail, key, False) Call getTemplate("Verification", uEmail, uPass, uNick, sessID, Empty) Call sendEmail(uEmail, notify_email, uSubject, uBody) uStatus = 1 msg = msgnewVerif & uEmail & msgnewVerif1 Else Response.Write msgreject End If '### Redraw Verification Form Case "dejavu" If not session("user_verif_email" & strSUnique) = Empty then uStatus = 1 msg = msgdejavu Else Response.Write msgreject End If Case Else Response.Write msgreject End Select Else: Response.Redirect "register.asp" End If If uStatus = 1 then %>

<% Response.Write msg %>

<%= strText_EmailAddress %>:
<%= strText_VerificationCode %>:
<%= strText_ResendVerif %>

<% ElseIf uStatus = 0 then Response.Write msg End If %>