Subversion Repositories DevTools

Rev

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

Rev 64 Rev 4556
Line 47... Line 47...
47 
Dim VersionList
 47 
Dim VersionList
48 
Dim fileName, pathName
 48 
Dim fileName, pathName
49 
 
 49 
 
50 
 
 50 
 
51 
'------------ Variable Init -------------------
 51 
'------------ Variable Init -------------------
52 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
 - 
 
53 
parRtagA = Request("rtagA")
 52 
parRtagA = Request("rtagA")
54 
parRtagB = Request("rtagB")
 53 
parRtagB = Request("rtagB")
55 
parSBOMA = Request("sbomA")
 54 
parSBOMA = Request("sbomA")
56 
parSBOMB = Request("sbomB")
 55 
parSBOMB = Request("sbomB")
57 
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
 56 
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
Line 310... Line 309...
310 
	Next
 309 
	Next
311 
End Sub
 310 
End Sub
312 
'---------------------------------------------------------------------------------------------------------------------------
 311 
'---------------------------------------------------------------------------------------------------------------------------
313 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
 312 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
314 
 
 313 
 
315 
	If OOrsCQ.State = 1 Then
- 
 
316 
		OOrsCQ.Close
 - 
 
317 
	End If
 - 
 
318
- 
 
319 
	On Error Resume Next
 314 
	On Error Resume Next
320 
	OOrsCQ.ActiveConnection = CQ_conn
 315 
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
321 
	OOrsCQ.Source = SSsql
 - 
 
322 
	OOrsCQ.CursorType = 0
 - 
 
323 
	OOrsCQ.CursorLocation = 2
 - 
 
324 
	OOrsCQ.LockType = 3
 - 
 
325 
	OOrsCQ.Open()
 - 
 
326 
	Get_CQ_Issues = Err.Number
 316 
	Get_CQ_Issues = Err.Number
327
317
328 
End Function
 318 
End Function
329 
'--------------------------------------------------------------------------------------------------------------------------
 319 
'--------------------------------------------------------------------------------------------------------------------------
330 
Public Function TextToHTML ( sString )
 320 
Public Function TextToHTML ( sString )