Subversion Repositories DevTools

<%
'===================================================================
'                                                       Tab Controls
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim arrEnv, arrProductEnv
Dim LScriptName
Dim     strURL
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------

If scriptName = "find.asp" Then
        LScriptName = "dependencies.asp"
Else
        LScriptName = scriptName
End If
        
                
        '[1] Tab Name
        '[2] Tab Link
        '[3] JavaScript Event e.g. "onClick='...'"
        '[4] Tab Image Selected
        '[5] Tab Image Diselected
        '[6] Tab Image Disabled
        '[7] Tab Hint
        '[8] Force Disable. Values: Y, N(default)
If Request("keyword") = "" Then
        strURL = objPMod.ComposeURL()
Else
        strURL = objPMod.ComposeURL() + "&keyword="& Request("keyword")
End If
        
arrEnv = _
                                Array ( "Work&nbsp;In&nbsp;Progress", _
                                                LScriptName &"?envtab="& enumENVTAB_WORK_IN_PROGRESS &"&"& strURL, _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Pending", _
                                                LScriptName &"?envtab="& enumENVTAB_PLANNED &"&"& strURL, _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Released", _
                                                LScriptName &"?envtab="& enumENVTAB_RELEASED &"&"& strURL, _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "&nbsp;All&nbsp;", _
                                                LScriptName &"?envtab="& enumENVTAB_ALL &"&"& strURL, _
                                                "", _
                                                "", "", "", "", "" _
                                                
                                          )
                                          
arrProductEnv = _
                                Array ( "Release", _
                                                LScriptName &"?envtab="& enumENVTAB_PRODRELEASE &"&"& strURL, _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Integrate", _
                                                LScriptName &"?envtab="& enumENVTAB_INTEGRATE &"&"& strURL, _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Test", _
                                                LScriptName &"?envtab="& enumENVTAB_TEST &"&"& strURL, _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Deploy", _
                                                LScriptName &"?envtab="& enumENVTAB_DEPLOY &"&"& strURL, _
                                                "", _
                                                "", "", "", "", "", _
                                                
                                                "Reject", _
                                                LScriptName &"?envtab="& enumENVTAB_REJECT &"&"& strURL, _
                                                "", _
                                                "", "", "", "", "" _                                            
                                                
                                          )
'----------------------------------------------
%>
<%
'------------ RUN BEFORE CONTROL RENDER -------
'----------------------------------------------
%>
<%
'------------ RUN AFTER CONTROL RENDER --------
'----------------------------------------------
%>