<%@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 ------------- '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% ' Page Access Condition If NOT objAccessControl.IsActive("ConfigureBuildService") Then Response.Redirect("message.asp?msg=401-9") End If %> Licence Administration <% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "NAME" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %>
Configured Licences
<% Dim name, rsQry Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM LICENCES ORDER BY NAME", ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) name = rsQry("name") %> <% rsQry.MoveNext() %> <% WEnd rsQry.Close() Set rsQry = nothing %>
LICENCE NAME
<%=name%>
  <%Call Action_Buttons ( "Add Licence" )%>  
<%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %> <% Call Destroy_All_Objects %>