Subversion Repositories DevTools

Rev

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

Rev 171 Rev 1376
Line 30... Line 30...
30 
'------------ Variable Init -------------------
 30 
'------------ Variable Init -------------------
31 
'----------------------------------------------
 31 
'----------------------------------------------
32 
%>
 32 
%>
33 
<%
 33 
<%
34 
Sub MakeReject ()
 34 
Sub MakeReject ()
35 
   Dim objWSH
 - 
 
36 
   Set objWSH = Server.CreateObject("WScript.Shell")
 - 
 
37 
 
 35 
 
38 
   objEH.TryORA ( OraSession )
 36 
   objEH.TryORA ( OraSession )
39 
   On Error Resume Next
 37 
   On Error Resume Next
40 
 
 38 
 
41 
   OraDatabase.Parameters.Add "PV_ID",   Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
 39 
   OraDatabase.Parameters.Add "PV_ID",   Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
Line 135... Line 133...
135 
   Else
 133 
   Else
136 
      Response.Redirect ( "dependencies?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
 134 
      Response.Redirect ( "dependencies?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
137 
   End If
 135 
   End If
138 
 
 136 
 
139 
Else
 137 
Else
140 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 138 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
141 
   Response.write QSTR_All
 139 
   Response.write QSTR_All
142 
End If
 140 
End If
143 
%>
 141 
%>
144 
 
 142 
 
145 
<!-- DESTRUCTOR ------->
 143 
<!-- DESTRUCTOR ------->