<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| ADMIN Page | '| PROJECTS | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim objBtnControl Dim rsProj '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set objBtnControl = New ActionButtonControl '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------- Function Get_Projects Get_Projects = _ " SELECT * FROM projects ORDER BY proj_name ASC" End Function '----------------------------------------------------------------------------------------------------------------------- %> <% '-------------Page Access Condition------------------------------------------------------------------------------------- If NOT objAccessControl.IsActive("ConfigureBuildService") Then Response.Redirect("message.asp?msg=401-9") End If %> Project Administration
<% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "ProjectAdmin" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <%Call objFormComponent.FormEnd()%>
<%Set rsProj = OraDatabase.DbCreateDynaset( Get_Projects, cint(0)) While ((NOT rsProj.BOF) AND (NOT rsProj.EOF)) %> <%rsProj.MoveNext WEnd%> <%If rsProj.RecordCount < 1 Then%> <%End If%>
Project Name Code Review Base URL JIRA Key  
<%=UCase(rsProj.Fields("proj_name"))%> <%=rsProj.Fields("base_url")%> <%=rsProj.Fields("jira_key")%> ','ProjectEdit','scrollbars=no,resizable=yes,width=600,height=150')">
No projects available!
<% Call Destroy_All_Objects %>