Subversion Repositories DevTools

Rev

Rev 5506 | Rev 6873 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5506 Rev 6788
Line 11... Line 11...
11 
 
 11 
 
12 
'------------- Constants -------------
 12 
'------------- Constants -------------
13 
'------------- Variables -------------
 13 
'------------- Variables -------------
14 
Dim L1e, L1d, Men, Mde, R1e, R1d, Ru1d, L2e, L2d
 14 
Dim L1e, L1d, Men, Mde, R1e, R1d, Ru1d, L2e, L2d
15 
Dim enItemStyle, deItemStyle
 15 
Dim enItemStyle, deItemStyle
- 
 
 16 
' Globals, that shouldn't be ... (just like the ones above)
- 
 
 17 
Dim TabsCurrentSelection
16 
'-------------------------------------
 18 
'-------------------------------------
17 
%>
 19 
%>
18 
<%
 20 
<%
19 
Private Sub Draw_First_Tab ( SSenable, SSitem, SSlink )
 21 
Private Sub Draw_First_Tab ( SSenable, SSitem, SSlink )
20 
	If SSenable Then
 22 
    If SSenable Then
21 
		Response.write "<td>"& L1e &"</td>"
 23 
		Response.write "<td>"& L1e &"</td>"
22 
		Response.write "<td "& Men &" nowrap><a href='"& SSlink &"' class="& enItemStyle &">"& SSitem &"</a></td>"
 24 
        Call Draw_Tab_Body (Men, enItemStyle, SSitem, SSlink)
23 
	Else
 25 
	Else
24 
		Response.write "<td>"& L1d &"</td>"
 26 
		Response.write "<td>"& L1d &"</td>"
25 
		If SSlink = "#" Then
 - 
 
26 
			Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
 27 
        Call Draw_Tab_Body (Mde, deItemStyle, SSitem, SSlink)
27 
		Else
 - 
 
28 
			Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
 - 
 
29 
		End If
 - 
 
30 
	End If
 28 
	End If
31 
End Sub
 29 
End Sub
32 
 
 30 
 
33 
 
 31 
 
34 
Private Sub Draw_Middle_Tab ( SSenable, SSprevEnable, SSitem, SSlink )
 32 
Private Sub Draw_Middle_Tab ( SSenable, SSprevEnable, SSitem, SSlink )
35 
	If SSenable Then
 33 
	If SSenable Then
36 
		Response.write "<td>"& Ru1d &"</td>"
 34 
		Response.write "<td>"& Ru1d &"</td>"
37 
		Response.write "<td>"& L2e &"</td>"
 35 
		Response.write "<td>"& L2e &"</td>"
38 
		Response.write "<td "& Men &" nowrap><a href='"& SSlink &"' class="& enItemStyle &">"& SSitem &"</a></td>"
 36 
        Call Draw_Tab_Body (Men, enItemStyle, SSitem, SSlink)
39 
	Else
 37 
	Else
40 
		If SSprevEnable Then
 38 
		If SSprevEnable Then
41 
			Response.write "<td>"& R1e &"</td>"
 39 
			Response.write "<td>"& R1e &"</td>"
42 
			Response.write "<td>"& L2d &"</td>"
 40 
			Response.write "<td>"& L2d &"</td>"
43 
			If SSlink = "#" Then
 - 
 
44 
				Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
 41 
            Call Draw_Tab_Body (Mde, deItemStyle, SSitem, SSlink)
45 
			Else
 - 
 
46 
				Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
 - 
 
47 
			End If
 - 
 
48 
		Else
 42 
		Else
49 
			Response.write "<td>"& R1d &"</td>"
 43 
			Response.write "<td>"& R1d &"</td>"
50 
			Response.write "<td>"& L2d &"</td>"
 44 
			Response.write "<td>"& L2d &"</td>"
51 
			If SSlink = "#" Then
 - 
 
52 
				Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
 45 
            Call Draw_Tab_Body (Mde, deItemStyle, SSitem, SSlink)
53 
			Else
 - 
 
54 
				Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
 - 
 
55 
			End If
 - 
 
56 
		End If
 46 
		End If
57 
	End If
 47 
	End If
58 
End Sub
 48 
End Sub
59 
 
 49 
 
60 
 
 - 
 
61 
Private Sub Draw_Last_Tab ( SSenable, SSprevEnable, SSitem, SSlink )
 50 
Private Sub Draw_Last_Tab ( SSenable, SSprevEnable, SSitem, SSlink )
62 
	If SSenable Then
 51 
	If SSenable Then
63 
		Response.write "<td>"& Ru1d &"</td>"
 52 
		Response.write "<td>"& Ru1d &"</td>"
64 
		Response.write "<td>"& L2e &"</td>"
 53 
		Response.write "<td>"& L2e &"</td>"
65 
		Response.write "<td "& Men &" nowrap><a href='"& SSlink &"' class="& enItemStyle &">"& SSitem &"</a></td>"
 54 
        Call Draw_Tab_Body (Men, enItemStyle, SSitem, SSlink)
66 
		Response.write "<td>"& R1e &"</td>"
 55 
		Response.write "<td>"& R1e &"</td>"
