Subversion Repositories DevTools

Rev

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

Rev 6877 Rev 7291
Line 1... Line 1...
1 
<%
 1 
<%
2 
'=====================================================
 2 
'=====================================================
3 
'|                                                   |
 3 
'|                                                   |
4 
'|			          _front_explorer				 |
 4 
'|                    _front_explorer                |
5 
'|                                                   |
 5 
'|                                                   |
6 
'=====================================================
 6 
'=====================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
'------------ Variable Definition -------------
 9 
'------------ Variable Definition -------------
10 
Dim rsProj
 10 
Dim rsProj
11 
Dim rsTemp
 11 
Dim rsTemp
12 
Dim parListBy
 12 
Dim parListBy
13 
'------------ Constants Declaration -----------
 13 
'------------ Constants Declaration -----------
14 
Const hlColor 	   = "#E3B62D"
 14 
Const hlColor      = "#E3B62D"
15 
'------------ Variable Init -------------------
 15 
'------------ Variable Init -------------------
16 
parListBy = Request("listby")
 16 
parListBy = Request("listby")
17 
If parListBy = "" Then parListBy = 3	' Default visible list is Projects
 17 
If parListBy = "" Then parListBy = 3    ' Default visible list is Projects
18 
'----------------------------------------------
 18 
'----------------------------------------------
19 
%>
 19 
%>
20 
<%
 20 
<%
21 
'-----------------------------------------------------------------------------------------------------------------------
 21 
'-----------------------------------------------------------------------------------------------------------------------
22 
Function Set_Row_Style ( SSLink )
 22 
Function Set_Row_Style ( SSLink )
23 
	Set_Row_Style = "class='bg_navPane pointer' onClick=""location.href='"& SSLink &"'"""
 23 
    Set_Row_Style = "class='bg_navPane pointer' onClick=""location.href='"& SSLink &"'"""
24 
End Function
 24 
End Function
25 
'-----------------------------------------------------------------------------------------------------------------------
 25 
'-----------------------------------------------------------------------------------------------------------------------
26 
Function Get_Projects
 26 
Function Get_Projects
27 
	Get_Projects = _
 27 
    Get_Projects = _
28 
	"select unique p.* from release_tags rt, projects p where rt.PROJ_ID = p.PROJ_ID and rt.official in ('N','R','C','P') ORDER BY p.proj_name ASC"
 28 
    "select unique p.* from release_tags rt, projects p where rt.PROJ_ID = p.PROJ_ID and rt.official in ('N','R','C','P') ORDER BY p.proj_name ASC"
29 
End Function
 29 
End Function
30 
'-----------------------------------------------------------------------------------------------------------------------
 30 
'-----------------------------------------------------------------------------------------------------------------------
31 
Function Get_All_Projects
 31 
Function Get_All_Projects
32 
	Get_All_Projects = _
 32 
    Get_All_Projects = _
33 
	"select p.* from projects p ORDER BY p.proj_name ASC"
 33 
    "select p.* from projects p ORDER BY p.proj_name ASC"
34 
End Function
 34 
End Function
35 
'-----------------------------------------------------------------------------------------------------------------------
 35 
'-----------------------------------------------------------------------------------------------------------------------
36 
Function Format_Full_Name ( SSfullname )
 36 
Function Format_Full_Name ( SSfullname )
37 
	If InStr( SSfullname, " " ) = 0 Then
 37 
    If InStr( SSfullname, " " ) = 0 Then
38 
		' No space in full_name
 38 
        ' No space in full_name
39 
		Format_Full_Name = SSfullname
 39 
        Format_Full_Name = SSfullname
40
40
41 
	Else
 41 
    Else
42 
		' Proper full_name found
 42 
        ' Proper full_name found
43
43
44 
		Format_Full_Name = Left( SSfullname, InStr( SSfullname, " " )  )
 44 
        Format_Full_Name = Left( SSfullname, InStr( SSfullname, " " )  )
