Subversion Repositories DevTools

Rev

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

Rev 4252 Rev 4553
Line 2... Line 2...
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|
 4 
'|
5 
'|			          Weekly Report
 5 
'|			          Weekly Report
6 
'|      Suspect that this page is inaccessible
 6 
'|      Suspect that this page is inaccessible
7 
'|      Jira Issue query will not work - since Jira 6.1 update and move to REST API
7 
'|      Jira Issue query will not work - since Jira 6.1 update and move to REST API
- 
 
 8 
'|
- 
 
 9 
'|      ClearQuest Issue have not been tested since the CQ data was placed in the RM database
8 
'|
 10 
'|
9 
'=====================================================
 11 
'=====================================================
10 
%>
 12 
%>
11 
 
 13 
 
12 
<%
 14 
<%
Line 29... Line 31...
29 
Dim NewTextFile
 31 
Dim NewTextFile
30 
Dim rsRep
 32 
Dim rsRep
31 
Dim sqlstr
 33 
Dim sqlstr
32 
Dim SSsql, retVal, rsCQ, DEVIiss, outJIRASQL
 34 
Dim SSsql, retVal, rsCQ, DEVIiss, outJIRASQL
33 
'------------ Variable Init -------------------
 35 
'------------ Variable Init -------------------
34 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
 - 
 
35 
%>
 36 
%>
36 
<%
 37 
<%
37 
'--------------------------------------------------------------------------------------------------------------------------
 38 
'--------------------------------------------------------------------------------------------------------------------------
38 
Sub Javascript()
 39 
Sub Javascript()
39 
	NewTextFile.WriteLine("<script language=""JavaScript"" type=""text/javascript"">")
 40 
	NewTextFile.WriteLine("<script language=""JavaScript"" type=""text/javascript"">")
Line 198... Line 199...
198 
	NewTextFile.WriteLine("</html>")
 199 
	NewTextFile.WriteLine("</html>")
199 
End Sub
 200 
End Sub
200 
'--------------------------------------------------------------------------------------------------------------------------
 201 
'--------------------------------------------------------------------------------------------------------------------------
201 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
 202 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
202 
 
 203 
 
203 
	If OOrsCQ.State = 1 Then
- 
 
204 
		OOrsCQ.Close
 - 
 
205 
	End If
 - 
 
206
- 
 
207 
	On Error Resume Next
 204 
    On Error Resume Next
208 
	OOrsCQ.ActiveConnection = CQ_conn
 205 
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
209 
	OOrsCQ.Source = SSsql
 - 
 
210 
	OOrsCQ.CursorType = 0
 - 
 
211 
	OOrsCQ.CursorLocation = 2
 - 
 
212 
	OOrsCQ.LockType = 3
 - 
 
213 
	OOrsCQ.Open()
 - 
 
214 
	Get_CQ_Issues = Err.Number
 206 
    Get_CQ_Issues = Err.Number
215
207 
 
216 
End Function
 208 
End Function
- 
 
 209 
 
217 
'--------------------------------------------------------------------------------------------------------------------------
 210 
'--------------------------------------------------------------------------------------------------------------------------
218 
Function Get_JIRA_Issues ( SSsql, OOrsJIRA )
 211 
Function Get_JIRA_Issues ( SSsql, OOrsJIRA )
219 
 
 212 
 
220 
	If OOrsJIRA.State = 1 Then
 213 
	If OOrsJIRA.State = 1 Then
221 
		OOrsJIRA.Close()
 214 
		OOrsJIRA.Close()