<%@ LANGUAGE="VBSCRIPT" %> <% '=============================================== ' Personals System 2002 ' Š2002 vSpin.net. www.vspin.net '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. vSpin.net copyright notices must ' remain in the ASP sections of the code. '=============================================== %> <% dim xxxxm, rsheadUpdatee, rsheadUpdatee_numRows Dim rsup, field1, field4, field5, field6, field16, rsaccess, rsaccess_numRows if NOT request("activate") = "" then field1 = request("activate") set rsaccess = Server.CreateObject("ADODB.Recordset") rsaccess.ActiveConnection = MM_conn_STRING rsaccess.Source = "SELECT p_id FROM p_users WHERE p_id = " + Replace(field1, "'", "''") + "" rsaccess.CursorType = 0 rsaccess.CursorLocation = 2 rsaccess.LockType = 3 rsaccess.Open() rsaccess_numRows = 0 If rsaccess.EOF And rsaccess.BOF Then field4 = request("f") field5 = request("l") field6 = request("e") field16 = request("c") response.redirect("activate.asp?message=15&f=" & field4 & ("&l=") & field5 & ("&e=") & field6 & ("&c=") & field16) elseIf NOT rsaccess.EOF And NOT rsaccess.BOF Then Session.Abandon field2 = "y" set rsup = Server.CreateObject("ADODB.Command") rsup.ActiveConnection = MM_conn_STRING rsup.CommandText = "UPDATE p_users SET p_approve = 'y' WHERE p_id = " + Replace(field1, "'", "''") + "" rsup.CommandType = 1 rsup.CommandTimeout = 0 rsup.Prepared = true rsup.Execute() set rsup = nothing If NOT request("c") = "yes" Then response.redirect("login.asp?message=16") ElseIf request("c") = "yes" Then response.redirect("default.asp?message=17") end if end if rsaccess.Close MM_conn_STRING.Close set rsaccess = nothing set MM_conn_STRING = nothing end if %>

Account Activation