45
45
46 
	End If
 46 
    End If
47
47
48 
End Function
 48 
End Function
49 
'-----------------------------------------------------------------------------------------------------------------------
 49 
'-----------------------------------------------------------------------------------------------------------------------
50 
Sub GenerateAtoZ(idx, page,emode)
 50 
Sub GenerateAtoZ(idx, page,emode)
51 
	Dim letter, LROW_ONE, LROW_TWO, LROW3, URL
 51 
    Dim letter, LROW_ONE, LROW_TWO, LROW3, URL
52
52
53 
	' Declare array of letters for browsing
 53 
    ' Declare array of letters for browsing
54 
	LROW_ONE = Array("A","B","C","D","E","F","G","H","I","J","K","L","M")
 54 
    LROW_ONE = Array("A","B","C","D","E","F","G","H","I","J","K","L","M")
55 
	LROW_TWO = Array("N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
 55 
    LROW_TWO = Array("N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
56 
	LROW3    = Array("1","2","3","4","5","6","7","8","9","0","*")
 56 
    LROW3    = Array("1","2","3","4","5","6","7","8","9","0","*")
57
57
58
58
59 
	Response.write "<table width='180'  border='0' cellspacing='1' cellpadding='2'>"
 59 
    Response.write "<table width='180'  border='0' cellspacing='1' cellpadding='2'>"
60
60
61 
	' Render first row
 61 
    ' Render first row
62 
	For Each letter In LROW_ONE
 62 
    For Each letter In LROW_ONE
63 
		Response.write "<td width='10' bgcolor='#DDB02C' align='center'>"
 63 
        Response.write "<td width='10' bgcolor='#DDB02C' align='center'>"
64 
        Response.Write "<a href ='"&page&"?listby="&idx&"&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
 64 
        Response.Write "<a href ='"&page&"?listby="&idx&"&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
65 
	Next
 65 
    Next
66 
	Response.write "</tr>"
 66 
    Response.write "</tr>"
67
67
68
68
69 
	' Render second row
 69 
    ' Render second row
70 
	Response.write "<tr>"
 70 
    Response.write "<tr>"
71 
	For Each letter In LROW_TWO
 71 
    For Each letter In LROW_TWO
72 
		Response.write "<td bgcolor='#DDB02C' align='center'>"
 72 
        Response.write "<td bgcolor='#DDB02C' align='center'>"
73 
        Response.Write "<a href ='"&page&"?listby="&idx&"&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
 73 
        Response.Write "<a href ='"&page&"?listby="&idx&"&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
74 
	Next
 74 
    Next
75 
	Response.write "</tr>"
 75 
    Response.write "</tr>"
76
76
77 
    If eMode Then
 77 
    If eMode Then
78 
    	' Render 3rd row
 78 
        ' Render 3rd row
79 
    	Response.write "<tr>"
 79 
        Response.write "<tr>"
80 
    	For Each letter In LROW3
 80 
        For Each letter In LROW3
81 
    		Response.write "<td bgcolor='#DDB02C' align='center'>"
 81 
            Response.write "<td bgcolor='#DDB02C' align='center'>"
82 
            Response.Write "<a href ='"&page&"?listby="&idx&"&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
 82 
            Response.Write "<a href ='"&page&"?listby="&idx&"&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
83 
    	Next
 83 
        Next
84 
    	Response.write "</tr>"
 84 
        Response.write "</tr>"
85 
    End If
 85 
    End If
86
86
87 
	Response.write "</table>"
 87 
    Response.write "</table>"
88
88
89 
End Sub
 89 
End Sub
90 
'-----------------------------------------------------------------------------------------------------------------------
 90 
'-----------------------------------------------------------------------------------------------------------------------
91 
%>
 91 
%>
92 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 92 
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
93 
		<tr>
93 
        <tr>
94 
	  		<td>
 94 
            <td>
95 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
 95 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
96 
			  	<form name="fromlist">
 96 
                <form name="fromlist">
97 
                <tr>
 97 
                <tr>
98 
                  <td nowrap>
 98 
                  <td nowrap>
99 
                  <script type="text/javascript">
 99 
                  <script type="text/javascript">
100 
                  $(document).ready(function(){
 100 
                  $(document).ready(function(){
101 
                    // Force focus to the inputbox when the page is rendered
 101 
                    // Force focus to the inputbox when the page is rendered
Line 117... Line 117...
117 
                    var tmpStr = input.val();
 117 
                    var tmpStr = input.val();
118 
                    input.val('');
 118 
                    input.val('');
119 
                    input.val(tmpStr);
 119 
                    input.val(tmpStr);
120 
                  }
 120 
                  }
121 
                  </script>
 121 
                  </script>
122 
				  <select name="listby" class='form_item' onChange="setDivVisible(this.value);">
 122 
                  <select name="listby" class='form_item' onChange="setDivVisible(this.value);">
123 
					<option value="3" <%If parListBy = "3" Then%>selected<%End If%>>View by Projects</option>
 123 
                    <option value="3" <%If parListBy = "3" Then%>selected<%End If%>>View by Projects</option>
124 
					<option value="4" <%If parListBy = "4" Then%>selected<%End If%>>View by Projects - ALL</option>
 124 
                    <option value="4" <%If parListBy = "4" Then%>selected<%End If%>>View by Projects - ALL</option>
125 
					<option value="5" <%If parListBy = "5" Then%>selected<%End If%>>View by Releases</option>
 125 
                    <option value="5" <%If parListBy = "5" Then%>selected<%End If%>>View by Releases</option>
126 
					<option value="1" <%If parListBy = "1" Then%>selected<%End If%>>View by Packages</option>
 126 
                    <option value="1" <%If parListBy = "1" Then%>selected<%End If%>>View by Packages</option>
127 
					<option value="2" <%If parListBy = "2" Then%>selected<%End If%>>View by Files</option>
 127 
                    <option value="2" <%If parListBy = "2" Then%>selected<%End If%>>View by Files</option>
128 
				  </select>
 128 
                  </select>
129 
				  </td>
 129 
                  </td>
130 
                </tr>
 130 
                </tr>
131 
				</form>
 131 
                </form>
132 
            </table>
 132 
            </table>
133 
			</td>
 133 
            </td>
134 
		</tr>
134 
        </tr>
135 
		<tr>
135 
        <tr>
136 
          <td class='bg_dialog_line'></td>
 136 
          <td class='bg_dialog_line'></td>
137 
        </tr>
 137 
        </tr>
138 
	</table>
 138 
    </table>
139 
<!-- LIST BY RELEASES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 139 
<!-- LIST BY RELEASES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
140 
	<DIV name="DIVLIST5" id="DIVLIST5" style="display:none;">
 140 
    <DIV name="DIVLIST5" id="DIVLIST5" style="display:none;">
141 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 141 
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
142 
		<tr>
142 
        <tr>
143 
		   <td>
 143 
           <td>
144 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
 144 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
145 
                <tr>
 145 
                <tr>
146 
                  <td nowrap>
 146 
                  <td nowrap>
147 
				    <table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
148 
                      <form name="release_search" method="get" action="view_by_release.asp" onSubmit="MM_validateForm('releasename','Release keyword','R');return document.MM_returnValue">
 147 
                      <form name="release_search" method="get" action="view_by_release.asp" onSubmit="MM_validateForm('releasename','Release keyword','R');return document.MM_returnValue">
- 
 
 148 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
149 
                        <tr>
 149 
                            <tr>
150 
                          <td colspan="2" class="form_item">Find Release</td>
 150 
                              <td colspan="2" class="form_item">Find Release</td>
151 
                        </tr>
 151 
                            </tr>
152 
                        <tr>
 152 
                            <tr>
153 
                          <td valign="top" class="form_txt"><input id="DIVFOCUS5" name="releasename" type="text" class="form_item" size="25" value="<%=Request("releasename")%>">
 153 
                              <td valign="top" class="form_txt"><input id="DIVFOCUS5" name="releasename" type="search" class="formBtnEnable form_item" size="25" value="<%=Request("releasename")%>" placeholder="Enter search string">
154 
                          </td>
 154 
                              </td>
155 
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
 155 
                              <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
156 
                        </tr>
 156 
                            </tr>
157 
					  	<tr>
 157 
                            <tr>
158 
                          <td colspan="2" class="form_item">Browse</td>
 158 
                              <td colspan="2" class="form_item">Browse</td>
159 
                        </tr>
 159 
                            </tr>
160 
					  	<tr>
160 
                            <tr>
161 
	                      <td colspan="2"><%Call GenerateAtoZ(5,"view_by_release.asp", true)%></td>
 161 
                              <td colspan="2"><%Call GenerateAtoZ(5,"view_by_release.asp", true)%></td>
162 
	                    </tr>
 162 
                            </tr>
163 
						<input type="hidden" name="listby" value="5">
 163 
                            <input type="hidden" name="listby" value="5">
- 
 
 164 
                      </table>
164 
                      </form>
 165 
                      </form>
165 
		          </table>
 166 
                  </td>
166
- 
 
167 
				  </td>
 - 
 
168 
                </tr>
 167 
                </tr>
169 
            </table>
168 
            </table>
170 
		</td>
 169 
        </td>
171 
		<tr>
170 
        <tr>
172 
          <td class='bg_dialog_line'></td>
 171 
          <td class='bg_dialog_line'></td>
173 
        </tr>
 172 
        </tr>
174 
	</table>
 173 
    </table>
175 
	</DIV>
 174 
    </DIV>
176
175
177 
<!-- LIST BY PACKAGE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 176 
<!-- LIST BY PACKAGE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
178 
	<DIV name="DIVLIST1" id="DIVLIST1" style="display:none;">
 177 
    <DIV name="DIVLIST1" id="DIVLIST1" style="display:none;">
179 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 178 
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
180 
		<tr>
179 
        <tr>
181 
		   <td>
 180 
           <td>
182 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
 181 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
183 
                <tr>
 182 
                <tr>
184 
                  <td nowrap>
 183 
                  <td nowrap>
185 
				    <table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
186 
                      <form name="pkg_search" method="get" action="view_by_package.asp" onSubmit="MM_validateForm('pkgname','Package keyword','R');return document.MM_returnValue">
 184 
                      <form name="pkg_search" method="get" action="view_by_package.asp" onSubmit="MM_validateForm('pkgname','Package keyword','R');return document.MM_returnValue">
- 
 
 185 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
187 
                        <tr>
 186 
                            <tr>
188 
                          <td colspan="2" class="form_item">Find Package</td>
 187 
                              <td colspan="2" class="form_item">Find Package</td>
189 
                        </tr>
 188 
                            </tr>
190 
                        <tr>
 189 
                            <tr>
191 
                          <td valign="top" class="form_txt"><input id="DIVFOCUS1" name="pkgname" type="text" class="form_item" size="25" value="<%=Request("pkgname")%>">
 190 
                              <td valign="top" class="form_txt"><input id="DIVFOCUS1" name="pkgname" type="search" class="formBtnEnable form_item" size="25" value="<%=Request("pkgname")%>" placeholder="Enter search string">
192 
                          </td>
 191 
                              </td>
193 
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
 192 
                              <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
194 
                        </tr>
 193 
                            </tr>
195 
					  	<tr>
 194 
                            <tr>
196 
                          <td colspan="2" class="form_item">Browse</td>
 195 
                              <td colspan="2" class="form_item">Browse</td>
197 
                        </tr>
 196 
                            </tr>
198 
					  	<tr>
197 
                            <tr>
199 
	                      <td colspan="2"><%Call GenerateAtoZ(1,"view_by_package.asp",false)%></td>
 198 
                              <td colspan="2"><%Call GenerateAtoZ(1,"view_by_package.asp",false)%></td>
200 
	                    </tr>
 199 
                            </tr>
201 
						<input type="hidden" name="listby" value="1">
 200 
                            <input type="hidden" name="listby" value="1">
- 
 
 201 
                      </table>
202 
                      </form>
 202 
                      </form>
203 
		          </table>
 203 
                  </td>
204
- 
 
205 
				  </td>
 - 
 
206 
                </tr>
 204 
                </tr>
207 
            </table>
205 
            </table>
208 
		</td>
 206 
        </td>
209 
		<tr>
207 
        <tr>
210 
          <td class='bg_dialog_line'></td>
 208 
          <td class='bg_dialog_line'></td>
211 
        </tr>
 209 
        </tr>
212 
	</table>
 210 
    </table>
213 
	</DIV>
 211 
    </DIV>
214 
<!-- LIST BY FILES AND FOLDERS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 212 
<!-- LIST BY FILES AND FOLDERS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
215 
	<DIV name="DIVLIST2" id="DIVLIST2" style="display:none;">
 213 
    <DIV name="DIVLIST2" id="DIVLIST2" style="display:none;">
216 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 214 
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
217 
		<tr>
215 
        <tr>
218 
			<td>
 216 
            <td>
219 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
 217 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
220 
                <tr>
 218 
                <tr>
221 
                  <td nowrap>
 219 
                  <td nowrap>
222 
				    <table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
223 
                      <form name="pkg_search" method="get" action="view_by_file.asp" onSubmit="MM_validateForm('filename','File keyword','R');return document.MM_returnValue">
 220 
                      <form name="pkg_search" method="get" action="view_by_file.asp" onSubmit="MM_validateForm('filename','File keyword','R');return document.MM_returnValue">
- 
 
 221 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
224 
                        <tr>
 222 
                            <tr>
225 
                          <td colspan="2" class="form_item">Find File</td>
 223 
                              <td colspan="2" class="form_item">Find File</td>
226 
                        </tr>
 224 
                            </tr>
227 
                        <tr>
 225 
                            <tr>
228 
                          <td valign="top" class="form_txt"><input id="DIVFOCUS2" name="filename" type="text" class="form_item" size="25" value="<%=Request("filename")%>">
 226 
                              <td valign="top" class="form_txt"><input id="DIVFOCUS2" name="filename" type="search" class="formBtnEnable form_item" size="25" value="<%=Request("filename")%>" placeholder="Enter search string">
229 
                          </td>
 227 
                              </td>
230 
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
 228 
                              <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
231 
                        </tr>
 229 
                            </tr>
232 
					  	<tr>
 230 
                            <tr>
- 
 
 231 
                              <td colspan="2" class="form_item">
233 
                          <td colspan="2" class="form_item">HINTS:<br>- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br></td>
 232 
                                    HINTS:<br>- You can use * wildcard. e.g. *0123 or 0123* or *0123*
- 
 
 233 
                                          <br>- Some searches may take a long time. Be specific.
- 
 
 234 
                                          <br>- It will be faster to search within a specific release.
- 
 
 235 
                              </td>
234 
                        </tr>
236 
                            </tr>
235 
						<input type="hidden" name="listby" value="2">
 237 
                            <input type="hidden" name="listby" value="2">
- 
 
 238 
                      </table>
236 
                      </form>
 239 
                      </form>
237 
		          </table>
 240 
                  </td>
238
- 
 
239 
				  </td>
 - 
 
240 
                </tr>
 241 
                </tr>
241 
            </table>
242 
            </table>
242 
		</td>
 243 
        </td>
243 
		<tr>
244 
        <tr>
244 
          <td class='bg_dialog_line'></td>
 245 
          <td class='bg_dialog_line'></td>
245 
        </tr>
246 
        </tr>
246 
	</table>
 247 
    </table>
247 
	</DIV>
 248 
    </DIV>
248 
<!-- LIST BY PROJECT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 249 
<!-- LIST BY PROJECT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
249 
	<DIV name="DIVLIST3" id="DIVLIST3" style="display:none;">
 250 
    <DIV name="DIVLIST3" id="DIVLIST3" style="display:none;">
250 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 251 
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
251
252
252 
		<%Set rsProj = OraDatabase.DbCreateDynaset( Get_Projects, cint(0))
 253 
        <%Set rsProj = OraDatabase.DbCreateDynaset( Get_Projects, cint(0))
253 
		While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))%>
 254 
        While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))%>
