<%
'==========================================
' Tab Menus
'==========================================
Private Sub Draw_Tab_LiEntry (SSenable, SSitem, SSlink)
Dim sClass : sClass = ""
If SSenable Then sClass="current"
If SSlink = "#" Then
Response.write ""& SSitem &""
ElseIf Left(SSlink,2) = "on" Then
Response.write ""& SSitem &""
Else
Response.write ""& SSitem &""
End If
End Sub
'-------------------------------------------------
' Function: GenStyle
' Description: Generate a local style sheet with a few options configured globally
'
Private Function GenStyle (sName, sfgColor, sbgColor)
Dim classPrefix : classPrefix = sName & "_"
GenStyle = classPrefix & "tabs"
%>
<%
End Function
Sub Generate_Tab_Menu ( SSarray, SSselected, SScolorStyle )
Dim FirstTab, LastTab, enabled, i
Dim className
If SScolorStyle = "blue" Then
className = GenStyle (SScolorStyle, "white", "#003399")
ElseIf SScolorStyle = "grey" Then
className = GenStyle (SScolorStyle, "black", "#f2f0e4")
Else
className = GenStyle (SScolorStyle, "black", "#ffcc33")
End If
FirstTab = LBound(SSarray)
LastTab = UBound(SSarray)
' With CSS only
'
Response.write ""
For i = FirstTab To LastTab
Dim tempArray
tempArray = SSarray(i)
enabled = FALSE
If isNumeric(SSselected) Then
If Cint(SSselected) = i Then enabled = TRUE
Else
If SSselected <> "" Then enabled = (tempArray(1) = SSselected)
End If
Call Draw_Tab_LiEntry ( enabled, tempArray(0) & tempArray(1), tempArray(2) )
Next
Response.write "
"
End Sub
%>