New - Pastie

Language:

## mark a section (Learn more)

<%@LANGUAGE = "VBScript"%>  <% InitUmra AuthorizeUser False If Session("WebRole") <> "MANAGEMENT" then response.redirect "not-allowed.asp" RetVal=Umra.SetVariableText("%ObjectODN%", Session("UserObjectODN")) RetVal = Umra.ExecuteProjectScript("function-user-get-info") RetVal = Umra.GetVariableText("%AD_username%", AD_username) RetVal = Umra.GetVariableText("%AD_displayName%", AD_displayName) RetVal = Umra.GetVariableText("%BO4_func_kd%", BO4_func_kd) RetVal = Umra.GetVariableText("%BO4_func_oms%", BO4_func_oms) RetVal = Umra.GetVariableText("%BO4_regio_code%", BO4_regio_code) RetVal = Umra.GetVariableText("%BO4_regio_naam%", BO4_regio_naam) RetVal = Umra.GetVariableText("%BO4_oe_kort_nm%", BO4_oe_kort_nm) RetVal = Umra.GetVariableText("%BO4_oe_vol_nm%", BO4_oe_vol_nm) RetVal = Umra.SetVariableText("%regio_code%", "%BO4_regio_code%") RetVal = Umra.SetVariableText("%func_kd%", "%BO4_func_kd%") Session("ApplAuthorizations") = "" for RowIndex = 0 to Session("UBoundTable1") Session("ApplAuthorizations") = Session("ApplAuthorizations") & ";" & Request.Form("chkAppl_" & RowIndex) next Session("NTFSAuthorizations") = "" for RowIndex = 0 to Session("UBoundTable2") Session("NTFSAuthorizations") = Session("NTFSAuthorizations") & ";" & Request.Form("chkNTFS_" & RowIndex) next ApplAuthorizationTable = Split(Session("ApplAuthorizations"), ";") NTFSAuthorizationTable = Split(Session("NTFSAuthorizations"), ";") %> <HTML> <HEAD> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <LINK href="style.css" type=text/css rel=stylesheet> </HEAD> <% HtmlWriteStyleElement_Top "Toevoegen autorisaties aan gebruiker" %> <table width="100%" border="0" cellpadding="10" cellspacing="0"> <tr> <td> <FORM NAME=UmraForm ACTION="manage-authorizations-status.asp" METHOD="POST" ID="Form1"> <table width="100%" border="0" cellpadding="3" cellspacing="0"> <tr> <td colspan="2"><strong>Gegevens geselecteerde gebruiker:</strong></td> </tr> <tr> <td width="50%">Naam: <% response.write AD_displayName & " (" & AD_username & ")"%></td> <td width="50%">Functie: <% response.write BO4_func_oms & " (" & BO4_func_kd & ")"%></td> </tr> <tr> <td width="50%">Afdeling (code): <% response.write BO4_oe_kort_nm%></td> <td width="50%">Afdeling (naam): <% response.write BO4_oe_vol_nm%></td> </tr> <tr> <td width="50%">Regio (code): <% response.write BO4_regio_code%></td> <td width="50%">Regio (naam): <% response.write BO4_regio_naam%></td> </tr> <tr> <td colspan="2"> </td> </tr> <tr> <td colspan="2"><strong>U heeft onderstaande autorisaties aangevinkt, zodra u dit bevestigt worden deze autorisaties toegepast:</strong></td> </tr> <tr> <td colspan="2"> </td> </tr> <tr> <td><strong>Applicatie autorisaties:</strong></td> <td><strong>Map autorisaties:</strong></td> </tr> <tr> <td> <% for RowIndex = 0 to UBound(ApplAuthorizationTable) if Len(ApplAuthorizationTable(RowIndex)) > 0 then response.write ApplAuthorizationTable(RowIndex) response.write "<BR>" end if next %> </td> <td> <% for RowIndex = 0 to UBound(NTFSAuthorizationTable) if Len(NTFSAuthorizationTable(RowIndex)) > 0 then response.write NTFSAuthorizationTable(RowIndex) response.write "<BR>" end if next %> </td> </tr> <tr> <td colspan="2"> </td> </tr> <tr> <td colspan="2"><input type="submit" value="Pas autorisatie(s) toe ->" name="Submit"></td> </tr> </table> </form> </td> </tr> </table>