254 
        <tr <%=Set_Row_Style( "rtree.asp?proj_id="&  rsProj.Fields("proj_id") )%>>
255 
        <tr <%=Set_Row_Style( "rtree.asp?proj_id="&  rsProj.Fields("proj_id") )%>>
255 
          <td nowrap><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><a href="rtree.asp?proj_id=<%=rsProj.Fields("proj_id")%>" class="form_txt_link"><%=UCase(rsProj.Fields("proj_name"))%></a></td>
 256 
          <td nowrap><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><a href="rtree.asp?proj_id=<%=rsProj.Fields("proj_id")%>" class="form_txt_link"><%=UCase(rsProj.Fields("proj_name"))%></a></td>
256 
        </tr>
 257 
        </tr>
257 
        <tr>
258 
        <tr>
258 
          <td class='bg_dialog_line'></td>
 259 
          <td class='bg_dialog_line'></td>
259 
        </tr>
 260 
        </tr>
260 
		<%rsProj.MoveNext
 261 
        <%rsProj.MoveNext
261 
	    WEnd%>
 262 
        WEnd%>
262 
		<%If rsProj.RecordCount < 1 Then%>
 263 
        <%If rsProj.RecordCount < 1 Then%>
263 
			<tr>
264 
            <tr>
264 
	          <td nowrap class="err_alert"><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><b>No projects available!</b></td>
 265 
              <td nowrap class="err_alert"><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><b>No projects available!</b></td>
