Subversion Repositories DevTools

Rev

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

Rev 5514 Rev 5962
Line 9... Line 9...
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
' Good idea to set when using redirect
 11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
 12 
Response.Expires = 0	' always load the page, dont store
13 
%>
 13 
%>
14 
 
 - 
 
15 
 
 - 
 
16 
 
 - 
 
17 
<%
 14 
<%
18 
'------------ ACCESS CONTROL ------------------
 15 
'------------ ACCESS CONTROL ------------------
19 
%>
 16 
%>
20 
 
 - 
 
21 
<%
 17 
<%
22 
'------------ Variable Definition -------------
 18 
'------------ Variable Definition -------------
23 
Dim rsRep
 19 
Dim rsRep
24 
Dim parKeyword
 20 
Dim parKeyword
25 
Dim parBrowse
 21 
Dim parBrowse
Line 33... Line 29...
33 
'-----------------------------------------------------------------------------------------------------------------------
 29 
'-----------------------------------------------------------------------------------------------------------------------
34 
'-----------------------------------------------------------------------------------------------------------------------
 30 
'-----------------------------------------------------------------------------------------------------------------------
35 
%>
 31 
%>
36 
<%
 32 
<%
37 
'==================== MAIN LINE ===============================
 33 
'==================== MAIN LINE ===============================
38 
If (parKeyword = "") AND (parBrowse = "") Then Response.Redirect ("index.asp")
 34 
If (parKeyword = "") AND (parBrowse = "") Then
- 
 
 35 
    Call Destroy_All_Objects
- 
 
 36 
    Response.Redirect ("index.asp")
- 
 
 37 
End If
39 
'==============================================================
 38 
'==============================================================
40 
%>
 39 
%>
41 
<html>
 40 
<html>
42 
<head>
 41 
<head>
43 
<title>Deployment Manager</title>
 42 
<title>Deployment Manager</title>
Line 103... Line 102...
103 
					<%End If%>
 102 
					<%End If%>
104 
					</td>
 103 
					</td>
105 
                  </tr>
 104 
                  </tr>
106 
                </table>
 105 
                </table>
107
106
108
- 
 
109
- 
 
110 
				<table width="100%" border="0" cellspacing="1" cellpadding="5">
 107 
				<table width="100%" border="0" cellspacing="1" cellpadding="5">
111 
				  <%
 108 
				  <%
112 
				  If rsRep.RecordCount = 0 Then
 109 
				  If rsRep.RecordCount = 0 Then
113 
					With Response
 110 
					With Response
114 
						.write "<tr>"
 111 
						.write "<tr>"