<%@ Language=VBScript %> <% Dim cszReleasedOn(356), cszReleasedFor(356), dReleasedOn(356), iIndex, ii Dim CurrentDate 'Dim ihtmlinclude CurrentDate = Now() ' 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 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) %>
<% 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" ' rs.Open sql, conn,1, 2 ' sql="select E.id, E.touched, E.event_type, E.display_name_id, E.released_for, 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 ("&cszSubscribedEvents&") AND ((released_on >= '1/1/2008') AND (released_on <= '12/31/2008')) ORDER BY EN.display_name_text, EN.listingpriority" 'Response.Write("sql = "&sql&"

") 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) cszReleasedFor(iIndex) = Replace(cszReleasedFor(iIndex), "2008", "") cszReleasedFor(iIndex) = Replace(cszReleasedFor(iIndex), ",", "") cszReleasedFor(iIndex) = Trim(cszReleasedFor(iIndex)) 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 end if else cszReleasedFor(iIndex) = "" end if 'Response.Write(rs_events("released_on") &"
") 'Response.Write("---"&rs_events("released_for") &"
") iIndex = iIndex + 1 rs_events.MoveNext() wend rs_events.Close() 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) %> <% 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) %> <% ii = ii + 1 wend %> <% 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)) %>
A: Advance P: Preliminary F: Final

<% end if end if rs.MoveNext() wend %>


 
powered by [Econoday]
Legal Notice | © Copyright 2000-<% Response.Write(Year(CurrentDate)) %> Econoday, Inc. 
<% conn.Close() %>