265 
	        </tr>
 266 
            </tr>
266 
	        <tr>
267 
            <tr>
267 
	          <td class='bg_dialog_line'></td>
 268 
              <td class='bg_dialog_line'></td>
268 
	        </tr>
 269 
            </tr>
269 
		<%End If%>
 270 
        <%End If%>
270 
		<tr>
271 
        <tr>
271 
		<%If (canActionControl("CreateNewProject")) Then%>
 272 
        <%If (canActionControl("CreateNewProject")) Then%>
272 
          <td align="right" class=pointer onClick="MM_openVixIFrame('_wform_new_project.asp','Create a New Project')"><img src="images/bt_new_project.gif" width="16" height="16" border="0" vspace="5" hspace="5" align="absmiddle" title="Create new Project"></td>
 273 
          <td align="right" class=pointer onClick="MM_openVixIFrame('_wform_new_project.asp','Create a New Project')"><img src="images/bt_new_project.gif" width="16" height="16" border="0" vspace="5" hspace="5" align="absmiddle" title="Create new Project"></td>
273 
        </tr>
 274 
        </tr>
274 
		<%End If%>
 275 
        <%End If%>
275 
	</table>
 276 
    </table>
276 
	</DIV>
277 
    </DIV>
277 
<!-- LIST BY PROJECT ALL ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 278 
<!-- LIST BY PROJECT ALL ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
278 
	<DIV name="DIVLIST4" id="DIVLIST4" style="display:none;">
 279 
    <DIV name="DIVLIST4" id="DIVLIST4" style="display:none;">
