WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/wAddPkgReplica.asp



'------------ VARIABLE DEFINITION -------------
Dim rsQry
Dim sMessage
Dim Query_String
 
Dim server_id,server_name,display_name, active, mode, description 
Dim activeChecked
 
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
sMessage = NULL

      OraDatabase.Parameters.Add "SERVER_ID",           Request("server_id"),               ORAPARM_INPUT, ORATYPE_NUMBER
      OraDatabase.Parameters.Add "DISPLAY_NAME",        displayName,                        ORAPARM_INPUT, ORATYPE_VARCHAR2
      OraDatabase.Parameters.Add "server_name",         Request("server_name"),             ORAPARM_INPUT, ORATYPE_VARCHAR2
      OraDatabase.Parameters.Add "DESCRIPTION",         Request("description"),             ORAPARM_INPUT, ORATYPE_VARCHAR2
      OraDatabase.Parameters.Add "ACTIVE",              Request("active"),                  ORAPARM_INPUT, ORATYPE_CHAR
      OraDatabase.Parameters.Add "MODE",                Request("mode"),                    ORAPARM_INPUT, ORATYPE_CHAR
 
      objEH.ErrorRedirect = FALSE
      objEH.TryORA ( OraSession )
      On Error Resume Next
 
      OraDatabase.ExecuteSQL _
      "BEGIN  PK_BLATAPI.UPDATE_PKG_REPLICA(:server_id, :DISPLAY_NAME, :server_name, :DESCRIPTION, :ACTIVE, :MODE);  END;"
 
      objEH.CatchORA ( OraSession )
 
      OraDatabase.Parameters.Remove "SERVER_ID"
      OraDatabase.Parameters.Remove "DISPLAY_NAME"
      OraDatabase.Parameters.Remove "SERVER_NAME"
      OraDatabase.Parameters.Remove "DESCRIPTION"
      OraDatabase.Parameters.Remove "ACTIVE"
      OraDatabase.Parameters.Remove "MODE"
 
      If objEH.Finally Then
         Call OpenInParentWindow ("admin_blat_machines.asp?server_id="&Request("server_id"))
         Call CloseWindow()
      End If

   Else
      OraDatabase.Parameters.Add "DISPLAY_NAME",        displayName,                    ORAPARM_INPUT, ORATYPE_VARCHAR2
      OraDatabase.Parameters.Add "SERVER_NAME",         Request("server_name"),         ORAPARM_INPUT, ORATYPE_VARCHAR2
      OraDatabase.Parameters.Add "DESCRIPTION",         Request("description"),         ORAPARM_INPUT, ORATYPE_VARCHAR2
      OraDatabase.Parameters.Add "ACTIVE",              Request("active"),              ORAPARM_INPUT, ORATYPE_CHAR
      OraDatabase.Parameters.Add "MODE",                Request("mode"),                ORAPARM_INPUT, ORATYPE_CHAR
 
      objEH.ErrorRedirect = FALSE
      objEH.TryORA ( OraSession )
      On Error Resume Next
 
      OraDatabase.ExecuteSQL "BEGIN  PK_BLATAPI.ADD_PKG_REPLICA(:DISPLAY_NAME, :SERVER_NAME, :DESCRIPTION, :ACTIVE, :MODE);  END;"
 
      objEH.CatchORA ( OraSession )
 
      OraDatabase.Parameters.Remove "DISPLAY_NAME"
      OraDatabase.Parameters.Remove "SERVER_NAME"
      OraDatabase.Parameters.Remove "DESCRIPTION"
      OraDatabase.Parameters.Remove "ACTIVE"
      OraDatabase.Parameters.Remove "MODE"
 
      If objEH.Finally Then
         Call OpenInParentWindow ("admin_blat_machines.asp?server_id="&Request("server_id"))
         Call CloseWindow()
      End If

 
