Subversion Repositories DevTools

<%
'==========================================
'                               Tab Menus
'==========================================

'-------------- Tab Definition ---------------
'   L1e  |  Men  |  R1e  |  L2e  |  --  |  --  |  --  |  --  |  --  |
'   L1d  |  Mde  |  R1d  |  L2d  |  --  |  --  |  --  |  --  |  --  |
'   --   |  --   |  Ru1d |  --   |  --  |  --  |  --  |  --  |  --  |
'---------------------------------------------

'------------- Constants -------------
'------------- Variables -------------
Dim L1e, L1d, Men, Mde, R1e, R1d, Ru1d, L2e, L2d
Dim enItemStyle, deItemStyle
'-------------------------------------
%>
<%
Private Sub Draw_First_Tab ( SSenable, SSitem, SSlink )
        If SSenable Then
                Response.write "<td>"& L1e &"</td>"
                Response.write "<td "& Men &" nowrap><a href='"& SSlink &"' class="& enItemStyle &">"& SSitem &"</a></td>"
        Else
                Response.write "<td>"& L1d &"</td>"
                If SSlink = "#" Then
                        Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
                Else
                        Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
                End If
        End If
End Sub


Private Sub Draw_Middle_Tab ( SSenable, SSprevEnable, SSitem, SSlink )
        If SSenable Then
                Response.write "<td>"& Ru1d &"</td>"
                Response.write "<td>"& L2e &"</td>"
                Response.write "<td "& Men &" nowrap><a href='"& SSlink &"' class="& enItemStyle &">"& SSitem &"</a></td>"
        Else
                If SSprevEnable Then
                        Response.write "<td>"& R1e &"</td>"
                        Response.write "<td>"& L2d &"</td>"
                        If SSlink = "#" Then
                                Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
                        Else
                                Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
                        End If
                Else
                        Response.write "<td>"& R1d &"</td>"
                        Response.write "<td>"& L2d &"</td>"
                        If SSlink = "#" Then
                                Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
                        Else
                                Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
                        End If
                End If
        End If
End Sub


Private Sub Draw_Last_Tab ( SSenable, SSprevEnable, SSitem, SSlink )
        If SSenable Then
                Response.write "<td>"& Ru1d &"</td>"
                Response.write "<td>"& L2e &"</td>"
                Response.write "<td "& Men &" nowrap><a href='"& SSlink &"' class="& enItemStyle &">"& SSitem &"</a></td>"
                Response.write "<td>"& R1e &"</td>"
        Else
                If SSprevEnable Then
                        Response.write "<td>"& R1e &"</td>"
                        Response.write "<td>"& L2d &"</td>"
                        If SSlink = "#" Then
                                Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
                        Else
                                Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
                        End If
                        Response.write "<td>"& R1d &"</td>"
                Else
                        Response.write "<td>"& R1d &"</td>"
                        Response.write "<td>"& L2d &"</td>"
                        If SSlink = "#" Then
                                Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
                        Else
                                Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
                        End If
                        Response.write "<td>"& R1d &"</td>"
                End If
        End If
End Sub


Sub Generate_Tab_Menu ( SSarray, SSselected, SScolorStyle )
        Dim FirstTab, LastTab, enabled, prevEnabled, tempArray, i
        
        Select Case LCase(SScolorStyle)
                Case "orange"
                        enItemStyle = "tabItemSelect"
                        deItemStyle = "tabItem"
                        L1e     = "<img src='images/tb_lorange.gif' width='11' height='19'>"
                        L1d = "<img src='images/tb_l2gray.gif' width='11' height='19'>"
                        Men     = "background='images/tb_morange.gif'"
                        Mde     = "background='images/tb_mgray.gif'"
                        R1e     = "<img src='images/tb_rorange.gif' width='10' height='19'>"
                        R1d     = "<img src='images/tb_rgray.gif' width='10' height='19'>"
                        Ru1d= "<img src='images/tb_rugray.gif' width='10' height='19'>"
                        L2e     = "<img src='images/tb_roorange.gif' width='8' height='19'>"
                        L2d = "<img src='images/tb_lgray.gif' width='10' height='19'>"
                Case "blue" 
                        enItemStyle = "tabItemSelect2"
                        deItemStyle = "tabItem"
                        L1e     = "<img src='images/tb_lblue.gif' width='11' height='19'>"
                        L1d = "<img src='images/tb_l2gray.gif' width='11' height='19'>"
                        Men     = "background='images/tb_mblue.gif'"
                        Mde     = "background='images/tb_mgray.gif'"
                        R1e     = "<img src='images/tb_rblue.gif' width='10' height='19'>"
                        R1d     = "<img src='images/tb_rgray.gif' width='10' height='19'>"
                        Ru1d= "<img src='images/tb_rugrayb.gif' width='10' height='19'>"
                        L2e     = "<img src='images/tb_roblue.gif' width='8' height='19'>"
                        L2d = "<img src='images/tb_lgray.gif' width='10' height='19'>"
        End Select 
        
        FirstTab = LBound(SSarray)
        LastTab = UBound(SSarray)
        enabled = false
        
        Response.write "<table width='1' border='0' cellspacing='0' cellpadding='0'><tr>"
        
        For i = FirstTab To LastTab
                tempArray = Split( SSarray(i), "@")
                prevEnabled = enabled
                
                enabled = FALSE
                If SSselected <> "" Then enabled = Eval( InStr(tempArray(0), SSselected) > 0 )
                
                Select Case i
                Case FirstTab
                        Call Draw_First_Tab ( enabled, tempArray(0), tempArray(1) )
                Case LastTab
                        Call Draw_Last_Tab ( enabled, prevEnabled, tempArray(0), tempArray(1) )
                Case Else
                        Call Draw_Middle_Tab ( enabled, prevEnabled, tempArray(0), tempArray(1) )
                End Select
                
        Next
        
        Response.write "</tr></table>"
        
End Sub
%>