<%@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. '=============================================== %> <% if request.form("submit") = "Complete Process" then userid = request("userid") pass = request("pass") set rscheck2 = Server.CreateObject("ADODB.Recordset") rscheck2.ActiveConnection = MM_conn_STRING rscheck2.Source = "SELECT p_user FROM p_users WHERE p_user = '" + Replace(userid, "'", "''") + "' AND p_password = 'unbannedxx'" rscheck2.CursorType = 0 rscheck2.CursorLocation = 2 rscheck2.LockType = 3 rscheck2.Open() rscheck2_numRows = 0 If Not rscheck2.EOF Or Not rscheck2.BOF Then Response.Buffer = True Response.Cookies("rest") = "$" Response.Cookies("rest").Expires = Date() - 1000 Response.Cookies("id") = "$" Response.Cookies("id").Expires = Date() + 1 Response.Cookies("access") = "$" Response.Cookies("access").Expires = Date() + 1 set rsup = Server.CreateObject("ADODB.Command") rsup.ActiveConnection = MM_conn_STRING rsup.CommandText = "UPDATE p_users SET p_password = '" + Replace(pass, "'", "''") + "' WHERE p_user = '" + Replace(userid, "'", "''") + "'" rsup.CommandType = 1 rsup.CommandTimeout = 0 rsup.Prepared = true rsup.Execute() set rsup = nothing rscheck2.close MM_conn_STRING.Close set MM_conn_STRING = nothing set rscheck2 = nothing response.redirect("default.asp?message=51") end if end if userid = request("userid") set rscheck = Server.CreateObject("ADODB.Recordset") rscheck.ActiveConnection = MM_conn_STRING rscheck.Source = "SELECT p_user FROM p_users WHERE p_user = '" + Replace(userid, "'", "''") + "' AND p_password = 'unbannedxx'" rscheck.CursorType = 0 rscheck.CursorLocation = 2 rscheck.LockType = 3 rscheck.Open() rscheck_numRows = 0 If Not rscheck.EOF Or Not rscheck.BOF Then %>

Complete Unban Process

User ID: <% = rscheck("p_user") %>
Enter Password:
">

<% rscheck.close MM_conn_STRING.Close set MM_conn_STRING = nothing set rscheck = nothing %> <% end if %>