Subversion Repositories DevTools

Rev

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

Rev 70 Rev 4556
Line 616... Line 616...
616
 
616
 
617
	If SSsection = "BODY" Then
617
	If SSsection = "BODY" Then
618
		If NOT CBool(Request("action")) Then Exit Sub
618
		If NOT CBool(Request("action")) Then Exit Sub
619
 
619
 
620
		Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
620
		Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
621
		Set rsCQ = Server.CreateObject("ADODB.Recordset")
-
 
622
		Set issNumDict = CreateObject("Scripting.Dictionary")
621
		Set issNumDict = CreateObject("Scripting.Dictionary")
623
 
622
 
624
 
623
 
625
		'---- Find Issue numbers in ClearQuest ----
624
		'---- Find Issue numbers in ClearQuest ----
626
		If CDbl(NNiss_db) = enumCLEARQUEST_MASSI_ID Then
625
		If CDbl(NNiss_db) = enumCLEARQUEST_MASSI_ID Then
Line 674... Line 673...
674
		Else
673
		Else
675
			SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"
674
			SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"
676
 
675
 
677
		End If
676
		End If
678
 
677
 
679
		rsCQ.ActiveConnection = CQ_conn
678
        Set rsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
680
		rsCQ.Source = SSsql
-
 
681
		rsCQ.CursorType = 0
-
 
682
		rsCQ.CursorLocation = 2
-
 
683
		rsCQ.LockType = 3
-
 
684
		rsCQ.Open()
-
 
685
 
679
 
686
		' Get find results from CQ
680
		' Get find results from CQ
687
		recCount = 1
681
		recCount = 1
688
		maxRecCount = 1000
682
		maxRecCount = 1000
689
		issNumDict.ADD "-1", "-1"		' take care of no results
683
		issNumDict.ADD "-1", "-1"		' take care of no results