<%@ Language=VBScript %> <% Dim cszReleasedOn(356), cszReleasedFor(356), dReleasedOn(356), iIndex, ii Dim iMAXWIDTH, iPlacerHolder, iMaxDisplay Dim CurrentDate Dim cszAdCodeTower, cszCustomDisclaimer cszCustomDisclaimer ="" %> <% 'Dim ihtmlinclude CurrentDate = Now() iMAXWIDTH = 700 ' Default here in case users log in ' cszCSS = ""&vbcr&vblf&"" Set conn = server.CreateObject("ADODB.Connection") conn.Open "DSN=econoday", "syncpak1", "2wagon36b" cszCustomer = Request("cust") ' if a cusomter was passed then its a company that has rights to our free display. if (Len(cszCustomer) > 0) then set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from companyname WHERE Enable=1 AND companyname = '" & cszCustomer & "'" rs.Open sql, conn if rs.EOF then rs.Close conn.Close Response.End() ' Should goto a page that displays login for a user else cszSyncPaks = rs("cid") ' save the Company ID, to see which modules we should serve up. iAllowDeliveryMethods = rs("deliverymethods") ihtmlinclude = rs("htmlincludes") cszCSS = rs("cssblock") if (IsNull(cszCSS) OR (Len(Trim(cszCSS)) = 0)) then cszCSS = ""&vbcr&vblf&"" else cszCSS = Trim(cszCSS) end if iMAXWIDTH = rs("imaxwidth") set rs_companyevents=Server.CreateObject("ADODB.Recordset") sql = "select * from companyname_events WHERE cid=" & cszSyncPaks rs_companyevents.Open sql, conn while not rs_companyevents.EOF if (Len(cszSubscribedEvents) = 0) then cszSubscribedEvents = "display_name_id = "&rs_companyevents("display_name_id") else cszSubscribedEvents = cszSubscribedEvents&" OR display_name_id = "&rs_companyevents("display_name_id") end if if (rs_companyevents("display_name_id") = 106) then ' Equity Settlements iIncludeEquitySettlements = 1 end if rs_companyevents.MoveNext() wend rs_companyevents.Close() end if rs.Close else ' Dim irID, cszExclusionIDs ' Dim rs_AccessPermSubModules cszSyncPaks = "" cszSubscribedEvents = "" cszExclusionIDs = "" cszemail = Request.Cookies("il12") 'Response.Write("email = "&cszemail&"
") ''''''''''''''''''''''''''''''''''''''''''' Set connSyncPak = server.CreateObject("ADODB.Connection") connSyncPak.Open "DSN=syncpak", "syncpak1", "2wagon36b" ' lets get the user ID set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from registration WHERE Enable=1 AND email = '" & cszemail & "'" rs.Open sql, connSyncPak if not rs.EOF then irID = rs("rid") ' save the User ID ' get the actual "SyncPaks" this user has active set rs_AccessPerm=Server.CreateObject("ADODB.Recordset") sql = "select * from AccessPerm WHERE (enable=1 AND rid = " & irID & ") AND (id < 4008)" 'Response.Write(sql&"
") rs_AccessPerm.Open sql, connSyncPak while not rs_AccessPerm.EOF ' Response.Write("FOUND "&rs_AccessPerm("id")&"
") if (DateAdd("d", +15, rs_AccessPerm("regdate")) >= CurrentDate) OR (rs_AccessPerm("dExpireDate") > CurrentDate) then ' Response.Write("GOT "&rs_AccessPerm("id")&"
") if (Len(cszSyncPaks) = 0) then cszSyncPaks = "(cid=" & rs_AccessPerm("id") & ")" else cszSyncPaks = cszSyncPaks & " OR (cid=" & rs_AccessPerm("id") & ")" end if set rs_AccessPermSubModules=Server.CreateObject("ADODB.Recordset") sql = "select * from AccessPermSubModules WHERE rid = "&irID& " AND id = "&rs_AccessPerm("id") 'Response.Write(sql&"

