Subversion Repositories DevTools

Rev

Rev 5512 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5512 Rev 6049
Line 19... Line 19...
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsUser
 23 
Dim rsUser
24 
'Dim objBtnControl
 - 
 
25 
'Dim aTabBtnsDef
 - 
 
26 
'------------ CONSTANTS DECLARATION -----------
 24 
'------------ CONSTANTS DECLARATION -----------
27 
'------------ VARIABLE INIT -------------------
 25 
'------------ VARIABLE INIT -------------------
28 
'Set objBtnControl = New ActionButtonControl
 - 
 
29 
'------------ CONDITIONS ----------------------
 26 
'------------ CONDITIONS ----------------------
30 
'----------------------------------------------
 27 
'----------------------------------------------
31 
%>
 28 
%>
32 
<%
 29 
<%
33 
'------------ RUN BEFORE PAGE RENDER ----------
 30 
'------------ RUN BEFORE PAGE RENDER ----------
Line 39... Line 36...
39 
	'-- Select Action
 36 
	'-- Select Action
40
37
41 
	Select Case Request("action")
 38 
	Select Case Request("action")
42 
		Case "btnRemoveAccount"
 39 
		Case "btnRemoveAccount"
43 
			Call OpenInWindow ( "_RemoveUserAccount.asp?user_id_list="& Request("user_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
 40 
			Call OpenInWindow ( "_RemoveUserAccount.asp?user_id_list="& Request("user_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
- 
 
 41 
 
- 
 
 42 
		Case "btnDisableAccount"
- 
 
 43 
			Call OpenInWindow ( "_DisableUserAccount.asp?user_id_list="& Request("user_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
- 
 
 44 
 
44 
	End Select
 45 
	End Select
45
46
46 
End If
 47 
End If
47 
%>
 48 
%>
48 
<html>
 49 
<html>