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