") rs_AccessPermSubModules.Open sql, connSyncPak while not rs_AccessPermSubModules.EOF if (Len(cszExclusionIDs) = 0) then cszExclusionIDs = "(display_name_id <> " & rs_AccessPermSubModules("display_name_id") & ")" else cszExclusionIDs = cszExclusionIDs & " AND (display_name_id <>" & rs_AccessPermSubModules("display_name_id") & ")" end if rs_AccessPermSubModules.MoveNext() wend rs_AccessPermSubModules.Close() end if rs_AccessPerm.MoveNext() wend set rs_companyevents=Server.CreateObject("ADODB.Recordset") sql = "select * from companyname_events WHERE "&cszSyncPaks 'Response.Write(sql&"
") rs_companyevents.Open sql, conn while not rs_companyevents.EOF if (Len(cszSubscribedEvents) = 0) then cszSubscribedEvents = "display_name_id = "&rs_companyevents("display_name_id") else cszSubscribedEvents = cszSubscribedEvents&" OR display_name_id = "&rs_companyevents("display_name_id") end if if (rs_companyevents("display_name_id") = 106) then ' Equity Settlements iIncludeEquitySettlements = 1 end if rs_companyevents.MoveNext() wend rs_companyevents.Close() end if rs.Close() connSyncPak.Close() '''''''''''''''''''''''''''''''''''''''''''''''''''''' conn.Close if (Len(cszSubscribedEvents) = 0) then Response.Write("No EVENTs

") ' goto login page ' Response.Redirect("http://my.econoday.com/userlogin.asp") Response.End() end if 'Response.Write(cszSubscribedEvents&"

