Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5523
Line 36... Line 36...
36 
'------------ CONSTANTS DECLARATION -----------
 36 
'------------ CONSTANTS DECLARATION -----------
37 
'------------ VARIABLE INIT -------------------
 37 
'------------ VARIABLE INIT -------------------
38 
sMessage = NULL
 38 
sMessage = NULL
39 
 
 39 
 
40 
parRtag_id = Request("rtag_id")
 40 
parRtag_id = Request("rtag_id")
- 
 
 41 
bmcon_id = RequestDefault("bmcon_id",Request("base_bmcon_id"))
41 
 
 42 
 
42 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 43 
Set objFormCollector = CreateObject("Scripting.Dictionary")
43 
'------------ CONDITIONS ----------------------
 44 
'------------ CONDITIONS ----------------------
44 
'----------------------------------------------
 45 
'----------------------------------------------
45 
%>
 46 
%>
Line 81... Line 82...
81 
<%
 82 
<%
82 
'------------ RUN BEFORE PAGE RENDER ----------
 83 
'------------ RUN BEFORE PAGE RENDER ----------
83 
 
 84 
 
84 
If CBool(Request("action")) Then
 85 
If CBool(Request("action")) Then
85 
 
 86 
 
86 
    If  Request("bmcon_id") = "" Then
 87 
    If  bmcon_id = "" Then
87 
        sMessage = "Select a Build Machine before updating the entry"
 88 
        sMessage = "Select a Build Machine before updating the entry"
88 
    Else
 89 
    Else
89 
 
 90 
 
90 
       '    Add or Update after the users edit session
 91 
       '    Add or Update after the users edit session
91 
       If Request("rcon_id") <> "" Then
 92 
       If Request("rcon_id") <> "" Then
92 
 
 93 
 
93 
          OraDatabase.Parameters.Add "RCON_ID",         Request("rcon_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
 94 
          OraDatabase.Parameters.Add "RCON_ID",         Request("rcon_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
94 
          OraDatabase.Parameters.Add "BMCON_ID",        Request("bmcon_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
 95 
          OraDatabase.Parameters.Add "BMCON_ID",        bmcon_id,                   ORAPARM_INPUT, ORATYPE_NUMBER
95 
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
 96 
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
96 
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 97 
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
97 
 
 98 
 
98 
          objEH.TryORA ( OraSession )
 99 
          objEH.TryORA ( OraSession )
99 
          On Error Resume Next
 100 
          On Error Resume Next
Line 116... Line 117...
116 
          rsQry.Close
 117 
          rsQry.Close
117 
          Set rsQry = nothing
 118 
          Set rsQry = nothing
118 
 
 119 
 
119 
       Else
 120 
       Else
120 
          OraDatabase.Parameters.Add "RTAG_ID",         Request("rtag_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
 121 
          OraDatabase.Parameters.Add "RTAG_ID",         Request("rtag_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
121 
          OraDatabase.Parameters.Add "BMCON_ID",        Request("bmcon_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
 122 
          OraDatabase.Parameters.Add "BMCON_ID",        bmcon_id,                   ORAPARM_INPUT, ORATYPE_NUMBER
122 
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
 123 
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
123 
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 124 
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
124 
 
 125 
 
125 
          objEH.TryORA ( OraSession )
 126 
          objEH.TryORA ( OraSession )
126 
          On Error Resume Next
 127 
          On Error Resume Next
Line 293... Line 294...
293 
         </table>
 294 
         </table>
294 
      </td>
 295 
      </td>
295 
   </tr>
 296 
   </tr>
296 
   <%=objPMod.ComposeHiddenTags()%>
 297 
   <%=objPMod.ComposeHiddenTags()%>
297 
   <input type="hidden" name="action" value="true">
 298 
   <input type="hidden" name="action" value="true">
- 
 
 299 
   <input type="hidden" name="base_bmcon_id" value="<%=bmcon_id%>">
298 
 
 300 
 
299 
   <%
 301 
   <%
300 
   Call objFormComponent.FormEnd()
 302 
   Call objFormComponent.FormEnd()
301 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
 303 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
302 
   %>
 304 
   %>