<% TodayDate = Date() 'response.write TodayDate TodayDate = DateAdd("Y", -1, Date) 'response.write TodayDate Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(Application("partypacked_ConnectionString")) %> <% Set rsView = Conn.Execute("SELECT TOP 3 EventID, EventName, EventDate FROM UpEvents WHERE EventDate > '" & TodayDate & "' AND EventShow = 1 AND Approved = 2 ORDER BY EventDate") Do Until rsView.Eof 'Newdate = DateDiff("Y", rsView("EventDate"), TodayDate) 'Response.write Newdate %> <% rsView.MoveNext Loop Set rsView = Nothing %> <% Set rsView = Conn.Execute("SELECT TOP 3 EventID, EventName, EventDate FROM UpEvents WHERE EventDate > '" & TodayDate & "' AND EventShow = 2 AND Approved = 2 ORDER BY EventDate") Do Until rsView.Eof 'Newdate = DateDiff("Y", rsView("EventDate"), TodayDate) 'Response.write Newdate %> <% rsView.MoveNext Loop Set rsView = Nothing %>

" target="main"><%=rsView("EventName")%>

" target="main"><%=rsView("EventName")%>

<% Conn.Close Set Conn = Nothing %>