<%@ Language=VBScript %> <% Response.Write(cszCSS) %>

<% Set conn = server.CreateObject("ADODB.Connection") conn.Open "DSN=econoday", "syncpak1", "2wagon36b" set rs_events=Server.CreateObject("ADODB.Recordset") sql = "select * from events WHERE display_name_id = 105 AND (released_on <= '12/31/"&cszNavYear&"') ORDER BY released_on DESC" set rs_events=conn.execute(sql) ' Get All the Events while not rs_events.EOF cszHighlights = Trim(rs_events("highlights")) %> <% rs_events.MoveNext() wend rs_events.Close() conn.Close() %> Date Subject <% Response.Write(rs_events("released_for"))%> <% Response.Write(Trim(rs_events("definition"))) %> Simply Economics Archive   •   Short Take Archive   •   International Perspectives Archive   •

Legal Notices | © 1998-<% Response.Write(Year(Now())) %> Econoday, Inc. All Rights Reserved.