Subversion Repositories DevTools

Rev

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

Rev 163 Rev 1376
Line 276... Line 276...
276 
 
 276 
 
277 
Dim sDependBlock
 277 
Dim sDependBlock
278 
 
 278 
 
279 
'--- Process submition ---
 279 
'--- Process submition ---
280 
If (QStrPar("pv_id") <> "")  Then
 280 
If (QStrPar("pv_id") <> "")  Then
281 
   ' All mendatory parameters FOUND
 281 
   ' All mandatory parameters FOUND
282 
 
 282 
 
283 
   Err.Clear
 283 
   Err.Clear
284 
   On Error Resume Next
 284 
   On Error Resume Next
285 
   OraSession.BeginTrans
 285 
   OraSession.BeginTrans
286 
   ' The called subroutines beneath here do not use "on error resume next", but this calling code does, so if any error
 286 
   ' The called subroutines beneath here do not use "on error resume next", but this calling code does, so if any error
Line 335... Line 335...
335 
      OraSession.CommitTrans
 335 
      OraSession.CommitTrans
336 
   End If
 336 
   End If
337 
 
 337 
 
338 
   Response.Redirect("dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 338 
   Response.Redirect("dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
339 
Else
 339 
Else
340 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 340 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
341 
   Response.write QSTR_All
 341 
   Response.write QSTR_All
342 
End If
 342 
End If
343 
%>
 343 
%>
344 
 
 344 
 
345 
<!-- DESTRUCTOR ------->
 345 
<!-- DESTRUCTOR ------->