<%@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 Dim bCanEdit '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set objBtnControl = New ActionButtonControl bCanEdit = canActionControl("CreateNewProject") '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------- Function Get_Projects Get_Projects = _ " SELECT * FROM projects ORDER BY proj_name ASC" End Function '----------------------------------------------------------------------------------------------------------------------- %> Project Administration
<%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 Information
Project Name Code Review Base URL JIRA Key  
<%=UCase(rsProj.Fields("proj_name"))%> <%=rsProj.Fields("base_url")%> <%=rsProj.Fields("jira_key")%> <%If bCanEdit Then%> ','Edit Project Config')"><%=LIMG_EDIT%> <%Else%> <%=LIMG_EDIT_DISABLED%> <%End If%>
No projects available!