<% Dim db, rst, DSNtemp Dim user, passwd, page, group Dim errorStr, userFound, validUser, authenticated authenticated = Session("PrivateAreaAuthenticated") If authenticated <> True Then Response.Redirect("http://www.goaction.com") ElseIf Session("PrivateAreaAdmin") <> True Then Response.Redirect(Session("PrivateAreaUserpage")) End if userFound = False validUser = False errorStr = "User " & Request.QueryString("User") & " not found in database." If Not IsNull(Request.QueryString("User")) Or Request.QueryString("User") <> "" Then user = Request.QueryString("User") userFound = True End If Set db = Server.CreateObject("ADODB.Connection") Set rst = Server.CreateObject("ADODB.Recordset") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/data/private.mdb") db.Open DSNtemp If userFound = True Then Set rst = db.Execute("SELECT UserName, UserPage, UserAdmin FROM tblUser WHERE UserName='" & user & "'") If Not rst.EOF Then page = rst("UserPage") If CBool(rst("UserAdmin")) = True Then group = "Administrator" Else group = "User" End If validUser = True End If End If %> Action Systems: Private Download Area: Admin Page: Edit User Info
Private Download Area
Admin Page
Edit User Info
<% If validUser = True Then %>
User Info
Username<%=user%>
Group<%=group%>
Page<%=page%>


User Password
Old Password
New Password
Confirm New Password
 
<% Else Response.Write errorStr End If %>