<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="userEdit,webmaster" MM_authFailedURL="/Bookings/Secure/sorryAccess.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Dim usersPermits__MMColParam usersPermits__MMColParam = "0" If (Request.QueryString("IDusers") <> "") Then usersPermits__MMColParam = Request.QueryString("IDusers") End If %> <% Dim usersPermits Dim usersPermits_cmd Dim usersPermits_numRows Set usersPermits_cmd = Server.CreateObject ("ADODB.Command") usersPermits_cmd.ActiveConnection = MM_trevs_STRING usersPermits_cmd.CommandText = "SELECT * FROM permits WHERE IDusers = ?" usersPermits_cmd.Prepared = true usersPermits_cmd.Parameters.Append usersPermits_cmd.CreateParameter("param1", 5, 1, -1, usersPermits__MMColParam) ' adDouble Set usersPermits = usersPermits_cmd.Execute usersPermits_numRows = 0 %> <% Dim users__MMColParam users__MMColParam = "0" If (Request.QueryString("IDusers") <> "") Then users__MMColParam = Request.QueryString("IDusers") End If %> <% Dim users Dim users_cmd Dim users_numRows Set users_cmd = Server.CreateObject ("ADODB.Command") users_cmd.ActiveConnection = MM_trevs_STRING users_cmd.CommandText = "SELECT * FROM users WHERE IDusers = ?" users_cmd.Prepared = true users_cmd.Parameters.Append users_cmd.CreateParameter("param1", 5, 1, -1, users__MMColParam) ' adDouble Set users = users_cmd.Execute users_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 usersPermits_numRows = usersPermits_numRows + Repeat1__numRows %> Rhydd Covert New / Edit Leader


Rhydd Activity Tracking System
Manage a Leaders Permits

Activity Permissions record for: <%=(users.Fields.Item("uFullname").Value)%> (<%=(users.Fields.Item("uPrefName").Value)%>)

<% While ((Repeat1__numRows <> 0) AND (NOT usersPermits.EOF)) %> <%' Trev's set variables for use in table uActivity = "-" If (usersPermits.Fields.Item("Units.Uname").Value) <> "" then uActivity = (usersPermits.Fields.Item("Units.Uname").Value) ldrAccess = "-" If (usersPermits.Fields.Item("ldrAccess").Value) <> "" then ldrAccess = (usersPermits.Fields.Item("ldrAccess").Value) uqualStart = "-" If (usersPermits.Fields.Item("qualStart").Value) <> "" then uqualStart = (usersPermits.Fields.Item("qualStart").Value) uqualEnd = "-" If (usersPermits.Fields.Item("qualEnd").Value) <> "" then uqualEnd = (usersPermits.Fields.Item("qualEnd").Value) uqualDetails = "-" If (usersPermits.Fields.Item("qualDetail").Value) <> "" then uqualDetails = (usersPermits.Fields.Item("qualDetail").Value) uqualRestrict = "-" If (usersPermits.Fields.Item("qualRestrict").Value) <> ""then uqualRestrict = (usersPermits.Fields.Item("qualRestrict").Value) qualID = "-" If (usersPermits.Fields.Item("qualID").Value) <> "" then qualID = (usersPermits.Fields.Item("qualID").Value) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 usersPermits.MoveNext() Wend %>
Edit
Activity
Level
From
To
Details
Restrictions
<%=uActivity%>
 <%=ldrAccess%>
<%=uqualStart%>
<%=uqualEnd%>
<%=uqualDetails%>
<%=uqualRestrict%>

">Add new Permit      CANCEL      <%If usersPermits.EOF AND usersPermits.BOF then ' No permits so can delete user%> ">Delete User

<%else%> - - - - - -

To Delete a user you must first Delete all Activity Permissions for that user above.

<%End If%>
<% usersPermits.Close() Set usersPermits = Nothing %> <% users.Close() Set users = Nothing %>