Subversion Repositories DevTools

Rev

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

Rev 3947 Rev 4554
Line 255... Line 255...
255
255
256 
End Function
 256 
End Function
257 
'---------------------------------------------------------------------------------------------------------------------------
 257 
'---------------------------------------------------------------------------------------------------------------------------
258 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
 258 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
259 
 
 259 
 
260 
	If OOrsCQ.State = 1 Then
- 
 
261 
		OOrsCQ.Close
 - 
 
262 
	End If
 - 
 
263
- 
 
264 
	On Error Resume Next
 260 
    On Error Resume Next
265 
	OOrsCQ.ActiveConnection = CQ_conn
 261 
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
266 
	OOrsCQ.Source = SSsql
 - 
 
267 
	OOrsCQ.CursorType = 0
 - 
 
268 
	OOrsCQ.CursorLocation = 2
 - 
 
269 
	OOrsCQ.LockType = 3
 - 
 
270 
	OOrsCQ.Open()
 - 
 
271 
	Get_CQ_Issues = Err.Number
 262 
    Get_CQ_Issues = Err.Number
272
263
273 
End Function
 264 
End Function
274 
'--------------------------------------------------------------------------------------------------------------------------
 265 
'--------------------------------------------------------------------------------------------------------------------------
275 
Public Function TextToHTML ( sString )
 266 
Public Function TextToHTML ( sString )
276 
	Dim mString
 267 
	Dim mString