Econoday | Resource Center | Bond Market Charts

<%@ Language=VBScript %> <% Dim iTotalAnnouncements, iAnnouncementID(356), dAnnouncementDate(356), cszAnnouncementText(356), iAnnouncementAfterBreak(356) Dim iTotalAuctions, iAuctionID(356), dAuctionDate(356), cszAuctionText(356), iAuctionAfterBreak(356) Dim iDisplayNameID, ii, iLastMonth Dim cszTemp Dim rs_events iTotalAnnouncements = 0 iTotalAuctions = 0 iLastMonth = 1 Set conn = server.CreateObject("ADODB.Connection") conn.Open "DSN=econoday", "syncpak1", "2wagon36b" ' lets get the user ID set rs_events=Server.CreateObject("ADODB.Recordset") sql="select E.id, E.display_name_id, E.released_on, EN.display_name_text, EN.listingpriority FROM events E, event_name EN WHERE (E.display_name_id = EN.display_name_id) AND (E.display_name_id=295 OR E.display_name_id=318 OR E.display_name_id=215 OR E.display_name_id=223 OR E.display_name_id=297 OR E.display_name_id=213 OR E.display_name_id=299 OR E.display_name_id=296 OR E.display_name_id=319 OR E.display_name_id=216 OR E.display_name_id=224 OR E.display_name_id=214 OR E.display_name_id=298 OR E.display_name_id=300) AND ((released_on >= '1/1/2004') AND (released_on < '1/1/2005')) ORDER BY E.released_on, EN.listingpriority, EN.display_name_text" set rs_events=conn.execute(sql) while not rs_events.EOF iDisplayNameID = rs_events("display_name_id") if ((iDisplayNameID = 295) OR (iDisplayNameID = 318) OR (iDisplayNameID = 215) OR (iDisplayNameID = 223) OR (iDisplayNameID = 297) OR (iDisplayNameID = 213) OR (iDisplayNameID = 299)) then ' Announcements iTotalAnnouncements = iTotalAnnouncements + 1 iAnnouncementID(iTotalAnnouncements) = rs_events("id") dAnnouncementDate(iTotalAnnouncements) = rs_events("released_on") cszAnnouncementText(iTotalAnnouncements) = Trim(rs_events("display_name_text")) if (iLastMonth <> Month(dAnnouncementDate(iTotalAnnouncements))) then iLastMonth = Month(dAnnouncementDate(iTotalAnnouncements)) iAnnouncementAfterBreak(iTotalAnnouncements) = 1 iAuctionAfterBreak(iTotalAnnouncements) = 1 else iAnnouncementAfterBreak(iTotalAnnouncements) = 0 iAuctionAfterBreak(iTotalAnnouncements) = 0 end if else iTotalAuctions = iTotalAuctions + 1 iAuctionID(iTotalAuctions) = rs_events("id") dAuctionDate(iTotalAuctions) = rs_events("released_on") cszAuctionText(iTotalAuctions) = Trim(rs_events("display_name_text")) end if rs_events.MoveNext() wend rs_events.Close() conn.Close %> Econoday | Resource Center | Bond Market Charts<% Response.Write(cszCSS) %>

1999 2000 2001 2002 2003 2004 2005 2006 2007 2008

<% iLastMonth = 1 for ii = 1 to iTotalAnnouncements if (iAnnouncementAfterBreak(ii) = 1) then iLastMonth = iLastMonth + 1 cszTemp = "" Response.Write("") else cszTemp = "" end if %> <% next %>

Date Announcement

<% Response.Write(cszTemp) %><% Response.Write(FormatDateTime(dAnnouncementDate(ii),2)) %> <% Response.Write(cszAnnouncementText(ii)) %>
<% cszTemp = "" for ii = 1 to iTotalAuctions if (iAuctionAfterBreak(ii) = 1) then Response.Write("") end if %> <% next %> <% if (iTotalAuctions <> iTotalAnnouncements) then for ii = iTotalAuctions to iTotalAnnouncements %> <% next end if %>

Date Auction

<% Response.Write(cszTemp) %><% Response.Write(FormatDateTime(dAuctionDate(ii),2)) %> <% Response.Write(cszAuctionText(ii)) %>