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>"