<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 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 %> <% ' *** Delete Record: construct a sql delete statement and execute it If (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) <> "") Then If (Not MM_abortEdit) Then ' execute the delete Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_trevs_STRING MM_editCmd.CommandText = "DELETE FROM actLrdQual WHERE qualID = ?" MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, Request.Form("MM_recordId")) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "/Bookings/LdrManage/managePermits.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 %> <% ' *** 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 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 permit__MMColParam permit__MMColParam = "0" If (Request.QueryString("qualID") <> "") Then permit__MMColParam = Request.QueryString("qualID") End If %> <% Dim permit Dim permit_cmd Dim permit_numRows Set permit_cmd = Server.CreateObject ("ADODB.Command") permit_cmd.ActiveConnection = MM_trevs_STRING permit_cmd.CommandText = "SELECT * FROM permits WHERE qualID = ?" permit_cmd.Prepared = true permit_cmd.Parameters.Append permit_cmd.CreateParameter("param1", 5, 1, -1, permit__MMColParam) ' adDouble Set permit = permit_cmd.Execute permit_numRows = 0 %> Rhydd Covert Delete Leader


Rhydd Activity Tracking System
Delete User / Leader

WARNING - WARNING - WARNING
Deleting a RATS Permit is not reversable.

If permit has been or will be renewed then it is prefered to
update the existing permit with the new permits details.
To do so click CANCEL and then Edit Permit.
Activity authority can only be reinstated by
creating a new Permit.

You are about to delete the following permit

<%=(permit.Fields.Item("Units.Uname").Value)%> (<%=dateMed(permit.Fields.Item("qualStart").Value)%> to <%=dateMed(permit.Fields.Item("qualEnd").Value)%>)
for
<%=(permit.Fields.Item("users.Uname").Value)%> (<%=(permit.Fields.Item("uPrefName").Value)%>)

     CANCEL

" />

 

 

 

 

 

 

<% users.Close() Set users = Nothing %> <% permit.Close() Set permit = Nothing %> <% 'Returns the date formatted to Medium length ie "27 Jun 57" function dateMed(dt) If IsDate(dt) then dateMed=Day(dt) dateMed=dateMed & " " & MonthNAme(Month(dt),true) dateMed=dateMed & " " & Right(Year(dt),2) else dt = " " end If end function %>