'----------------------------------------------
'   Generate HTML to show/display the Replicate mode Compo Box
Sub GenReplicateModeCombo(cMode)
 
    Response.Write "<select  class = 'form_item' name=mode>"
 
    Response.Write "<option value = 'N' " & IIF(cmode = "N", "selected", "" ) &" >Normal</option>"
    Response.Write "<option value = 'P' " & IIF(cmode = "P", "selected", "" ) &" >All Projects</option>"
    Response.Write "<option value = 'E' " & IIF(cmode = "E", "selected", "" ) &" >Entire Archive</option>"
 

            %>
            <input type="hidden" name="server_id" value="<%=Request("server_id")%>">
            <%
            Dim rsTemp
 
            Query_String = "select blat_id, blat_server_name, blat_display_name,blat_enable,blat_mode, blat_description from BLAT_SERVERS where blat_id = " & Request("server_id")
            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 
            server_name     = rsTemp("blat_server_name")
            display_name    = rsTemp("blat_display_name")
            active          = rsTemp("blat_enable")
            mode            = rsTemp("blat_mode")
            description     = rsTemp("blat_description")
 
            activeChecked = ""
            if active = "Y" Then activeChecked = "checked"
 
            rsTemp.Close()
            Set rsTemp = Nothing      
          Else
            activeChecked = "checked"
            mode = "N"
          End If%>
         
         <table width="50%" border="0">
            <tr>
               <td><span class="body_txt">Server Name</span></td>

               </td>
            </tr>
            <tr>
               <td><span class="body_txt nowrap">Replication Mode</span></td>
               <td>
                    <%Call GenReplicateModeCombo(mode) %>
               </td>
            </tr>
            <tr>
               <td><span class="body_txt nowrap">Description</span></td>
               <td>

