<% If Session("userlogin") = "" Then Response.Redirect("index.asp") '---CHANGE PASS--- iopp = Request.QueryString("opp") Set Conn = Server.CreateObject("Adodb.Connection") Set rslogin = Server.CreateObject("Adodb.Recordset") dtpath = server.mappath("../dataarty/property.mdb") sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=UNITEKANDUNITEKNET;Data Source=" & dtpath Conn.ConnectionString = sConnect Conn.Open rslogin.open "AdminPass", Conn, 1, 3 if rslogin.RecordCount > 0 Then rslogin.MoveFirst If iopp = 1 Then If rslogin.RecordCount > 0 Then rsLogin.MoveFirst slogin = Request.Form("newlogin") spass = Request.Form("newpass") rslogin("login") = slogin rslogin("pass") = spass rslogin.Update Response.Redirect "Admin.asp" End If End If %> Change Login
Change Password

Admin

Change Login

  Login ">
  Password ">
  New Login
  New Pass
  Confirm Pass

 

Copyright © 2003 UniTekNet. All rights reserved.

<% If iopp = 1 Then rslogin.Close Conn.Close End If %>