| Line 46... |
Line 46... |
| 46 |
Dim rowId
|
46 |
Dim rowId
|
| 47 |
Dim email
|
47 |
Dim email
|
| 48 |
Dim FSO
|
48 |
Dim FSO
|
| 49 |
Dim NewTextFile
|
49 |
Dim NewTextFile
|
| 50 |
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, sqlstrC, counterB
|
50 |
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, sqlstrC, counterB
|
| 51 |
Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss
|
51 |
Dim SSsql, retVal, rsCQ, DEVIiss
|
| 52 |
Dim a, b, c, d, pkgversion, errormsg
|
52 |
Dim a, b, c, d, pkgversion, errormsg
|
| 53 |
Dim VersionList
|
53 |
Dim VersionList
|
| 54 |
|
54 |
|
| 55 |
|
55 |
|
| 56 |
'------------ Constants Declaration -----------
|
56 |
'------------ Constants Declaration -----------
|
| Line 143... |
Line 143... |
| 143 |
NewTextFile.WriteLine("<td width='10%' class='form_field'>Status</td>")
|
143 |
NewTextFile.WriteLine("<td width='10%' class='form_field'>Status</td>")
|
| 144 |
NewTextFile.WriteLine("</tr>")
|
144 |
NewTextFile.WriteLine("</tr>")
|
| 145 |
|
145 |
|
| 146 |
While ((NOT sqlstrC.BOF) AND (NOT sqlstrC.EOF))
|
146 |
While ((NOT sqlstrC.BOF) AND (NOT sqlstrC.EOF))
|
| 147 |
DEVIiss = "-1"
|
147 |
DEVIiss = "-1"
|
| 148 |
TDSEiss = "-1"
|
- |
|
| 149 |
VT5DMiss = "-1"
|
- |
|
| 150 |
VTSUPiss = "-1"
|
- |
|
| 151 |
|
148 |
|
| 152 |
If CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
|
149 |
If CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
|
| 153 |
DEVIiss = DEVIiss &","& sqlstrC("iss_id")
|
150 |
DEVIiss = DEVIiss &","& sqlstrC("iss_id")
|
| 154 |
ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
|
- |
|
| 155 |
TDSEiss = TDSEiss &","& sqlstrC("iss_id")
|
- |
|
| 156 |
ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
|
- |
|
| 157 |
VT5DMiss = VT5DMiss &","& sqlstrC("iss_id")
|
- |
|
| 158 |
ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
|
- |
|
| 159 |
VTSUPiss = VTSUPiss &","& sqlstrC("iss_id")
|
- |
|
| 160 |
End If
|
151 |
End If
|
| 161 |
|
152 |
|
| 162 |
SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
|
153 |
SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
|
| 163 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
|
154 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
|
| 164 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
|
- |
|
| 165 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
|
- |
|
| 166 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
|
- |
|
| 167 |
SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
|
155 |
SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
|
| 168 |
SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
|
- |
|
| 169 |
SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
|
- |
|
| 170 |
SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
|
- |
|
| 171 |
|
156 |
|
| 172 |
retVal = Get_CQ_Issues ( SSsql, rsCQ )
|
157 |
retVal = Get_CQ_Issues ( SSsql, rsCQ )
|
| 173 |
|
158 |
|
| 174 |
NewTextFile.WriteLine("<tr>")
|
159 |
NewTextFile.WriteLine("<tr>")
|
| 175 |
NewTextFile.WriteLine("<td nowrap class='form_item'>"&rsCQ("iss_num")&"</td>")
|
160 |
NewTextFile.WriteLine("<td nowrap class='form_item'>"&rsCQ("iss_num")&"</td>")
|