<% Dim db, rst, rst2, DSNtemp Dim authenticated, count, group authenticated = Session("PrivateAreaAuthenticated") If authenticated <> True Then Response.Redirect("http://www.goaction.com") ElseIf Session("PrivateAreaAdmin") <> True Then Response.Redirect(Session("PrivateAreaUserpage")) 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 %> Action Systems: Private Download Area: Admin Page

Private Download Area - Admin Page



Current Users

<% count = 0 Set rst = db.Execute("SELECT UserID,UserName,UserPage,UserAdmin FROM tblUser ORDER BY UserID") Do While Not rst.EOF If count Mod 2 = 0 Then Response.Write "" Else Response.Write "" End If If rst("UserID") = 1 Then Response.Write "" Else Response.Write _ "" End If Response.Write "" Response.Write "" If CBool(rst("UserAdmin")) = True Then group = "Administrator" Else group = "User" End If Response.Write "" %> <% Response.Write "" rst.MoveNext count = count + 1 Loop %>
Name Page Group Info
 
" & rst("UserName") & "" & rst("UserPage") & "" & group & " ')">Edit User Info


Current Pages

<% count = 0 Set rst = db.Execute("SELECT * FROM tblUser WHERE UserID <> 1 ORDER BY UserID") Do While Not rst.EOF If count Mod 2 = 0 Then Response.Write "" Else Response.Write "" End If Response.Write "" Response.Write "" Response.Write "" %> <% Response.Write "" rst.MoveNext count = count + 1 Loop %>
User Page Files Info
" & rst("UserName") & "" & rst("UserPage") & "" Set rst2 = db.Execute("SELECT * FROM qryUserFiles WHERE UserID=" & rst("UserID")) Do While Not rst2.EOF Response.Write "" & rst2("FileName") & "
" rst2.MoveNext Loop rst2.Close Set rst2 = Nothing Response.Write "
')">Edit Page Info
<% rst.Close db.Close Set rst = Nothing Set db = Nothing %>