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()

arrEnv = Array ( _
                Array("","Work&nbsp;In&nbsp;Progress","onmouseover=""EnvDynaTabLink(this,'" & LScriptName & "','" &"?envtab=" & enumENVTAB_WORK_IN_PROGRESS & "&" & strURL & "');"""),_
                Array("","Pending","onmouseover=""EnvDynaTabLink(this,'" & LScriptName & "','" &"?envtab=" & enumENVTAB_PLANNED & "&" & strURL & "');"""),_
                Array("","Released","onmouseover=""EnvDynaTabLink(this,'" & LScriptName & "','" &"?envtab=" & enumENVTAB_RELEASED & "&" & strURL & "');"""),_
                Array("","&nbsp;All","onmouseover=""EnvDynaTabLink(this,'" & 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))

%>