<% Response.buffer=True %> <% =title_text %>Special Celebration in Mijas

picture
Summer program <% =Year(now) %>

<% 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 %> <% rs.movenext loop end if %> Email: info@952485996.com or
Call 952 48 59 96 – 952 48 59 75

Home