<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| ADMIN licences | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim canEdit '------------ Constants Declaration ----------- '------------ Variable Init ------------------- canEdit = canActionControl("ConfigureLicenses") AND canActionControl("ConfigureBuildService") '---------------------------------------------- %> Licence Administration
<% Dim name, lic_id, rsQry Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM LICENCES ORDER BY NAME", ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) name = rsQry("name") lic_id = rsQry("licence") %> <% rsQry.MoveNext() Wend rsQry.Close() Set rsQry = nothing %>
Configured Licences
LICENCE NAME Edit
<%=name%> <% BuildActionButtonClickRaw canEdit, "", "Edit", FALSE, _ LIMG_EDIT,_ "MM_openVixIFrame('_wform_edit_licences.asp?lic_id="&lic_id&"','Edit Licence Name')" %>
<%Call Action_Buttons_State("Add Licence", canEdit)%>