Subversion Repositories DevTools

Rev

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

Rev 1332 Rev 1334
Line 159... Line 159...
159 
 
 159 
 
160 
      SQLstr = _
 160 
      SQLstr = _
161 
      "SELECT project.pkey as project, I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
 161 
      "SELECT project.pkey as project, I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
162 
      "FROM jiraissue I, project, issuestatus ISS "&_
 162 
      "FROM jiraissue I, project, issuestatus ISS "&_
163 
      "WHERE I.project=project.ID "
 163 
      "WHERE I.project=project.ID "
- 
 
 164
- 
 
 165
164 
      If ( apkey <> LENUM_ALL ) Then
 166 
      If ( apkey <> LENUM_ALL ) Then
165 
         SQLstr = SQLstr & "AND project.pkey='"& apkey &"' "
 167 
         SQLstr = SQLstr & "AND project.pkey='"& apkey &"' "
166 
      End If
 168 
      End If
167 
      SQLstr = SQLstr & "AND I.issuestatus = ISS.ID "
 169 
      SQLstr = SQLstr & "AND I.issuestatus = ISS.ID "
168 
 
 170 
 
Line 228... Line 230...
228 
 
 230 
 
229 
      SQLstr = SQLstr & "     ) "
 231 
      SQLstr = SQLstr & "     ) "
230 
 
 232 
 
231 
   End If
 233 
   End If
232 
 
 234 
 
233 
   '-- Get record count ---
 235 
   '-- Get record count ---  MAYBE MORE SPEED HERE?!??!
234 
   NNrecordCount = Get_Record_Count( SQLstr )
 236 
   NNrecordCount = Get_Record_Count( SQLstr )
235 
 
 237 
 
236 
 
 238 
 
237 
   '-- Order by --
 239 
   '-- Order by --
238 
   'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 240 
   'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
Line 241... Line 243...
241 
   'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 243 
   'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
242 
   '   SQLstr = SQLstr &" ORDER BY si.when_reported DESC"
 244 
   '   SQLstr = SQLstr &" ORDER BY si.when_reported DESC"
243 
 
 245 
 
244 
   'End If
 246 
   'End If
245 
 
 247 
 
- 
 
 248 
	DIM objConnection
- 
 
 249
246 
 
 250 
 
- 
 
 251 
	'ADDED BY RICHO 6th August 2012 - Increase Speed
- 
 
 252 
	Set objConnection = Server.CreateObject ("ADODB.Connection")
- 
 
 253 
	objConnection.Open JIRA_conn
247 
 
 254
- 
 
 255 
	On Error Resume Next
- 
 
 256 
	OOrsCQ.Open SQLstr, objConnection
- 
 
 257 
	'***********************************************
- 
 
 258
248 
   OOrsCQ.ActiveConnection = JIRA_conn
 259 
   'OOrsCQ.ActiveConnection = JIRA_conn
249 
   OOrsCQ.Source = SQLstr
 260 
   'OOrsCQ.Source = SQLstr
250 
   OOrsCQ.CursorType = 0
 261 
   'OOrsCQ.CursorType = 0
251 
   OOrsCQ.CursorLocation = 2
 262 
   'OOrsCQ.CursorLocation = 2
252 
   OOrsCQ.LockType = 3
 263 
   'OOrsCQ.LockType = 3
253 
 
 - 
 
254 
   On Error Resume Next
 264 
   'On Error Resume Next
255 
   OOrsCQ.Open()
 265 
   'OOrsCQ.Open()
256 
 
 266 
 
257 
   Get_Issues = Err.Number
 267 
   Get_Issues = Err.Number
258 
 
 268 
 
259 
End Function
 269 
End Function
260 
'------------------------------------------------------------------------------------------------------------------------------------
 270 
'------------------------------------------------------------------------------------------------------------------------------------