|
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 (" | "& ucase(oRSEvents("Title" & sLanguageCode))&" | |
")
Response.Write (" | | |
")
Response.Write (" | Wanneer : | | "&weekdag&" "&dag&" "&maand&" "&jaar&" van "&oRSEvents("uurvertrek")&" tot "&oRSEvents("uuraankomst")&" | |
")
Response.Write (" | | |
")
Response.Write (" | Waar : | | "&oRSEvents("startplace")&" | |
")
Response.Write (" | | | |
")
Response.Write (" | Organisatie : | | "&oRsEvents("organisationNL")&" | |
")
Response.Write (" | | | |
")
Response.Write (" | Omschrijving : | | "&oRsEvents("descriptionNL")&" | |
")
Response.Write (" | | |
")
Response.Write (" |
")
Response.Write ("
")
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 ("| "& ucase(oRSEvents("Title" & sLanguageCode))&" |
")
Response.Write (" |
")
Response.Write ("| Wanneer : | | "&weekdag&" "&dag&" "&maand&" "&jaar&" van "&oRSEvents("uurvertrek")&" tot "&oRSEvents("uuraankomst")&" |
")
Response.Write (" |
")
Response.Write ("| Waar : | | "&oRSEvents("startplace")&" |
")
Response.Write (" |
")
Response.Write ("| Organisatie : | | "&oRsEvents("organisationNL")&" |
")
Response.Write (" |
")
Response.Write ("| Omschrijving : | | "&oRsEvents("descriptionNL")&" |
")
Response.Write (" |
")
Response.Write (" |
")
Response.Write ("
")
oRSEvents.MoveNext
Loop
oRSEvents.Close
oConn.Close
Set oRSEvents = Nothing
Set oConn = Nothing
End Sub
%>