<%Option Explicit Const sLanguageCode = "NL" On Error Resume nExt %> MotorTourisme.com

<%GetRouteDetail Request("RouteID")%>
<%GetRouteImages Request("RouteID")%>

Terug naar vorige pagina

<% Sub GetRouteDetail(nRouteID) Dim oConn, oRSRoutes Set oConn = Server.CreateObject("ADODB.Connection") Set oRSRoutes = Server.CreateObject("ADODB.RecordSet") oConn.Mode = 3 oConn.Open DSNName oRSRoutes.Open "GetRouteDetail " & nRouteID, oConn, adOpenForwardOnly, adLockReadOnly If oRSRoutes.EOF AND oRSRoutes.BOF Then Select Case sLanguageCode Case "NL" Response.Write "

Er zijn momenteel nog geen routes aanwezig in deze categorie.

" Case "FR" Response.Write "

Il n'y a pas de routes déjà dans cette catégorie.

" Case "EN" Response.Write "

There are no routes yet in this category.

" Case "DE" Response.Write "

Es gibt keine Wege in diesem categorie.

" End Select Else Response.Write "" 'Do While Not oRSRoutes.EOF dim vertrek,eind,rsdep if not oRSRoutes("startdep")="" then set rsDep=server.CreateObject("adodb.recordset") rsDep.Open "select * from departementen where ID="&oRSRoutes("startdep"),oConn if not rsDep.EOF then vertrek=rsDep("Naam")&" - "&rsDep("departement") else vertrek="n.v.t." end if rsDep.close set rsDep=nothing end if if not oRSRoutes("einddep")="" then set rsDep=server.CreateObject("adodb.recordset") rsDep.Open "select * from departementen where ID="&oRSRoutes("einddep"),oConn if not rsDep.EOF then eind=rsDep("Naam")&" - "&rsDep("departement") else eind="n.v.t." end if rsDep.close set rsDep=nothing end if Response.Write "" 'Response.Write "" Response.Write "" Response.Write "" if oRSRoutes("startdep")<>"" then Response.Write "" end if Response.Write "" If oRSRoutes("Lunch") <> "" Then Response.Write "" End If If oRSRoutes("CoffeeBreak2") <> "" Then Response.Write "" End If Response.Write "" if oRSRoutes("einddep")<>"" then Response.Write "" end if Response.Write "" if oRSRoutes("FileName") <> "" Then Response.Write "" else Response.Write ("") end if If oRSRoutes("GPSFileName") <> "" Then Response.Write "" else Response.Write ("") End If If oRSRoutes("trippyFileName") <> "" Then Response.Write "" else Response.Write ("") End If If oRSRoutes("uitfilename") <> "" Then Response.Write "" End If 'oRSRoutes.MoveNext ' Loop Response.Write "

" & oRSRoutes("Title") & " (" & oRSRoutes("Author") & ")

Routeboek: " & oRSRoutes("Distance") & " km.
Afstand: " & oRSRoutes("Distance") & " km.
Vertrek: " & oRSRoutes("start") & "
Departement: " & vertrek & "
Koffiepauze: " & oRSRoutes("CoffeeBreak1") & "
Middagmaal: " & oRSRoutes("Lunch") & "
Koffiepauze: " & oRSRoutes("CoffeeBreak2") & "
Aankomst: " & oRSRoutes("finish") & "
Departement: " & eind & "
Programma: " & oRSRoutes("Description") & "
Download het roadbook -> 
Het Roadbook is nog niet beschikbaar
Download het GPS bestand -> 
De GPStrack is nog niet beschikbaar
Download het Trippy bestand -> 
Het trippy bestand is nog niet beschikbaar
Download de uitnodiging -> 
" End If oRSRoutes.Close oConn.Close Set oRSRoutes = Nothing Set oConn = Nothing End Sub Sub GetRouteImages(nRouteID) Dim oConn, oRSRoutes, nIndex Set oConn = Server.CreateObject("ADODB.Connection") Set oRSRoutes = Server.CreateObject("ADODB.RecordSet") oConn.Mode = 3 oConn.Open DSNName oRSRoutes.Open "GetRouteImages " & nRouteID, oConn, adOpenForwardOnly, adLockReadOnly If NOT (oRSRoutes.EOF AND oRSRoutes.BOF) Then Response.Write "Sfeerbeelden (klik op de afbeelding voor meer info):
" End If nIndex = 1 Response.Write "" Response.Write "" Do While Not oRSRoutes.EOF If oRSRoutes("Title" & sLanguageCode) <> "" Then Response.Write "" Else Response.Write "" End If oRSRoutes.MoveNext If (nIndex MOD 3 = 0) Then Response.Write "" End If nIndex = nIndex + 1 Loop Response.Write "
" oRSRoutes.Close oConn.Close Set oRSRoutes = Nothing Set oConn = Nothing End Sub %>