Subversion Repositories DevTools

Rev

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

Rev 155 Rev 159
Line 485... Line 485...
485 
 
 485 
 
486 
   Set rsQry = Server.CreateObject("ADODB.Recordset")
 486 
   Set rsQry = Server.CreateObject("ADODB.Recordset")
487 
   rsQry.ActiveConnection = CQ_conn
 487 
   rsQry.ActiveConnection = CQ_conn
488 
 
 488 
 
489 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
 489 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
490 
      rsQry.Source = "EXEC devi_prod.dbo.sp_RM_getIssueDetails "& nIssId &";"
 490 
      rsQry.Source = "EXEC cq_devi.dbo.sp_RM_getIssueDetails "& nIssId &";"
491 
 
 491 
 
492 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
 492 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
493 
      rsQry.Source = "EXEC tdse_2002.dbo.sp_RM_getIssueDetails "& nIssId &";"
 493 
      rsQry.Source = "EXEC cq_tdse.dbo.sp_RM_getIssueDetails "& nIssId &";"
494 
 
 494 
 
495 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
 495 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
496 
      rsQry.Source = "EXEC VT5DM.dbo.sp_RM_getIssueDetails "& nIssId &";"
 496 
      rsQry.Source = "EXEC CQ_VT5DM.dbo.sp_RM_getIssueDetails "& nIssId &";"
497 
 
 497 
 
498 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VTSUP_ID Then
 498 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VTSUP_ID Then
499 
      rsQry.Source = "EXEC VTSUP.dbo.sp_RM_getIssueDetails "& nIssId &";"
 499 
      rsQry.Source = "EXEC CQ_VTSUP.dbo.sp_RM_getIssueDetails "& nIssId &";"
500 
   End If
 500 
   End If
501 
 
 501 
 
502 
   rsQry.CursorType = 0
 502 
   rsQry.CursorType = 0
503 
   rsQry.CursorLocation = 2
 503 
   rsQry.CursorLocation = 2
504 
   rsQry.LockType = 3
 504 
   rsQry.LockType = 3