| Line 25... |
Line 25... |
| 25 |
'------------ Variable Definition -------------
|
25 |
'------------ Variable Definition -------------
|
| 26 |
Dim FSO
|
26 |
Dim FSO
|
| 27 |
Dim NewTextFile
|
27 |
Dim NewTextFile
|
| 28 |
Dim rsRep
|
28 |
Dim rsRep
|
| 29 |
Dim sqlstr
|
29 |
Dim sqlstr
|
| 30 |
Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss, outJIRASQL
|
30 |
Dim SSsql, retVal, rsCQ, DEVIiss, outJIRASQL
|
| 31 |
'------------ Variable Init -------------------
|
31 |
'------------ Variable Init -------------------
|
| 32 |
Set rsCQ = Server.CreateObject("ADODB.Recordset")
|
32 |
Set rsCQ = Server.CreateObject("ADODB.Recordset")
|
| 33 |
%>
|
33 |
%>
|
| 34 |
<%
|
34 |
<%
|
| 35 |
'--------------------------------------------------------------------------------------------------------------------------
|
35 |
'--------------------------------------------------------------------------------------------------------------------------
|
| Line 78... |
Line 78... |
| 78 |
NewTextFile.WriteLine("<td background='#CAC5B8' width='10%' class='form_field'><font size='1' face='tahoma,sans-serif'><b>Status</b></font></td>")
|
78 |
NewTextFile.WriteLine("<td background='#CAC5B8' width='10%' class='form_field'><font size='1' face='tahoma,sans-serif'><b>Status</b></font></td>")
|
| 79 |
NewTextFile.WriteLine("</tr>")
|
79 |
NewTextFile.WriteLine("</tr>")
|
| 80 |
|
80 |
|
| 81 |
While ((NOT sqlstr.BOF) AND (NOT sqlstr.EOF))
|
81 |
While ((NOT sqlstr.BOF) AND (NOT sqlstr.EOF))
|
| 82 |
DEVIiss = "-1"
|
82 |
DEVIiss = "-1"
|
| 83 |
TDSEiss = "-1"
|
- |
|
| 84 |
VT5DMiss = "-1"
|
- |
|
| 85 |
VTSUPiss = "-1"
|
- |
|
| 86 |
|
83 |
|
| 87 |
If CInt(sqlstr("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
|
84 |
If CInt(sqlstr("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
|
| 88 |
DEVIiss = DEVIiss &","& sqlstr("iss_id")
|
85 |
DEVIiss = DEVIiss &","& sqlstr("iss_id")
|
| 89 |
ElseIf CInt(sqlstr("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
|
- |
|
| 90 |
TDSEiss = TDSEiss &","& sqlstr("iss_id")
|
- |
|
| 91 |
ElseIf CInt(sqlstr("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
|
- |
|
| 92 |
VT5DMiss = VT5DMiss &","& sqlstr("iss_id")
|
- |
|
| 93 |
ElseIf CInt(sqlstr("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
|
- |
|
| 94 |
VTSUPiss = VTSUPiss &","& sqlstr("iss_id")
|
- |
|
| 95 |
End If
|
86 |
End If
|
| 96 |
|
87 |
|
| 97 |
SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
|
88 |
SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
|
| 98 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
|
89 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
|
| 99 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
|
- |
|
| 100 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
|
- |
|
| 101 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
|
- |
|
| 102 |
SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
|
90 |
SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
|
| 103 |
SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
|
- |
|
| 104 |
SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
|
- |
|
| 105 |
SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
|
- |
|
| 106 |
|
91 |
|
| 107 |
retVal = Get_CQ_Issues ( SSsql, rsCQ )
|
92 |
retVal = Get_CQ_Issues ( SSsql, rsCQ )
|
| 108 |
|
93 |
|
| 109 |
NewTextFile.WriteLine("<tr>")
|
94 |
NewTextFile.WriteLine("<tr>")
|
| 110 |
NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&rsCQ("iss_num")&"</b></font></td>")
|
95 |
NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&rsCQ("iss_num")&"</b></font></td>")
|