<%
xdate=Year(Now) & "-" & month(Now) & "-" & Day(Now)-1
' database connection
conn=StrAdminProvider
'sqltext = "select * from events_big WHERE active='yes' ORDER by event_date ASC"
sqltext = "select * from events_big WHERE active='yes' AND event_date > '" & xdate & "' ORDER by event_date ASC"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open sqltext, conn
'response.end
if rs.eof then
response.write "No hay enlaces en la base de datos"
response.end
else
do until rs.eof
if rs("event_date")<>"" then
request_datum=rs("event_date")
xdatum=rs("event_date")
' the date here has to be mm/dd/yyy to show correct day of the week
xdatum=month(xdatum)&"/"&day(xdatum)&"/"&year(xdatum)
weekdaynumber=Weekday(xdatum)
xwochentag = WeekdayName(weekdaynumber)
anzeigedatum=day(xdatum)&"/"&month(xdatum)&"/"&year(xdatum)
else
end if
%>