Subversion Repositories DevTools

<%
'===================================================================
'                                               Admin Project Browser
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim rsBrowseQry
'Dim ScriptName
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
parProj_id = Request("proj_id")
'----------------------------------------------
%>
<%
'----------------------------------------------------------------------------------------------------------------------------------------------

'----------------------------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE CONTROL RENDER -------
'----------------------------------------------
%>
<table width="100%"  border="0" cellspacing="0" cellpadding="5">
  <tr>
    <td background="images/bg_bage_0a.gif">&nbsp;</td>
  </tr>
</table>        
<table width="100%"  border="0" cellspacing="5" cellpadding="0">
  <tr>
    <td>
        <table width="100%"  border="0" cellspacing="8" cellpadding="0">
          <tr>
        <td><a href='AdminDefault.asp' class='menu_link' title='Back to Main Menu'><img src="icons/i_caretone.gif" width="11" height="7" border="0" hspace="5">Main Menu</a></td>
      </tr>
          <tr>
        <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
      </tr>  
        <%
        OraDatabase.Parameters.Add "PROJ_ID",   parProj_id,             ORAPARM_INPUT, ORATYPE_NUMBER 
        
        If SCRIPT_NAME = "AdminProject_List.asp" Then   
                ScriptName = "AdminProject_Iterations.asp"
        ElseIf SCRIPT_NAME = "AdminProductionManager.asp"       Then
                ScriptName = "AdminProductionManager_Configuration.asp"
        Else
                ScriptName = SCRIPT_NAME
        End If
        
        Set rsBrowseQry = OraDatabase.DbCreateDynaset( GetQuery ("ProjectList.sql"), ORADYN_DEFAULT )
        While (NOT rsBrowseQry.BOF) AND (NOT rsBrowseQry.EOF)
                If ScriptName = "AdminProductionManager_Configuration.asp" Then
                        If      InStr(rsBrowseQry("proj_name"), "PRODUCTION") <> 0 Then
        %>
      <tr>
        <td nowrap><a href='<%=ScriptName%>?proj_id=<%=rsBrowseQry("proj_id")%>' class='menu_link'><img src='icons/i_world.gif' hspace='5' align='absmiddle' border='0'><SPAN class="<%=rsBrowseQry("style")%>"><%=rsBrowseQry("proj_name").Value%></SPAN></a></td>
      </tr>
                  <%End If%>
         <%Else%>
      <tr>
        <td nowrap><a href='<%=ScriptName%>?proj_id=<%=rsBrowseQry("proj_id")%>' class='menu_link'><img src='icons/i_world.gif' hspace='5' align='absmiddle' border='0'><SPAN class="<%=rsBrowseQry("style")%>"><%=rsBrowseQry("proj_name").Value%></SPAN></a></td>
      </tr>
        <%End If
                rsBrowseQry.MoveNext
        WEnd
        
        rsBrowseQry.Close()
        Set rsBrowseQry = Nothing
        
        OraDatabase.Parameters.Remove "PROJ_ID"
        %>
    </table>
        </td>
  </tr>
</table>
<%
'------------ RUN AFTER CONTROL RENDER --------
'----------------------------------------------
%>