WebSVN – DevTools – Diff – /ManagerSuite/Production_Manager/trunk/diff.asp.bak2



Dim rowId
Dim email
Dim FSO
Dim NewTextFile
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, sqlstrC, counterB
Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss
 
Dim a, b, c, d, pkgversion, errormsg, source_change
 
 
'------------ Constants Declaration -----------
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Updated'>"

		
		For counterA=1 to sqlstrA.RecordCount
			DEVIiss = "-1"
			TDSEiss = "-1"
			VT5DMiss = "-1"
         VTSUPiss = "-1"
			If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
				DEVIiss = DEVIiss &","& sqlstrA("iss_id")
			ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
				TDSEiss = TDSEiss &","& sqlstrA("iss_id")
			ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
				VT5DMiss = VT5DMiss &","& sqlstrA("iss_id")								
         ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
            VTSUPiss = VTSUPiss &","& sqlstrA("iss_id")
			End If
			
			SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
         SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
			SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
			SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
			SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)	
         SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
			retVal = Get_CQ_Issues ( SSsql, rsCQ )					
 
			NewTextFile.WriteLine("<tr>")
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' nowrap class='form_item'><font size='1' face='tahoma,sans-serif'>"&rsCQ("iss_num")&"</font></td>")
			NewTextFile.WriteLine("				   <td nowrap background='#CAC5B8' class='form_item'><font size='1' face='tahoma,sans-serif'>"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"</font></td>")

		
		For counterA=1 to sqlstrC.RecordCount
			DEVIiss = "-1"
			TDSEiss = "-1"
			VT5DMiss = "-1"
         VTSUPiss = "-1"
			If CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
				DEVIiss = DEVIiss &","& sqlstrC("iss_id")
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
				TDSEiss = TDSEiss &","& sqlstrC("iss_id")
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
				VT5DMiss = VT5DMiss &","& sqlstrC("iss_id")								
         ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
            VTSUPiss = VTSUPiss &","& sqlstrA("iss_id")
			End If
			
			SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
         SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
			SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
			SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
			SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)	
         SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
			retVal = Get_CQ_Issues ( SSsql, rsCQ )					
 
			If rsCQ("iss_num") <> "" Then
  				NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
	    	End If

Subversion Repositories DevTools

(root)/ManagerSuite/Production_Manager/trunk/diff.asp.bak2 @ 68 – Rev 62 → 66