67 
	Else
 56 
	Else
68 
		If SSprevEnable Then
 57 
		If SSprevEnable Then
69 
			Response.write "<td>"& R1e &"</td>"
 58 
			Response.write "<td>"& R1e &"</td>"
70 
			Response.write "<td>"& L2d &"</td>"
 59 
			Response.write "<td>"& L2d &"</td>"
71 
			If SSlink = "#" Then
 - 
 
72 
				Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
 60 
            Call Draw_Tab_Body (Mde, deItemStyle, SSitem, SSlink)
73 
			Else
 - 
 
74 
				Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
 - 
 
75 
			End If
 - 
 
76 
			Response.write "<td>"& R1d &"</td>"
 61 
			Response.write "<td>"& R1d &"</td>"
77 
		Else
 62 
		Else
78 
			Response.write "<td>"& R1d &"</td>"
 63 
			Response.write "<td>"& R1d &"</td>"
79 
			Response.write "<td>"& L2d &"</td>"
 64 
			Response.write "<td>"& L2d &"</td>"
80 
			If SSlink = "#" Then
 - 
 
81 
				Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
 65 
            Call Draw_Tab_Body (Mde, deItemStyle, SSitem, SSlink)
82 
			Else
 - 
 
83 
				Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
 - 
 
84 
			End If
 - 
 
85 
			Response.write "<td>"& R1d &"</td>"
 66 
			Response.write "<td>"& R1d &"</td>"
86 
		End If
 67 
		End If
87 
	End If
 68 
	End If
88 
End Sub
 69 
End Sub
89 
 
 70 
 
- 
 
 71 
Private Sub Draw_Tab_Body(SSBg ,SSitemStyle, SSitem, SSlink )
- 
 
 72 
    If SSitem = "SelectList" Then
- 
 
 73 
		Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"
- 
 
 74 
        Dim fp: Set fp = GetRef(SSlink)
- 
 
 75 
        fp(TabsCurrentSelection)
- 
 
 76 
        Set fp = Nothing
- 
 
 77 
        Response.Write "</td>"
- 
 
 78 
    ElseIf SSlink = "#" Then
- 
 
 79 
        Response.write "<td "& SSBg &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
- 
 
 80 
    Else
- 
 
 81 
        Response.write "<td "& SSBg &" nowrap><a href='"& SSlink &"' class="& SSitemStyle &">"& SSitem &"</a></td>"
- 
 
 82 
    End If
- 
 
 83 
End Sub
- 
 
 84 
 
- 
 
 85 
 
90 
 
 86 
 
91 
Sub Generate_Tab_Menu ( SSarray, SSselected, SScolorStyle )
 87 
Sub Generate_Tab_Menu ( SSarray, SSselected, SScolorStyle )
92 
	Dim FirstTab, LastTab, enabled, prevEnabled, tempArray, i
 88 
	Dim FirstTab, LastTab, enabled, prevEnabled, tempArray, i
93
89
94 
	Select Case LCase(SScolorStyle)
 90 
	Select Case LCase(SScolorStyle)
Line 123... Line 119...
123 
	enabled = false
 119 
	enabled = false
124
120
125 
	Response.write "<table width='1' border='0' cellspacing='0' cellpadding='0'><tr>"
 121 
	Response.write "<table width='1' border='0' cellspacing='0' cellpadding='0'><tr>"
126
122
127 
	For i = FirstTab To LastTab
 123 
	For i = FirstTab To LastTab
128 
		tempArray = Split( SSarray(i), "@")
 124 
		tempArray = SSarray(i)
129 
		prevEnabled = enabled
 125 
		prevEnabled = enabled
130
126
131 
		enabled = FALSE
 127 
		enabled = FALSE
- 
 
 128 
        TabsCurrentSelection = SSselected
132 
		If SSselected <> "" Then enabled = Eval( InStr(tempArray(0), SSselected) > 0 )
 129 
		If SSselected <> "" Then enabled = (tempArray(1) = SSselected)
133
- 
 
134 
		Select Case i
 130 
		Select Case i
135 
		Case FirstTab
 131 
		Case FirstTab
136 
			Call Draw_First_Tab ( enabled, tempArray(0), tempArray(1) )
 132 
			Call Draw_First_Tab  ( enabled,              tempArray(0) & tempArray(1), tempArray(2) )
137 
		Case LastTab
 133 
		Case LastTab
138 
			Call Draw_Last_Tab ( enabled, prevEnabled, tempArray(0), tempArray(1) )
 134 
			Call Draw_Last_Tab   ( enabled, prevEnabled, tempArray(0) & tempArray(1), tempArray(2) )
139 
		Case Else
 135 
		Case Else
140 
			Call Draw_Middle_Tab ( enabled, prevEnabled, tempArray(0), tempArray(1) )
 136 
			Call Draw_Middle_Tab ( enabled, prevEnabled, tempArray(0) & tempArray(1), tempArray(2) )
141 
		End Select
 137 
		End Select
142
138
143 
	Next
 139 
	Next
144
140
145 
	Response.write "</tr></table>"
 141 
	Response.write "</tr></table>"