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=217 OR E.display_name_id=225 OR E.display_name_id=221 OR E.display_name_id=218 OR E.display_name_id=226 OR E.display_name_id=222) 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 = 217) OR (iDisplayNameID = 225) OR (iDisplayNameID = 221)) 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) = 1 ' since we are skipping the first auction (2008 workds for) else iAnnouncementAfterBreak(iTotalAnnouncements) = 0 iAuctionAfterBreak(iTotalAnnouncements+1) = 0 ' since we are skipping the first auction (2008 workds for) 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 = 2 to iTotalAuctions ' skip the first auction (to match up with announcements) works for 2008 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)) %>