<%@ Language=VBScript %>
<%
	Dim conn, rs_events
	Dim cszRedirectURL, cszURL, cszNavYear, cszCustomer
	Dim cszLastThanDate

	cszRedirectURL = ""

	cszCustomer = Request("cust")
	cszNavYear = Trim(Request("year"))
	if (Len(cszNavYear) = 0) then
		cszNavYear = Year(Now())
	end if

	cszLastThanDate = "12/31/"&cszNavYear
	
	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=104 AND released_on < '"&cszLastThanDate&"' ORDER BY released_on DESC"
	
	rs_events.Open sql, conn
	if not rs_events.EOF then
		cszRedirectURL = rs_events("highlights")
	end if

	rs_events.Close()
	conn.Close()

	if (Len(cszRedirectURL) > 0) then
		Response.Redirect(cszRedirectURL&"?cust="&cszCustomer&"&year="&cszNavYear)
	else
		Response.Redirect("/reports/rc/"&cszNavYear&"/Resource_Center/articles.html?cust="&cszCustomer&"&year="&cszNavYear)
	end if
%>