<%Option Explicit Const sLanguageCode = "NL" %> MotoTouring.com

<%GetImageDetails Request("ImageID")%>

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, 2, 3 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 Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" If oRSRoutes("Lunch") <> "" Then Response.Write "" End If If oRSRoutes("CoffeeBreak2") <> "" Then Response.Write "" End If Response.Write "" Response.Write "" oRSRoutes.MoveNext Loop Response.Write "" Response.Write "

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

Routeboek: " & oRSRoutes("Distance") & " km.
Afstand: " & oRSRoutes("Distance") & " km.
Vertrek: " & oRSRoutes("Start") & "
Koffiepauze: " & oRSRoutes("CoffeeBreak1") & "
Middagmaal: " & oRSRoutes("Lunch") & "
Afstand: " & oRSRoutes("CoffeeBreak2") & "
Aankomst: " & oRSRoutes("Finish") & "
Programma: " & oRSRoutes("Description") & "
Sfeerbeelden:  
" End If oRSRoutes.Close oConn.Close Set oRSRoutes = Nothing Set oConn = Nothing End Sub Sub GetImageDetails(nImageID) Dim oConn, oRSRoutes, nIndex Set oConn = Server.CreateObject("ADODB.Connection") Set oRSRoutes = Server.CreateObject("ADODB.RecordSet") oConn.Mode = 3 oConn.Open DSNName oRSRoutes.Open "GetImageDetails " & nImageID, oConn, 2, 3 Response.Write "" Response.Write "

" & oRSRoutes("Title" & sLanguageCode) & "

" Response.Write "" Response.Write "" Response.Write "
" & Replace(oRSRoutes("Description" & sLanguageCode), vbCrlf, "
") & "
" oRSRoutes.Close oConn.Close Set oRSRoutes = Nothing Set oConn = Nothing End Sub %>