<%@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 MM_LoginAction, MM_valUsername, MM_fldUserAuthorization, MM_flag, MM_rsUser, rsSession__MMCol, rsup ' *** Validate request to log in to this site. Dim redirector MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("textfield")) If MM_valUsername <> "" Then MM_fldUserAuthorization="p_access" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_conn_STRING MM_rsUser.Source = "SELECT p_id, p_user, p_password, p_ban" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM p_users WHERE p_user='" & MM_valUsername &"' AND p_password='" & CStr(Request.Form("textfield2")) & "' AND p_approve= 'y'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user If NOT MM_rsUser("p_ban") = "" then response.redirect("restricted.asp?uz=") & MM_rsUser("p_user") & ("&id=") & MM_rsUser("p_id") end if Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If MM_rsUser.Close if (Session("MM_Username") <> "") then rsSession__MMCol = Session("MM_Username") set rsup = Server.CreateObject("ADODB.Command") rsup.ActiveConnection = MM_conn_STRING rsup.CommandText = "UPDATE p_users SET p_expdate = Now()+365 WHERE p_user = '" + Replace(rsSession__MMCol, "'", "''") + "'" rsup.CommandType = 1 rsup.CommandTimeout = 0 rsup.Prepared = true rsup.Execute() set rsup = nothing if request("SAVECOOKIES") = "yes" then Response.Buffer = True Response.Cookies("id") = request.form("textfield") Response.Cookies("id").Expires = Date() + 365 Response.Cookies("access") = request.form("textfield2") Response.Cookies("access").Expires = Date() + 365 Else Response.Buffer = True Response.Cookies("id") = "$" Response.Cookies("id").Expires = Date() + 1 Response.Cookies("access") = "$" Response.Cookies("access").Expires = Date() + 1 end if if NOT Request("accessdenied") = "" Then redirector = request("accessdenied") Response.Redirect(redirector) end if Response.Redirect("default.asp?message=6") End If MM_rsUser.Close Response.Redirect("login.asp?message=12") End If %>

 Site Access

  

kMember Login kFree Registration
">
User ID:
Password:
Remember me. Read First!
l
Forgot your Password?

   Not Registered?

   Sign up now to place your personals 

   ad, find the match your looking for or 

   just communicate with other available 

   members. It's free and it's local. So

   why not?