Rev 62		Rev 66
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`	51	`Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss`
-		52
52	`Dim a, b, c, d, pkgversion, errormsg, source_change`	53	`Dim a, b, c, d, pkgversion, errormsg, source_change`
53		54
54		55
55	`'------------ Constants Declaration -----------`	56	`'------------ Constants Declaration -----------`
56	`Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Updated'>"`	57	`Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Updated'>"`
Line 144...		Line 145...
144		145
145	`For counterA=1 to sqlstrA.RecordCount`	146	`For counterA=1 to sqlstrA.RecordCount`
146	`DEVIiss = "-1"`	147	`DEVIiss = "-1"`
147	`TDSEiss = "-1"`	148	`TDSEiss = "-1"`
148	`VT5DMiss = "-1"`	149	`VT5DMiss = "-1"`
149		150	`VTSUPiss = "-1"`
150	`If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then`	151	`If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then`
151	`DEVIiss = DEVIiss &","& sqlstrA("iss_id")`	152	`DEVIiss = DEVIiss &","& sqlstrA("iss_id")`
152	`ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then`	153	`ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then`
153	`TDSEiss = TDSEiss &","& sqlstrA("iss_id")`	154	`TDSEiss = TDSEiss &","& sqlstrA("iss_id")`
154	`ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then`	155	`ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then`
155	`VT5DMiss = VT5DMiss &","& sqlstrA("iss_id")`	156	`VT5DMiss = VT5DMiss &","& sqlstrA("iss_id")`
-		157	`ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then`
-		158	`VTSUPiss = VTSUPiss &","& sqlstrA("iss_id")`
156	`End If`	159	`End If`
157		160
158	`SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )`	161	`SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )`
159	`SSsql = Replace( SSsql, "/enumCLEARQUEST_DEVI_ID/", enumCLEARQUEST_DEVI_ID)`	162	`SSsql = Replace( SSsql, "/enumCLEARQUEST_DEVI_ID/", enumCLEARQUEST_DEVI_ID)`
160	`SSsql = Replace( SSsql, "/enumCLEARQUEST_TDSE_ID/", enumCLEARQUEST_TDSE_ID)`	163	`SSsql = Replace( SSsql, "/enumCLEARQUEST_TDSE_ID/", enumCLEARQUEST_TDSE_ID)`
161	`SSsql = Replace( SSsql, "/enumCLEARQUEST_VT5DM_ID/", enumCLEARQUEST_VT5DM_ID)`	164	`SSsql = Replace( SSsql, "/enumCLEARQUEST_VT5DM_ID/", enumCLEARQUEST_VT5DM_ID)`
-		165	`SSsql = Replace( SSsql, "/enumCLEARQUEST_VTSUP_ID/", enumCLEARQUEST_VTSUP_ID)`
162	`SSsql = Replace( SSsql, "/DEVIiss/", DEVIiss)`	166	`SSsql = Replace( SSsql, "/DEVIiss/", DEVIiss)`
163	`SSsql = Replace( SSsql, "/TDSEiss/", TDSEiss)`	167	`SSsql = Replace( SSsql, "/TDSEiss/", TDSEiss)`
164	`SSsql = Replace( SSsql, "/VT5DMiss/", VT5DMiss)`	168	`SSsql = Replace( SSsql, "/VT5DMiss/", VT5DMiss)`
-		169	`SSsql = Replace( SSsql, "/VTSUPiss/", VTSUPiss)`
165	`retVal = Get_CQ_Issues ( SSsql, rsCQ )`	170	`retVal = Get_CQ_Issues ( SSsql, rsCQ )`
166		171
167	`NewTextFile.WriteLine("<tr>")`	172	`NewTextFile.WriteLine("<tr>")`
168	`NewTextFile.WriteLine("<td nowrap background='#CAC5B8' nowrap class='form_item'><font size='1' face='tahoma,sans-serif'>"&rsCQ("iss_num")&"</font></td>")`	173	`NewTextFile.WriteLine("<td nowrap background='#CAC5B8' nowrap class='form_item'><font size='1' face='tahoma,sans-serif'>"&rsCQ("iss_num")&"</font></td>")`
169	`NewTextFile.WriteLine(" <td nowrap background='#CAC5B8' class='form_item'><font size='1' face='tahoma,sans-serif'>"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"</font></td>")`	174	`NewTextFile.WriteLine(" <td nowrap background='#CAC5B8' class='form_item'><font size='1' face='tahoma,sans-serif'>"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"</font></td>")`
Line 206...		Line 211...
206		211
207	`For counterA=1 to sqlstrC.RecordCount`	212	`For counterA=1 to sqlstrC.RecordCount`
208	`DEVIiss = "-1"`	213	`DEVIiss = "-1"`
209	`TDSEiss = "-1"`	214	`TDSEiss = "-1"`
210	`VT5DMiss = "-1"`	215	`VT5DMiss = "-1"`
211		216	`VTSUPiss = "-1"`
212	`If CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then`	217	`If CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then`
213	`DEVIiss = DEVIiss &","& sqlstrC("iss_id")`	218	`DEVIiss = DEVIiss &","& sqlstrC("iss_id")`
214	`ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then`	219	`ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then`
215	`TDSEiss = TDSEiss &","& sqlstrC("iss_id")`	220	`TDSEiss = TDSEiss &","& sqlstrC("iss_id")`
216	`ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then`	221	`ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then`
217	`VT5DMiss = VT5DMiss &","& sqlstrC("iss_id")`	222	`VT5DMiss = VT5DMiss &","& sqlstrC("iss_id")`
-		223	`ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then`
-		224	`VTSUPiss = VTSUPiss &","& sqlstrA("iss_id")`
218	`End If`	225	`End If`
219		226
220	`SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )`	227	`SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )`
221	`SSsql = Replace( SSsql, "/enumCLEARQUEST_DEVI_ID/", enumCLEARQUEST_DEVI_ID)`	228	`SSsql = Replace( SSsql, "/enumCLEARQUEST_DEVI_ID/", enumCLEARQUEST_DEVI_ID)`
222	`SSsql = Replace( SSsql, "/enumCLEARQUEST_TDSE_ID/", enumCLEARQUEST_TDSE_ID)`	229	`SSsql = Replace( SSsql, "/enumCLEARQUEST_TDSE_ID/", enumCLEARQUEST_TDSE_ID)`
223	`SSsql = Replace( SSsql, "/enumCLEARQUEST_VT5DM_ID/", enumCLEARQUEST_VT5DM_ID)`	230	`SSsql = Replace( SSsql, "/enumCLEARQUEST_VT5DM_ID/", enumCLEARQUEST_VT5DM_ID)`
-		231	`SSsql = Replace( SSsql, "/enumCLEARQUEST_VTSUP_ID/", enumCLEARQUEST_VTSUP_ID)`
224	`SSsql = Replace( SSsql, "/DEVIiss/", DEVIiss)`	232	`SSsql = Replace( SSsql, "/DEVIiss/", DEVIiss)`
225	`SSsql = Replace( SSsql, "/TDSEiss/", TDSEiss)`	233	`SSsql = Replace( SSsql, "/TDSEiss/", TDSEiss)`
226	`SSsql = Replace( SSsql, "/VT5DMiss/", VT5DMiss)`	234	`SSsql = Replace( SSsql, "/VT5DMiss/", VT5DMiss)`
-		235	`SSsql = Replace( SSsql, "/VTSUPiss/", VTSUPiss)`
227	`retVal = Get_CQ_Issues ( SSsql, rsCQ )`	236	`retVal = Get_CQ_Issues ( SSsql, rsCQ )`
228		237
229	`If rsCQ("iss_num") <> "" Then`	238	`If rsCQ("iss_num") <> "" Then`
230	`NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")`	239	`NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")`
231	`End If`	240	`End If`