Subversion Repositories DevTools

Rev

Rev 6879 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6879 Rev 7294
Line 6... Line 6...
6 
Private Sub Draw_Tab_LiEntry (SSenable, SSitem, SSlink)
 6 
Private Sub Draw_Tab_LiEntry (SSenable, SSitem, SSlink)
7 
    Dim sClass : sClass = ""
 7 
    Dim sClass : sClass = ""
8 
    If SSenable Then sClass="current"
 8 
    If SSenable Then sClass="current"
9 
    If SSlink = "#" Then
 9 
    If SSlink = "#" Then
10 
        Response.write "<li class='tabsText "& sClass &"'>"& SSitem &"</li>"
 10 
        Response.write "<li class='tabsText "& sClass &"'>"& SSitem &"</li>"
- 
 
 11 
    ElseIf Left(SSlink,2) = "on" Then
- 
 
 12 
        Response.write "<li class='pointer " & sClass & "' "& SSlink &"><a>"& SSitem &"</a></li>"
11 
    Else
 13 
    Else
12 
        Response.write "<li class='" & sClass & "'><a href='"& SSlink &"'>"& SSitem &"</a></li>"
 14 
        Response.write "<li class='" & sClass & "'><a href='"& SSlink &"'>"& SSitem &"</a></li>"
13 
    End If
 15 
    End If
14 
End Sub
 16 
End Sub
15 
 
 17