<%@ language="VBScript"%> <% response.buffer=true %> Members <% If not session("the_user")="admin" Then Response.Write "
" if request.querystring("user") = "false" then response.write "You are not authorised." end if if request.querystring("password") = "false" then response.write "Your password is incorrect." end if response.write "
" If Request.Form("Login") <> "" Then Dim LoginID, Password, Cust LoginID = Request.Form("Login") Password = Request.Form("Pass") 'dim rs, con set con=server.createobject("adodb.connection") 'con.provider="microsoft.jet.oledb.4.0" 'con.open(server.mappath("login.mdb")) con.open "imacpak_login-83" , "" , "" set rs=server.createobject("adodb.recordset") rs.open "Select * from login where User like'" & LoginID & "'", con if rs.eof then response.redirect "admin.asp?user=false" else if rs("Password") = Password then Session("the_user") ="admin" Session.TimeOut=1 response.redirect "admin.asp" else response.redirect "admin.asp?password=false" end if end if Rs.Close Con.Close Set Rs=Nothing Set Con=Nothing End IF %>




<% If Request.QueryString("pass") = "changed" Then Response.Write "Password changed" End If %>
    IMAC Admin Sign In      
User ID:
Password:
 
<% End If %> <% If session("the_user")="admin" Then ' ************* Log Out ************** If Request.QueryString("flag") = "lo" Then Session.Abandon Response.Redirect "admin.asp" End If ' ************* Loged Out ************ If Request.QueryString("data") = "false" Then Response.Write "
Sorry! No member found
" End If If Not Request.QueryString("ad") = "" Then Response.Write "
New record " & "" & Request.QueryString("ad") & "" & " added
" End If If Request.QueryString("Dup") = "True" Then Response.Write "
Record " & "" & Request.QueryString("Rec") & "" & " already present
" End If If Request.QueryString("Data") = "False" Then Response.Write "
No record found for category " & "" & Request.QueryString("Co_cat") & "" & "
" End If If Request.QueryString("EditFor") <> "" Then Response.Write "
Record edited for " & "" & Request.QueryString("EditFor") & "" & "
" End If If Request.QueryString("Dele") = "True" Then Response.Write "
Record deleted
" End If %>

 

                Members Area

                Upload Documents

                Change Password

                Log Out

<% ' ************* Change Password Form ************** If Request.QueryString("flag") = "cp" Then If Request.QueryString("pro") = "false" Then Response.Write "
Error! Invalid old password
" End If %>
    IMAC change password      
Old Password:
New Password:
 
Important Note! While changing the password your will be automatically logged out in order to confirm your new password you needs to be sign in again with new password.
<% End If ' ************* Password change queries starts ************** If Request.Form("oldpass") <> "" Then Dim OldPassword, NewPassword OldPassword = Request.Form("oldpass") NewPassword = Request.Form("newpass") 'dim rs, con set con=server.createobject("adodb.connection") 'con.provider="microsoft.jet.oledb.4.0" 'con.open(server.mappath("db/members.mdb")) oConn.open "imacpak_login-83" , "" , "" set rs=server.createobject("adodb.recordset") rs.open "Select * from login where Password like'" & OldPassword & "'", con,3,3,adcmdtable if rs.eof then response.redirect "admin.asp?flag=cp&pro=false" else Rs("Password") = NewPassword Rs.Update Session.Abandon Response.Redirect "Admin.asp?pass=changed" end if Rs.Close Con.Close Set Rs=Nothing Set Con=Nothing End IF End If ' ************* Password change queries ends ************** %>