Rev 6774	Rev 6775
Line 26...	Line 26...
26	`'------------ VARIABLE DEFINITION -------------`	26	`'------------ VARIABLE DEFINITION -------------`
27	`Dim rsQry`	27	`Dim rsQry`
28	`Dim sMessage`	28	`Dim sMessage`
29	`Dim Query_String`	29	`Dim Query_String`
30		30
31	`Dim server_id,server_name,display_name, active, full, description`	31	`Dim server_id,server_name,display_name, active, mode, description`
32	`Dim activeChecked`	32	`Dim activeChecked`
33		33
34	`'------------ CONSTANTS DECLARATION -----------`	34	`'------------ CONSTANTS DECLARATION -----------`
35	`'------------ VARIABLE INIT -------------------`	35	`'------------ VARIABLE INIT -------------------`
36	`sMessage = NULL`	36	`sMessage = NULL`
Line 53...	Line 53...
53	`OraDatabase.Parameters.Add "SERVER_ID", Request("server_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	53	`OraDatabase.Parameters.Add "SERVER_ID", Request("server_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
54	`OraDatabase.Parameters.Add "DISPLAY_NAME", displayName, ORAPARM_INPUT, ORATYPE_VARCHAR2`	54	`OraDatabase.Parameters.Add "DISPLAY_NAME", displayName, ORAPARM_INPUT, ORATYPE_VARCHAR2`
55	`OraDatabase.Parameters.Add "server_name", Request("server_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	55	`OraDatabase.Parameters.Add "server_name", Request("server_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
56	`OraDatabase.Parameters.Add "DESCRIPTION", Request("description"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	56	`OraDatabase.Parameters.Add "DESCRIPTION", Request("description"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
57	`OraDatabase.Parameters.Add "ACTIVE", Request("active"), ORAPARM_INPUT, ORATYPE_CHAR`	57	`OraDatabase.Parameters.Add "ACTIVE", Request("active"), ORAPARM_INPUT, ORATYPE_CHAR`
58	`OraDatabase.Parameters.Add "FULL", Request("full"), ORAPARM_INPUT, ORATYPE_CHAR`	58	`OraDatabase.Parameters.Add "MODE", Request("mode"), ORAPARM_INPUT, ORATYPE_CHAR`
59		59
60	`objEH.ErrorRedirect = FALSE`	60	`objEH.ErrorRedirect = FALSE`
61	`objEH.TryORA ( OraSession )`	61	`objEH.TryORA ( OraSession )`
62	`On Error Resume Next`	62	`On Error Resume Next`
63		63
64	`OraDatabase.ExecuteSQL _`	64	`OraDatabase.ExecuteSQL _`
65	`"BEGIN PK_BLATAPI.UPDATE_PKG_REPLICA(:server_id, :DISPLAY_NAME, :server_name, :DESCRIPTION, :ACTIVE, :FULL); END;"`	65	`"BEGIN PK_BLATAPI.UPDATE_PKG_REPLICA(:server_id, :DISPLAY_NAME, :server_name, :DESCRIPTION, :ACTIVE, :MODE); END;"`
66		66
67	`objEH.CatchORA ( OraSession )`	67	`objEH.CatchORA ( OraSession )`
68		68
69	`OraDatabase.Parameters.Remove "SERVER_ID"`	69	`OraDatabase.Parameters.Remove "SERVER_ID"`
70	`OraDatabase.Parameters.Remove "DISPLAY_NAME"`	70	`OraDatabase.Parameters.Remove "DISPLAY_NAME"`
71	`OraDatabase.Parameters.Remove "SERVER_NAME"`	71	`OraDatabase.Parameters.Remove "SERVER_NAME"`
72	`OraDatabase.Parameters.Remove "DESCRIPTION"`	72	`OraDatabase.Parameters.Remove "DESCRIPTION"`
73	`OraDatabase.Parameters.Remove "ACTIVE"`	73	`OraDatabase.Parameters.Remove "ACTIVE"`
74	`OraDatabase.Parameters.Remove "FULL"`	74	`OraDatabase.Parameters.Remove "MODE"`
75		75
76	`If objEH.Finally Then`	76	`If objEH.Finally Then`
77	`Call OpenInParentWindow ("admin_blat_machines.asp?server_id="&Request("server_id"))`	77	`Call OpenInParentWindow ("admin_blat_machines.asp?server_id="&Request("server_id"))`
78	`Call CloseWindow()`	78	`Call CloseWindow()`
79	`End If`	79	`End If`
Line 84...	Line 84...
84	`Else`	84	`Else`
85	`OraDatabase.Parameters.Add "DISPLAY_NAME", displayName, ORAPARM_INPUT, ORATYPE_VARCHAR2`	85	`OraDatabase.Parameters.Add "DISPLAY_NAME", displayName, ORAPARM_INPUT, ORATYPE_VARCHAR2`
86	`OraDatabase.Parameters.Add "SERVER_NAME", Request("server_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	86	`OraDatabase.Parameters.Add "SERVER_NAME", Request("server_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
87	`OraDatabase.Parameters.Add "DESCRIPTION", Request("description"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	87	`OraDatabase.Parameters.Add "DESCRIPTION", Request("description"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
88	`OraDatabase.Parameters.Add "ACTIVE", Request("active"), ORAPARM_INPUT, ORATYPE_CHAR`	88	`OraDatabase.Parameters.Add "ACTIVE", Request("active"), ORAPARM_INPUT, ORATYPE_CHAR`
89	`OraDatabase.Parameters.Add "FULL", Request("full"), ORAPARM_INPUT, ORATYPE_CHAR`	89	`OraDatabase.Parameters.Add "MODE", Request("mode"), ORAPARM_INPUT, ORATYPE_CHAR`
90		90
91	`objEH.ErrorRedirect = FALSE`	91	`objEH.ErrorRedirect = FALSE`
92	`objEH.TryORA ( OraSession )`	92	`objEH.TryORA ( OraSession )`
93	`On Error Resume Next`	93	`On Error Resume Next`
94		94
95	`OraDatabase.ExecuteSQL "BEGIN PK_BLATAPI.ADD_PKG_REPLICA(:DISPLAY_NAME, :SERVER_NAME, :DESCRIPTION, :ACTIVE, :FULL); END;"`	95	`OraDatabase.ExecuteSQL "BEGIN PK_BLATAPI.ADD_PKG_REPLICA(:DISPLAY_NAME, :SERVER_NAME, :DESCRIPTION, :ACTIVE, :MODE); END;"`
96		96
97	`objEH.CatchORA ( OraSession )`	97	`objEH.CatchORA ( OraSession )`
98		98
99	`OraDatabase.Parameters.Remove "DISPLAY_NAME"`	99	`OraDatabase.Parameters.Remove "DISPLAY_NAME"`
100	`OraDatabase.Parameters.Remove "SERVER_NAME"`	100	`OraDatabase.Parameters.Remove "SERVER_NAME"`
101	`OraDatabase.Parameters.Remove "DESCRIPTION"`	101	`OraDatabase.Parameters.Remove "DESCRIPTION"`
102	`OraDatabase.Parameters.Remove "ACTIVE"`	102	`OraDatabase.Parameters.Remove "ACTIVE"`
103	`OraDatabase.Parameters.Remove "FULL"`	103	`OraDatabase.Parameters.Remove "MODE"`
104		104
105	`If objEH.Finally Then`	105	`If objEH.Finally Then`
106	`Call OpenInParentWindow ("admin_blat_machines.asp?server_id="&Request("server_id"))`	106	`Call OpenInParentWindow ("admin_blat_machines.asp?server_id="&Request("server_id"))`
107	`Call CloseWindow()`	107	`Call CloseWindow()`
108	`End If`	108	`End If`
Line 116...	Line 116...
116		116
117	`'----------------------------------------------`	117	`'----------------------------------------------`
118	`' Generate HTML to show/display the Replicate mode Compo Box`	118	`' Generate HTML to show/display the Replicate mode Compo Box`
119	`Sub GenReplicateModeCombo(cMode)`	119	`Sub GenReplicateModeCombo(cMode)`
120		120
121	`Response.Write "<select class = 'form_item' name=full>"`	121	`Response.Write "<select class = 'form_item' name=mode>"`
122		122
123	`Response.Write "<option value = 'N' " & IIF(cmode = "N", "selected", "" ) &" >Normal</option>"`	123	`Response.Write "<option value = 'N' " & IIF(cmode = "N", "selected", "" ) &" >Normal</option>"`
124	`Response.Write "<option value = 'P' " & IIF(cmode = "P", "selected", "" ) &" >All Projects</option>"`	124	`Response.Write "<option value = 'P' " & IIF(cmode = "P", "selected", "" ) &" >All Projects</option>"`
125	`Response.Write "<option value = 'E' " & IIF(cmode = "E", "selected", "" ) &" >Entire Archive</option>"`	125	`Response.Write "<option value = 'E' " & IIF(cmode = "E", "selected", "" ) &" >Entire Archive</option>"`
126		126
Line 166...	Line 166...
166	`%>`	166	`%>`
167	`<input type="hidden" name="server_id" value="<%=Request("server_id")%>">`	167	`<input type="hidden" name="server_id" value="<%=Request("server_id")%>">`
168	`<%`	168	`<%`
169	`Dim rsTemp`	169	`Dim rsTemp`
170		170
171	`Query_String = "select blat_id, blat_server_name, blat_display_name,blat_enable,blat_full, blat_description from BLAT_SERVERS where blat_id = " & Request("server_id")`	171	`Query_String = "select blat_id, blat_server_name, blat_display_name,blat_enable,blat_mode, blat_description from BLAT_SERVERS where blat_id = " & Request("server_id")`
172	`Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))`	172	`Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))`
173		173
174	`server_name = rsTemp("blat_server_name")`	174	`server_name = rsTemp("blat_server_name")`
175	`display_name = rsTemp("blat_display_name")`	175	`display_name = rsTemp("blat_display_name")`
176	`active = rsTemp("blat_enable")`	176	`active = rsTemp("blat_enable")`
177	`full = rsTemp("blat_full")`	177	`mode = rsTemp("blat_mode")`
178	`description = rsTemp("blat_description")`	178	`description = rsTemp("blat_description")`
179		179
180	`activeChecked = ""`	180	`activeChecked = ""`
181	`if active = "Y" Then activeChecked = "checked"`	181	`if active = "Y" Then activeChecked = "checked"`
182		182
183	`rsTemp.Close()`	183	`rsTemp.Close()`
184	`Set rsTemp = Nothing`	184	`Set rsTemp = Nothing`
185	`Else`	185	`Else`
186	`activeChecked = "checked"`	186	`activeChecked = "checked"`
187	`full = "N"`	187	`mode = "N"`
188	`End If%>`	188	`End If%>`
189		189
190	`<table width="50%" border="0">`	190	`<table width="50%" border="0">`
191	`<tr>`	191	`<tr>`
192	`<td><span class="body_txt">Server Name</span></td>`	192	`<td><span class="body_txt">Server Name</span></td>`
Line 208...	Line 208...
208	`</td>`	208	`</td>`
209	`</tr>`	209	`</tr>`
210	`<tr>`	210	`<tr>`
211	`<td><span class="body_txt nowrap">Replication Mode</span></td>`	211	`<td><span class="body_txt nowrap">Replication Mode</span></td>`
212	`<td>`	212	`<td>`
213	`<%Call GenReplicateModeCombo(full) %>`	213	`<%Call GenReplicateModeCombo(mode) %>`
214	`</td>`	214	`</td>`
215	`</tr>`	215	`</tr>`
216	`<tr>`	216	`<tr>`
217	`<td><span class="body_txt nowrap">Description</span></td>`	217	`<td><span class="body_txt nowrap">Description</span></td>`
218	`<td>`	218	`<td>`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/wAddPkgReplica.asp – Rev 6774 → 6775