279 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 280 
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
280
281
281 
		<%Set rsProj = OraDatabase.DbCreateDynaset( Get_All_Projects, cint(0))
 282 
        <%Set rsProj = OraDatabase.DbCreateDynaset( Get_All_Projects, cint(0))
282 
		While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))%>
 283 
        While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))%>
283 
        <tr <%=Set_Row_Style( "rtree.asp?proj_id="&  rsProj.Fields("proj_id") )%>>
284 
        <tr <%=Set_Row_Style( "rtree.asp?proj_id="&  rsProj.Fields("proj_id") )%>>
284 
          <td nowrap><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><a href="rtree.asp?proj_id=<%=rsProj.Fields("proj_id")%>" class="form_txt_link"><%=UCase(rsProj.Fields("proj_name"))%></a></td>
 285 
          <td nowrap><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><a href="rtree.asp?proj_id=<%=rsProj.Fields("proj_id")%>" class="form_txt_link"><%=UCase(rsProj.Fields("proj_name"))%></a></td>
285 
        </tr>
 286 
        </tr>
286 
        <tr>
287 
        <tr>
287 
          <td class='bg_dialog_line'></td>
 288 
          <td class='bg_dialog_line'></td>
288 
        </tr>
 289 
        </tr>
289 
		<%rsProj.MoveNext
 290 
        <%rsProj.MoveNext
