<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="userEdit,webmaster" MM_authFailedURL="/Bookings/default.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 MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_update")) = "newUform") Then If (Not MM_abortEdit) Then ' execute the update Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_trevs_STRING MM_editCmd.CommandText = "UPDATE users SET uFullname = ?, uPrefName = ?, uEmail = ?, uName = ?, uPW = ?, uAccess = ?, uPhone = ?, membNum = ?, [1stAidEnd] = ?, [1stAidType] = ?, crbTo = ?, uNotes = ? WHERE IDusers = ?" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 31, Request.Form("uFullName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("uPrefName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("uEmail")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 31, Request.Form("uName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 31, Request.Form("uPswd")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 31, Request.Form("uAccess")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("uPhone")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 32, Request.Form("membNum")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 135, 1, -1, MM_IIF(Request.Form("1stAidEnd"), Request.Form("1stAidEnd"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 32, Request.Form("1stAidType")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 135, 1, -1, MM_IIF(Request.Form("crbTo"), Request.Form("crbTo"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 255, Request.Form("uNotes")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "/Bookings/LdrManage/manageLdrs.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim editUser__MMColParam editUser__MMColParam = "1" If (Request.QueryString("IDusers") <> "") Then editUser__MMColParam = Request.QueryString("IDusers") End If %> <% Dim editUser Dim editUser_cmd Dim editUser_numRows Set editUser_cmd = Server.CreateObject ("ADODB.Command") editUser_cmd.ActiveConnection = MM_trevs_STRING editUser_cmd.CommandText = "SELECT * FROM users WHERE IDusers = ?" editUser_cmd.Prepared = true editUser_cmd.Parameters.Append editUser_cmd.CreateParameter("param1", 5, 1, -1, editUser__MMColParam) ' adDouble Set editUser = editUser_cmd.Execute editUser_numRows = 0 %> <% Dim numPermits__MMColParam numPermits__MMColParam = "1" If (Request.QueryString("IDusers") <> "") Then numPermits__MMColParam = Request.QueryString("IDusers") End If %> <% Dim numPermits Dim numPermits_cmd Dim numPermits_numRows Set numPermits_cmd = Server.CreateObject ("ADODB.Command") numPermits_cmd.ActiveConnection = MM_trevs_STRING numPermits_cmd.CommandText = "SELECT Count(*) AS permitCount FROM actLrdQual WHERE IDusers = ?" numPermits_cmd.Prepared = true numPermits_cmd.Parameters.Append numPermits_cmd.CreateParameter("param1", 5, 1, -1, numPermits__MMColParam) ' adDouble Set numPermits = numPermits_cmd.Execute numPermits_numRows = 0 %> <%'Trev's set up form field values - IDusers = User ID (Get) TB_uName = " No Value" If Not(editUser.EOF AND editUser.BOF) then TB_uName = (editUser.Fields.Item("uName").Value) TB_uPW = (editUser.Fields.Item("uPW").Value) TB_uAccess = (editUser.Fields.Item("uAccess").Value) TB_uFullname = (editUser.Fields.Item("uFullname").Value) TB_uPrefName = (editUser.Fields.Item("uPrefName").Value) TB_uEmail = (editUser.Fields.Item("uEmail").Value) TB_uPhone = (editUser.Fields.Item("uPhone").Value) TB_uNotes = (editUser.Fields.Item("uNotes").Value) TB_u1stAidEnd = (editUser.Fields.Item("1stAidEnd").Value) TB_u1stAidType = (editUser.Fields.Item("1stAidType").Value) TB_umembNum = (editUser.Fields.Item("membNum").Value) TB_ucrbTo = (editUser.Fields.Item("crbTo").Value) end If %> Rhydd Covert Edit User / Leader


Rhydd Activity Tracking System
Edit Activity Leader / User

 

<%permitCount=(numPermits.Fields.Item("permitCount").Value)%>
Full name:
first + last
Display Name:
Name to display on system
email address:
for confirmations
User Name:
Simple Login Name
Password:
6 to 12 characters i.e. 1234kp
Access code:
<%If TB_uAccess <> "webmaster" then%> <%Else%> Webmaster <%End IF%>
Access for whole RATS system
Telephone:
Normal contact number
Member Num:
 
Scout Assoc' membership No.
First Aid expires:
Activity leaders only dd/mm/yy
First Aid Type:
 
Full, Basic (1stResp'), None
CRB expires:
 
dd/mm/yy
Notes:
Youth Body Membership etc.
 No of Permits
<%=permitCount%>
   CANCEL
" /> " /> " />
<%If (numPermits.Fields.Item("permitCount").Value) = 0 then%>

">Delete User / Leader
<%else%> Note: Users / Leaders cannot be delete with Permits
to delete them you must first delete all their permits.

<%end if%>

Activity Permits: Once a user has been created then that user can have activity permits assigned to them.
This will enable the user to be assigned to booked activities that require permit holding activity leaders.
Note: First aid & CRB expiry is recoded on the Users contact information as it applies across all acivites.

Access Codes - Dictates what user can do on whole RATS system.
Blocked / View Only : will only allow people to see some things.
Act Leader : Activity Leaders can view the ACTIVITY bookings and
volunteer for them - if permit page allows they can edit those bookings.
Edit Bookings : This is for ALL bookings inc' Visits, Sites, Equipment.
Manager : All the above plus creating / editing other users access rights.

 

 

 

 

<% editUser.Close() Set editUser = Nothing %> <% numPermits.Close() Set numPermits = Nothing %> <% Function USDate(x) If Not IsDate(x) Then Exit Function USDate = Month(x) & "/" & Day(x) & "/" & Year(x) End Function %> <% Function dateShort(x) If Not IsDate(x) Then Exit Function dateShort="" dateShort = Day(x) & "/" dateShort=dateShort & Month(x) & "/" dateShort=dateShort & Right(Year(x),2) End Function %>