<%Option Explicit Const sLanguageCode = "NL" %> MotorTouring.com motortreffen rondritten Roadbook agenda evenementen clubavonden info

Aankomende activiteiten

<% GetUpcomingEventsBOVEN GetUpcomingEvents%>
<% Sub GetUpcomingEvents Dim oConn, oRSEvents Set oConn = Server.CreateObject("ADODB.Connection") Set oRSEvents = Server.CreateObject("ADODB.RecordSet") oConn.Open DSNName oRSEvents.Open "GetUpcomingEvents", oConn, adOpenForwardOnly, adLockReadOnly If oRSEvents.EOF AND oRSEvents.BOF Then Select Case sLanguageCode Case "NL" Response.Write "

Er zijn momenteel geen aankomende evenementen.

" Case "FR" Response.Write "

Il n'y a pas des événements pour le moment.

" Case "EN" Response.Write "

There are no events planned at the moment.

" Case "DE" Response.Write "

Es gibt keine Fälle, die im Augenblick geplant werden.

" End Select End If dim weekdag,maand,dag,jaar Do While NOT oRSEvents.EOF Session.LCID= 1043 weekdag=weekdayname(weekday(oRSEvents("eventdate"))) maand=monthname(month(oRSEvents("eventdate"))) dag=day(oRSEvents("eventdate")) jaar=year(oRSEvents("eventdate")) Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("
  "& ucase(oRSEvents("Title" & sLanguageCode))&"
Wanneer : "&weekdag&" "&dag&" "&maand&" "&jaar&" van "&oRSEvents("uurvertrek")&" tot "&oRSEvents("uuraankomst")&"
Waar : "&oRSEvents("startplace")&"
Organisatie : "&oRsEvents("organisationNL")&"
Omschrijving : "&oRsEvents("descriptionNL")&"
") oRSEvents.MoveNext Loop oRSEvents.Close oConn.Close Set oRSEvents = Nothing Set oConn = Nothing End Sub Sub GetUpcomingEventsBOVEN Dim oConn, oRSEvents Set oConn = Server.CreateObject("ADODB.Connection") Set oRSEvents = Server.CreateObject("ADODB.RecordSet") oConn.Open DSNName oRSEvents.Open "GetUpcomingEventsboven", oConn, adOpenForwardOnly, adLockReadOnly dim weekdag,maand,dag,jaar Do While NOT oRSEvents.EOF Session.LCID= 1043 weekdag=weekdayname(weekday(oRSEvents("eventdate"))) maand=monthname(month(oRSEvents("eventdate"))) dag=day(oRSEvents("eventdate")) jaar=year(oRSEvents("eventdate")) Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("
"& ucase(oRSEvents("Title" & sLanguageCode))&"
Wanneer : "&weekdag&" "&dag&" "&maand&" "&jaar&" van "&oRSEvents("uurvertrek")&" tot "&oRSEvents("uuraankomst")&"
Waar : "&oRSEvents("startplace")&"
Organisatie : "&oRsEvents("organisationNL")&"
Omschrijving : "&oRsEvents("descriptionNL")&"
") oRSEvents.MoveNext Loop oRSEvents.Close oConn.Close Set oRSEvents = Nothing Set oConn = Nothing End Sub %>