| 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, counterB
|
50 |
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, counterB
|
| 51 |
Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss
|
51 |
Dim SSsql, retVal, rsCQ, DEVIiss
|
| 52 |
Dim a, b, c, d, pkgversion, errormsg, source_change
|
52 |
Dim a, b, c, d, pkgversion, errormsg, source_change
|
| 53 |
|
53 |
|
| 54 |
|
54 |
|
| 55 |
'------------ Constants Declaration -----------
|
55 |
'------------ Constants Declaration -----------
|
| 56 |
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Updated'>"
|
56 |
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Updated'>"
|
| Line 105... |
Line 105... |
| 105 |
NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
|
105 |
NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
|
| 106 |
End If
|
106 |
End If
|
| 107 |
|
107 |
|
| 108 |
For counterA=1 to sqlstrA.RecordCount
|
108 |
For counterA=1 to sqlstrA.RecordCount
|
| 109 |
DEVIiss = "-1"
|
109 |
DEVIiss = "-1"
|
| 110 |
TDSEiss = "-1"
|
- |
|
| 111 |
VT5DMiss = "-1"
|
- |
|
| 112 |
|
110 |
|
| 113 |
If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
|
111 |
If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
|
| 114 |
DEVIiss = DEVIiss &","& sqlstrA("iss_id")
|
112 |
DEVIiss = DEVIiss &","& sqlstrA("iss_id")
|
| 115 |
ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
|
- |
|
| 116 |
TDSEiss = TDSEiss &","& sqlstrA("iss_id")
|
- |
|
| 117 |
ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
|
- |
|
| 118 |
VT5DMiss = VT5DMiss &","& sqlstrA("iss_id")
|
- |
|
| 119 |
End If
|
113 |
End If
|
| 120 |
|
114 |
|
| 121 |
SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
|
115 |
SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
|
| 122 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
|
116 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
|
| 123 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
|
- |
|
| 124 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
|
- |
|
| 125 |
SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
|
117 |
SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
|
| 126 |
SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
|
- |
|
| 127 |
SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
|
- |
|
| 128 |
retVal = Get_CQ_Issues ( SSsql, rsCQ )
|
118 |
retVal = Get_CQ_Issues ( SSsql, rsCQ )
|
| 129 |
|
119 |
|
| 130 |
If rsCQ("iss_num") <> "" Then
|
120 |
If rsCQ("iss_num") <> "" Then
|
| 131 |
NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
|
121 |
NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
|
| 132 |
End If
|
122 |
End If
|
| 133 |
|
123 |
|