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