Subversion Repositories DevTools

Rev

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

Rev 3911 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wNodeSpec					 	 |
 5 
'|			          wNodeSpec					 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
 16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<!--#include file="class/classTabControl.asp"-->
 17 
<!--#include file="class/classTabControl.asp"-->
18 
<!--#include file="class/classTemplateManager.asp"-->
 18 
<!--#include file="class/classTemplateManager.asp"-->
19 
<%
 19 
<%
20 
'------------ ACCESS CONTROL ------------------
 20 
'------------ ACCESS CONTROL ------------------
21 
%>
 21 
%>
22 
<!--#include file="_access_control_general.asp"-->
 22 
<!--#include file="_access_control_general.asp"-->
23 
<%
 23 
<%
24 
'------------ VARIABLE DEFINITION -------------
 24 
'------------ VARIABLE DEFINITION -------------
25 
Dim objTabControl
 25 
Dim objTabControl
26 
Dim objTemplateManager
 26 
Dim objTemplateManager
27 
Dim rsQry
 27 
Dim rsQry
28 
Dim OsTab
 28 
Dim OsTab
29 
'------------ CONSTANTS DECLARATION -----------
 29 
'------------ CONSTANTS DECLARATION -----------
30 
'------------ VARIABLE INIT -------------------
 30 
'------------ VARIABLE INIT -------------------
31 
 
 31 
 
32 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
 32 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
33 
parNode_id = dbPARnode_id
 33 
parNode_id = dbPARnode_id
34 
parOs_id = dbPARos_id
 34 
parOs_id = dbPARos_id
35 
'------------ CONDITIONS ----------------------
 35 
'------------ CONDITIONS ----------------------
36 
'----------------------------------------------
 36 
'----------------------------------------------
37 
'------------ RUN BEFORE PAGE RENDER ----------
 37 
'------------ RUN BEFORE PAGE RENDER ----------
38 
'----------------------------------------------
 38 
'----------------------------------------------
39 
%>
 39 
%>
40 
<html>
 40 
<html>
41 
<head>
 41 
<head>
42 
<title>Deployment Manager</title>
 42 
<title>Deployment Manager</title>
43 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 43 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
44 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 44 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
45 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 45 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
46 
<script language="JavaScript" src="scripts/common.js"></script>
 46 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
47 
<!-- Include VBScript shared with WSF component -->
 47 
<script language="JavaScript" src="scripts/common.js"></script>
48 
<script language="VBScript" runat="server" src="common/nodeSpec.vbs"></script>
 48 
<!-- Include VBScript shared with WSF component -->
49 
</head>
 49 
<script language="VBScript" runat="server" src="common/nodeSpec.vbs"></script>
50 
 
 50 
</head>
51 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.os_name.focus();">
 51 
 
52 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 52 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.os_name.focus();">
53 
  <tr>
 53 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
54 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Node Spec Export </span> <br>
 54 
  <tr>
55 
    Click on the text to select.</td>
 55 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Node Spec Export </span> <br>
56 
  </tr>
 56 
    Click on the text to select.</td>
57 
</table>
 57 
  </tr>
58 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 58 
</table>
59 
  <tr>
 59 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
60 
    <td width="1" background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="35"></td>
 60 
  <tr>
61 
    <td width="100%" background="images/bg_blue.gif" valign="bottom">
 61 
    <td width="1" background="images/bg_blue.gif"><img src="images/spacer.gif" width="10" height="35"></td>
62 
	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 62 
    <td width="100%" background="images/bg_blue.gif" valign="bottom">
63 
		<%
 63 
	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
64 
		'[1] Tab Name
 64 
		<%
65 
		'[2] Tab Link
 65 
		'[1] Tab Name
66 
		'[3] JavaScript Event e.g. "onClick='...'"
 66 
		'[2] Tab Link
67 
		'[4] Tab Image Selected
 67 
		'[3] JavaScript Event e.g. "onClick='...'"
68 
		'[5] Tab Image Diselected
 68 
		'[4] Tab Image Selected
69 
		'[6] Tab Image Disabled
 69 
		'[5] Tab Image Diselected
70 
		'[7] Tab Hint
 70 
		'[6] Tab Image Disabled
71 
		'[8] Force Disable. Values: Y, N(default)
 71 
		'[7] Tab Hint
72
72 
		'[8] Force Disable. Values: Y, N(default)
