Subversion Repositories DevTools

<%
'=====================================================
'|                                                   |
'|                                      REPORTS                                      |
'|                                                   |
'=====================================================
%>
<%
'------------ Variable Definition -------------
Dim reportGroup
Dim reportGroupsArr
'------------ Constants Declaration -----------
Const hlColor      = "#E3B62D"
'------------ Variable Init -------------------
'------------ Reports Menu --------------------
reportGroupsArr = Array("Advanced Search", _
                                                "Release Status", _
                                                "Release History", _
                                                "Admin Reports", _
                                                "Escrow")
'----------------------------------------------
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
                <td nowrap><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"></td>
        </tr>
        <tr> 
                <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
        </tr>
        <%
        Dim urlLink
        For Each reportGroup In reportGroupsArr
        urlLink = "reports.asp?group="& Replace( reportGroup, " ", "_")
        %>
        <%If NOT Replace(reportGroup, " ", "_") = parGroup Then%>
        <tr <%=Set_Row_Style( urlLink )%>> 
                <td nowrap><img src="images/i_reports.gif" width="17" height="16" align="absmiddle" vspace="4" hspace="5"><a href="<%=urlLink%>" class="form_txt_link"><%=reportGroup%></a></td>
        </tr>
        <%Else%>
        <tr> 
        <td nowrap background="images/bg_lght_gray.gif"><img src="images/i_reports.gif" width="17" height="16" align="absmiddle" vspace="4" hspace="5"><a href="<%=urlLink%>" class="form_txt_link"><%=reportGroup%></a></td>
        </tr>
        <%End If%>
        <tr> 
        <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
        </tr>
        <%Next%>
</table>