Subversion Repositories DevTools

Rev

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

Rev 3959 Rev 3975
Line 461... Line 461...
461
   Set rsQry = Server.CreateObject("ADODB.Recordset")
461
   Set rsQry = Server.CreateObject("ADODB.Recordset")
462
   rsQry.ActiveConnection = CQ_conn
462
   rsQry.ActiveConnection = CQ_conn
463
 
463
 
464
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
464
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
465
      rsQry.Source = "EXEC cq_devi.dbo.sp_RM_getIssueDetails "& nIssId &";"
465
      rsQry.Source = "EXEC cq_devi.dbo.sp_RM_getIssueDetails "& nIssId &";"
466
 
-
 
467
   ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
-
 
468
      rsQry.Source = "EXEC cq_tdse.dbo.sp_RM_getIssueDetails "& nIssId &";"
-
 
469
 
-
 
470
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
-
 
471
      rsQry.Source = "EXEC CQ_VT5DM.dbo.sp_RM_getIssueDetails "& nIssId &";"
-
 
472
 
-
 
473
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VTSUP_ID Then
-
 
474
      rsQry.Source = "EXEC CQ_VTSUP.dbo.sp_RM_getIssueDetails "& nIssId &";"
-
 
475
   End If
466
   End If
476
 
467
 
477
   rsQry.CursorType = 0
468
   rsQry.CursorType = 0
478
   rsQry.CursorLocation = 2
469
   rsQry.CursorLocation = 2
479
   rsQry.LockType = 3
470
   rsQry.LockType = 3