73 
		OraDatabase.Parameters.Add "NODE_ID", parNode_id, ORAPARM_INPUT, ORATYPE_NUMBER
 73
74
74 
		OraDatabase.Parameters.Add "NODE_ID", parNode_id, ORAPARM_INPUT, ORATYPE_NUMBER
75 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OsList.sql"), ORADYN_DEFAULT )
 75
76
76 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OsList.sql"), ORADYN_DEFAULT )
77 
		OraDatabase.Parameters.Remove "NODE_ID"
 77
78
78 
		OraDatabase.Parameters.Remove "NODE_ID"
79
79
80 
		Set objTabControl = New TabControl
 80
81 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
 81 
		Set objTabControl = New TabControl
82 
		objTabControl.TabStyle = "StyleWinXP"
 82 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
83
83 
		objTabControl.TabStyle = "StyleWinXP"
84 
		If Request("ostab") <> "" Then
 84
85 
			OsTab = CDbl( Request("ostab") )
 85 
		If Request("ostab") <> "" Then
86 
		Else
 86 
			OsTab = CDbl( Request("ostab") )
87 
			OsTab = 0
 87 
		Else
88 
		End If
 88 
			OsTab = 0
89
89 
		End If
90 
		While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 90
91
91 
		While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
92 
			objTabControl.Add ( Array( rsQry("os_name"), SCRIPT_NAME &"?ostab="& rsQry("os_id") &"&"& objPMod.ComposeURL() , "", "", "", "", "", "" ) )
 92
93
93 
			objTabControl.Add ( Array( rsQry("os_name"), SCRIPT_NAME &"?ostab="& rsQry("os_id") &"&"& objPMod.ComposeURL() , "", "", "", "", "", "" ) )
94 
			If OsTab = 0 Then
 94
95 
				OsTab = CDbl( rsQry("os_id"))
 95 
			If OsTab = 0 Then
96 
				objTabControl.SelectByName rsQry("os_name")
 96 
				OsTab = CDbl( rsQry("os_id"))
97
97 
				objTabControl.SelectByName rsQry("os_name")
98 
			ElseIf OsTab = CDbl(rsQry("os_id")) Then
 98
99 
				OsTab = rsQry("os_id")
 99 
			ElseIf OsTab = CDbl(rsQry("os_id")) Then
100 
				objTabControl.SelectByName rsQry("os_name")
 100 
				OsTab = rsQry("os_id")
101
101 
				objTabControl.SelectByName rsQry("os_name")
102 
			End If
 102
103
103 
			End If
104 
			rsQry.MoveNext()
 104
105 
		WEnd
 105 
			rsQry.MoveNext()
106
106 
		WEnd
107 
		rsQry.Close()
 107
108 
		Set rsQry = nothing
 108 
		rsQry.Close()
109
109 
		Set rsQry = nothing
110
110
111 
		objTabControl.Render ()
 111
112 
		%>
 112 
		objTabControl.Render ()
113 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
 113 
		%>
114 
	</td>
 114 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
115 
    <td width="1" background="images/bg_blue.gif"></td>
 115 
	</td>
116 
  </tr>
 116 
    <td width="1" background="images/bg_blue.gif"></td>
117 
  <tr>
 117 
  </tr>
118 
    <td>&nbsp;</td>
 118 
  <tr>
119 
    <td><br><textarea name="textfield" cols="70" rows="20" wrap="OFF" class="body_cmd" onFocus="this.select()"><%=GenerateOsSpec( OsTab )%></textarea></td>
 119 
    <td>&nbsp;</td>
120 
    <td>&nbsp;</td>
 120 
    <td><br><textarea name="textfield" cols="70" rows="20" wrap="OFF" class="body_cmd" onFocus="this.select()"><%=GenerateOsSpec( OsTab )%></textarea></td>
121 
  </tr>
 121 
    <td>&nbsp;</td>
122 
</table>
 122 
  </tr>
123 
</body>
 123 
</table>
124 
</html>
 124 
</body>
125 
<%
 125 
</html>
126 
'------------ RUN AFTER PAGE RENDER -----------
 126 
<%
127 
'----------------------------------------------
 127 
'------------ RUN AFTER PAGE RENDER -----------
128 
%><!--#include file="common/globals_destructor.asp"-->
 128 
'----------------------------------------------
- 
 
 129 
%><!--#include file="common/globals_destructor.asp"-->