<%
'==========================================
' 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 "| "& L1e &" | "
Response.write ""& SSitem &" | "
Else
Response.write ""& L1d &" | "
If SSlink = "#" Then
Response.write ""& SSitem &" | "
Else
Response.write ""& SSitem &" | "
End If
End If
End Sub
Private Sub Draw_Middle_Tab ( SSenable, SSprevEnable, SSitem, SSlink )
If SSenable Then
Response.write ""& Ru1d &" | "
Response.write ""& L2e &" | "
Response.write ""& SSitem &" | "
Else
If SSprevEnable Then
Response.write ""& R1e &" | "
Response.write ""& L2d &" | "
If SSlink = "#" Then
Response.write ""& SSitem &" | "
Else
Response.write ""& SSitem &" | "
End If
Else
Response.write ""& R1d &" | "
Response.write ""& L2d &" | "
If SSlink = "#" Then
Response.write ""& SSitem &" | "
Else
Response.write ""& SSitem &" | "
End If
End If
End If
End Sub
Private Sub Draw_Last_Tab ( SSenable, SSprevEnable, SSitem, SSlink )
If SSenable Then
Response.write ""& Ru1d &" | "
Response.write ""& L2e &" | "
Response.write ""& SSitem &" | "
Response.write ""& R1e &" | "
Else
If SSprevEnable Then
Response.write ""& R1e &" | "
Response.write ""& L2d &" | "
If SSlink = "#" Then
Response.write ""& SSitem &" | "
Else
Response.write ""& SSitem &" | "
End If
Response.write ""& R1d &" | "
Else
Response.write ""& R1d &" | "
Response.write ""& L2d &" | "
If SSlink = "#" Then
Response.write ""& SSitem &" | "
Else
Response.write ""& SSitem &" | "
End If
Response.write ""& R1d &" | "
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 = "
"
L1d = "
"
Men = "background='images/tb_morange.gif'"
Mde = "background='images/tb_mgray.gif'"
R1e = "
"
R1d = "
"
Ru1d= "
"
L2e = "
"
L2d = "
"
Case "blue"
enItemStyle = "tabItemSelect2"
deItemStyle = "tabItem"
L1e = "
"
L1d = ""
Men = "background='images/tb_mblue.gif'"
Mde = "background='images/tb_mgray.gif'"
R1e = "
"
R1d = ""
Ru1d= "
"
L2e = "
"
L2d = ""
End Select
FirstTab = LBound(SSarray)
LastTab = UBound(SSarray)
enabled = false
Response.write ""
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 "
"
End Sub
%>