") if (Len(cszExclusionIDs) > 0) then cszSubscribedEvents = cszSubscribedEvents & ") AND (" & cszExclusionIDs end if ' Response.Write("--"&cszExclusionIDs&"----

") end if Set conn = server.CreateObject("ADODB.Connection") conn.Open "DSN=econoday", "syncpak1", "2wagon36b" set rs=Server.CreateObject("ADODB.Recordset") ' sql = "select * from event_name WHERE frequency <> 1 AND (" & cszSubscribedEvents &") ORDER BY display_name_text, listingpriority" sql = "select * from event_name WHERE frequency <> 1 AND (" & cszSubscribedEvents &") ORDER BY truelistorder" set rs=conn.execute(sql) %> U.S. Economic Release Dates <% cszCSS = Trim(cszCSS) cszCSS = Replace(cszCSS, "public", "reports") Response.Write(cszCSS) %> <% if ((ihtmlinclude AND 32) = 32) then if (Len(cszAdCodeTower) > 0) then iMAXWIDTH = iMAXWIDTH + 120 ' there is a tower ad lets make room for it end if end if %>
<% while not rs.EOF if ( ((rs("category_id") AND 1) = 1) OR ((rs("category_id") AND 2) = 2)) then ' if Economic only / OR Treasuries set rs_events=Server.CreateObject("ADODB.Recordset") ' dont get Weekly events sql = "select * from events WHERE display_name_id = " & rs("display_name_id") &" AND ((released_on >= '1/1/"&cszNavYear&"') AND (released_on <= '12/31/"&cszNavYear&" 11:59 pm')) ORDER BY released_on" set rs_events=conn.execute(sql) iIndex = 1 ' Get All the Events while not rs_events.EOF dReleasedOn(iIndex) = rs_events("released_on") if (IsDate(dReleasedOn(iIndex))) then cszReleasedOn(iIndex) = Month(rs_events("released_on")) & "/" & Day(rs_events("released_on")) else cszReleasedOn(iIndex) = "" end if if (Len(Trim(rs_events("released_for"))) > 0) then cszReleasedFor(iIndex) = Trim(rs_events("released_for")) 'cszTemp = Right(cszReleasedFor(iIndex), 2) cszTemp = "" ' cszReleasedFor(iIndex) = Replace(cszReleasedFor(iIndex), "2008", "") ' cszReleasedFor(iIndex) = Replace(cszReleasedFor(iIndex), ",", "") ii = InStr(cszReleasedFor(iIndex), ",") if (ii > 0) then cszReleasedFor(iIndex) = Left(cszReleasedFor(iIndex), ii-1) else cszReleasedFor(iIndex) = Trim(cszReleasedFor(iIndex)) end if if (InStr(cszReleasedFor(iIndex), "January")) OR (InStr(cszReleasedFor(iIndex), "February")) OR (InStr(cszReleasedFor(iIndex), "March")) OR (InStr(cszReleasedFor(iIndex), "April")) OR (InStr(cszReleasedFor(iIndex), "May")) OR (InStr(cszReleasedFor(iIndex), "June")) OR (InStr(cszReleasedFor(iIndex), "July")) OR (InStr(cszReleasedFor(iIndex), "August")) OR (InStr(cszReleasedFor(iIndex), "September")) OR (InStr(cszReleasedFor(iIndex), "October")) OR (InStr(cszReleasedFor(iIndex), "November")) OR (InStr(cszReleasedFor(iIndex), "December")) then ' cszReleasedFor(iIndex) = Left(cszReleasedFor(iIndex), 3) &", "&cszTemp cszReleasedFor(iIndex) = Left(cszReleasedFor(iIndex), 3) end if else cszReleasedFor(iIndex) = "" end if iIndex = iIndex + 1 rs_events.MoveNext() wend rs_events.Close() iPlacerHolder = 0 if (rs("display_name_id") = 254) then ' GDP (US) (254) iMaxDisplay = 11 else iMaxDisplay = 14 end if if (iIndex > 1) then ' are there any events for this ? %> <% Response.Write(Trim(rs("display_name_text"))) %> (<% Response.Write(Trim(rs("country"))) %>)
<% ii = 1 while (ii < iIndex) AND (ii < iMaxDisplay) %> <% ii = ii + 1 wend %> <% if (( ((rs("category_id") AND 2) <> 2)) AND (rs("display_name_id") <> 252)) then ' if NOT a Treasury and not FOMC Meeting Announcement (252) if (Len(cszReleasedFor(1)) > 1) then %> <% ii = 1 while (ii < iIndex) AND (ii < iMaxDisplay) %> <% ii = ii + 1 wend %> <% end if if (ii < iIndex) then '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' iMaxDisplay = ii %> <% while (ii < iIndex) %> <% ii = ii + 1 wend %> <% if (( ((rs("category_id") AND 2) <> 2)) AND (rs("display_name_id") <> 252)) then ' if NOT a Treasury and not FOMC Meeting Announcement (252) if (Len(cszReleasedFor(1)) > 1) then %> <% ii = iMaxDisplay while (ii < iIndex) %> <% ii = ii + 1 wend %> <% end if end if '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' end if end if if (rs("display_name_id") = 254) then ' GDP (US) (254) %> <% end if %>
Released On:<% Response.Write(cszReleasedOn(ii)) %>
Released For:<% Response.Write(cszReleasedFor(ii)) %>
Released On:<% Response.Write(cszReleasedOn(ii)) %>
Released For:<% Response.Write(cszReleasedFor(ii)) %>
A: Advance P: Preliminary F: Final

<% end if end if rs.MoveNext() wend %>
<% if ((ihtmlinclude AND 524288) = 524288) AND (Len(cszCustomDisclaimer) > 0) then Response.Write("
") else Response.Write("[Econoday]
") end if if ((ihtmlinclude AND 524288) = 0) then ' Should we exclude the legal disclaimer ? %> Important Legal Notice: Econoday has attempted to verify the information contained in this calendar. However, any aspect of such info may change without notice. Econoday does not provide investment advice, and does not represent that any of the information or related analysis is accurate or complete at any time.  Legal Notices © 1998-<% Response.Write(Year(CurrentDate)) %> Econoday, Inc. All Rights Reserved.

Actual Data Source: Haver Analytics | Consensus Data Sources: Market News International & Thomson Financial

<% if (iCompanyID <> 2) then ' Fidelity %> Econoday Suggestion Box:  We welcome your ideas on how we can serve you better. <% end if else ' custom_disclaimer Response.Write(cszCustomDisclaimer) end if %> 		[spacer]
<% conn.Close() %>