Subversion Repositories DevTools

Rev

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

Rev 3947 Rev 4554
Line 781... Line 781...
781 
 
 781 
 
782 
   If SSsection = "BODY" Then
 782 
   If SSsection = "BODY" Then
783 
      If NOT CBool(Request("action")) Then Exit Sub
 783 
      If NOT CBool(Request("action")) Then Exit Sub
784 
 
 784 
 
785 
      Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
 785 
      Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
786 
      Set rsCQ = Server.CreateObject("ADODB.Recordset")
 - 
 
787 
      Set issNumDict = CreateObject("Scripting.Dictionary")
 786 
      Set issNumDict = CreateObject("Scripting.Dictionary")
788 
 
 787 
 
789 
 
 - 
 
790 
      '---- Find Issue numbers in ClearQuest ----
 788 
      '---- Find Issue numbers in ClearQuest ----
791 
      If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 789 
      If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
792 
         iss_num_col = "new_num"
 790 
         iss_num_col = "new_num"
793 
         SSsql = _
 791 
         SSsql = _
794 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 792 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
Line 814... Line 812...
814 
      Else
 812 
      Else
815 
         SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"
 813 
         SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"
816 
 
 814 
 
817 
      End If
 815 
      End If
818 
 
 816 
 
819 
      rsCQ.ActiveConnection = CQ_conn
 817 
      Set rsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
820 
      rsCQ.Source = SSsql
 - 
 
821 
      rsCQ.CursorType = 0
 - 
 
822 
      rsCQ.CursorLocation = 2
 - 
 
823 
      rsCQ.LockType = 3
 - 
 
824 
      rsCQ.Open()
 - 
 
825 
 
 818 
 
826 
      ' Get find results from CQ
 819 
      ' Get find results from CQ
827 
      recCount = 1
 820 
      recCount = 1
828 
      maxRecCount = 1000
 821 
      maxRecCount = 1000
829 
      issNumDict.ADD "-1", "-1"      ' take care of no results
 822 
      issNumDict.ADD "-1", "-1"      ' take care of no results