290 
	    WEnd%>
 291 
        WEnd%>
291 
		<%If rsProj.RecordCount < 1 Then%>
 292 
        <%If rsProj.RecordCount < 1 Then%>
292 
			<tr>
293 
            <tr>
293 
	          <td nowrap class="err_alert"><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><b>No projects available!</b></td>
 294 
              <td nowrap class="err_alert"><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><b>No projects available!</b></td>
294 
	        </tr>
 295 
            </tr>
295 
	        <tr>
296 
            <tr>
296 
	          <td class='bg_dialog_line'></td>
 297 
              <td class='bg_dialog_line'></td>
297 
	        </tr>
 298 
            </tr>
298 
		<%End If%>
 299 
        <%End If%>
299 
		<tr>
300 
        <tr>
300 
		<%If (canActionControl("CreateNewProject")) Then%>
 301 
        <%If (canActionControl("CreateNewProject")) Then%>
301 
            <td align="right" class=pointer onClick="MM_openVixIFrame('_wform_new_project.asp','Create a New Project')"><img src="images/bt_new_project.gif" width="16" height="16" border="0" vspace="5" hspace="5" align="absmiddle" title="Create new Project"></td>
 302 
            <td align="right" class=pointer onClick="MM_openVixIFrame('_wform_new_project.asp','Create a New Project')"><img src="images/bt_new_project.gif" width="16" height="16" border="0" vspace="5" hspace="5" align="absmiddle" title="Create new Project"></td>
302 
        </tr>
 303 
        </tr>
303 
		<%End If%>
 304 
        <%End If%>
304 
	</table>
 305 
    </table>
305 
	</DIV>
306 
    </DIV>
306 
<!-- END OF LIST BY ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 307 
<!-- END OF LIST BY ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
307 
<script language="JavaScript" type="text/javascript">
 308 
<script language="JavaScript" type="text/javascript">
308 
<!--
309 
<!--
309 
// Set List visibility
 310 
// Set List visibility
310 
Visible ("DIVLIST1","none","DIVLIST2","none","DIVLIST3","none","DIVLIST4","none");
 311 
Visible ("DIVLIST1","none","DIVLIST2","none","DIVLIST3","none","DIVLIST4","none");
311 
Visible ("DIVLIST<%=parListBy%>","block");
 312 
Visible ("DIVLIST<%=parListBy%>","block");
312 
//-->
 313 
//-->
313 
</script>
 314 
</script>
314
315
315
316
316 

            317