Subversion Repositories DevTools

Rev

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

Rev 4955 Rev 5176
Line 39... Line 39...
39 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("CheckWIPS.sql"), cint(0))
 39 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("CheckWIPS.sql"), cint(0))
40 
 
 40 
 
41 
   OraDatabase.Parameters.Remove "RTAG_ID"
 41 
   OraDatabase.Parameters.Remove "RTAG_ID"
42 
 
 42 
 
43 
   If rsQry.RecordCount > 0 Then
 43 
   If rsQry.RecordCount > 0 Then
44 
      Call OpenInWindow( "form_check_closed_mode.asp?rtag_id="& Request("rtag_id") )
 44 
      Call OpenInWindow( "form_check_closed_mode.asp?rtag_id="& Request("rtag_id") & "&mode_code=" &Request("mode_code") )
45 
   Else
 45 
   Else
46 
      'COMPLETE THE REQUEST...
 46 
      'COMPLETE THE REQUEST...
47 
      Call ChangeReleaseMode ()
 47 
      Call ChangeReleaseMode ()
48 
   End If
 48 
   End If
49 
 
 49