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 Image
        '[2] Tab Name
        '[3] Tab Link
strURL = objPMod.ComposeURL()
If Request("keyword")    <> "" Then strURL = strURL + "&keyword="& Request("keyword")
If Request("searchtype") <> "" Then strURL = strURL + "&searchtype="& Request("searchtype")

arrEnv = Array ( _
                Array("","Work&nbsp;In&nbsp;Progress",LScriptName &"?envtab="& enumENVTAB_WORK_IN_PROGRESS &"&"& strURL),_
                Array("","Pending",LScriptName &"?envtab="& enumENVTAB_PLANNED &"&"& strURL),_
                Array("","Released",LScriptName &"?envtab="& enumENVTAB_RELEASED &"&"& strURL),_
                Array("","&nbsp;All",LScriptName &"?envtab="& enumENVTAB_ALL &"&"& strURL))

arrProductEnv = Array ( _
                Array("","Release",LScriptName &"?envtab="& enumENVTAB_PRODRELEASE &"&"& strURL),_
                Array("","Integrate",LScriptName &"?envtab="& enumENVTAB_INTEGRATE &"&"& strURL),_
                Array("","Test",LScriptName &"?envtab="& enumENVTAB_TEST &"&"& strURL),_
                Array("","Deploy",LScriptName &"?envtab="& enumENVTAB_DEPLOY &"&"& strURL),_
                Array("","Reject",LScriptName &"?envtab="& enumENVTAB_REJECT &"&"& strURL))

%>