<%Option Explicit Const sLanguageCode = "NL" %> MotorTouring.com MotorTourisme motor touring motorroute motoroute motorroutes motoroutes motorrouten motoroute motorroadbooks motoroadbooks motoerist motortoerist

<%=Request("Title")%>

<%ListMotoRoutes Request("CategoryID")%>

Terug naar vorige pagina

<% Sub GetCategories Dim oConn, oRSCategories Set oConn = Server.CreateObject("ADODB.Connection") Set oRSCategories = Server.CreateObject("ADODB.RecordSet") oConn.Open DSNName oRSCategories.Open "GetCategories", oConn, 2, 3 Do While NOT oRSCategories.EOF Response.Write "

" & oRSCategories("TitleNL") & "

" Response.Write "

" & oRSCategories("DescriptionNL") & "

" Response.Write "

Naar " & oRSCategories("TitleNL") & " ->

" oRSCategories.MoveNext Loop oRSCategories.Close oConn.Close Set oRSCategories = Nothing Set oConn = Nothing End Sub Sub ListMotoRoutes(nCategoryID) Dim oConn, oRSRoutes Set oConn = Server.CreateObject("ADODB.Connection") Set oRSRoutes = Server.CreateObject("ADODB.RecordSet") oConn.Open DSNName oRSRoutes.Open "GetActiveRoutesByCategory " & nCategoryID, 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 "" Response.Write "" dim prov prov="a" Do While Not oRSRoutes.EOF if oRSRoutes("buitenland") = "2" and not oRSRoutes("ProvinceNL") = prov then prov=oRSRoutes("ProvinceNL") Response.Write ("") end if if oRSRoutes("buitenland") = "1" and not prov="België" then prov="België" Response.Write ("") end if Response.Write "" Response.Write " " Response.Write " " Response.Write " " 'Response.Write " " Response.Write "" oRSRoutes.MoveNext Loop Response.Write "

Vertrek	Omschrijving	Gem. Afstand
"&oRSRoutes("ProvinceNL")&"
België
" & oRSRoutes("ProvinceNL") & "	" & oRSRoutes("Title") & "	" & oRSRoutes("Distance") & " km.	" & oRSRoutes("Author") & "

" End If oRSRoutes.Close oConn.Close Set oRSRoutes = Nothing Set oConn = Nothing End Sub %>