| Line 42... |
Line 42... |
| 42 |
Dim rowId
|
42 |
Dim rowId
|
| 43 |
Dim email
|
43 |
Dim email
|
| 44 |
Dim FSO
|
44 |
Dim FSO
|
| 45 |
Dim NewTextFile
|
45 |
Dim NewTextFile
|
| 46 |
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, counterB
|
46 |
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, counterB
|
| 47 |
Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss
|
47 |
Dim SSsql, retVal, rsCQ, DEVIiss
|
| 48 |
Dim a, b, c, d, pkgversion, errormsg, source_change, ChangeASource, ChangeAUpdate, ChangeBSource, ChangeBUpdate, pvCollectionA, pvCollectionB
|
48 |
Dim a, b, c, d, pkgversion, errormsg, source_change, ChangeASource, ChangeAUpdate, ChangeBSource, ChangeBUpdate, pvCollectionA, pvCollectionB
|
| 49 |
Dim changeType
|
49 |
Dim changeType
|
| 50 |
Dim pendingAdditions
|
50 |
Dim pendingAdditions
|
| 51 |
|
51 |
|
| 52 |
'------------ Constants Declaration -----------
|
52 |
'------------ Constants Declaration -----------
|
| Line 102... |
Line 102... |
| 102 |
NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
|
102 |
NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
|
| 103 |
End If
|
103 |
End If
|
| 104 |
|
104 |
|
| 105 |
For counterA=1 to sqlstrA.RecordCount
|
105 |
For counterA=1 to sqlstrA.RecordCount
|
| 106 |
DEVIiss = "-1"
|
106 |
DEVIiss = "-1"
|
| 107 |
TDSEiss = "-1"
|
- |
|
| 108 |
VT5DMiss = "-1"
|
- |
|
| 109 |
VTSUPiss = "-1"
|
- |
|
| 110 |
|
107 |
|
| 111 |
If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
|
108 |
If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
|
| 112 |
DEVIiss = DEVIiss &","& sqlstrA("iss_id")
|
109 |
DEVIiss = DEVIiss &","& sqlstrA("iss_id")
|
| 113 |
ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
|
- |
|
| 114 |
TDSEiss = TDSEiss &","& sqlstrA("iss_id")
|
- |
|
| 115 |
ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
|
- |
|
| 116 |
VT5DMiss = VT5DMiss &","& sqlstrA("iss_id")
|
- |
|
| 117 |
ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
|
- |
|
| 118 |
VTSUPiss = VTSUPiss &","& sqlstrA("iss_id")
|
- |
|
| 119 |
End If
|
110 |
End If
|
| 120 |
|
111 |
|
| 121 |
SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
|
112 |
SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
|
| 122 |
SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
|
113 |
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, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
|
- |
|
| 126 |
SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
|
114 |
SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
|
| 127 |
SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
|
- |
|
| 128 |
SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
|
- |
|
| 129 |
SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
|
- |
|
| 130 |
retVal = Get_CQ_Issues ( SSsql, rsCQ )
|
115 |
retVal = Get_CQ_Issues ( SSsql, rsCQ )
|
| 131 |
|
116 |
|
| 132 |
If rsCQ("iss_num") <> "" Then
|
117 |
If rsCQ("iss_num") <> "" Then
|
| 133 |
NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
|
118 |
NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
|
| 134 |
End If
|
119 |
End If
|