|
|
<%
' This function takes a filename and returns the appropriate image for
' that file type based on it's extension if the file exists.
Function ShowImage(strName, strPath)
Dim strTemp
Dim objFE
' Create an FSO
Set objFE = Server.CreateObject("Scripting.FileSystemObject")
'response.write strPath & strName
' Check if the file exists
if objFE.FileExists(strPath & strName) = true then
' Set our working string to the one passed in
strTemp = strName
' If it's not a directory, get the extension and set it to strTemp
' If it is a directory, then we already have the correct value
If strTemp <> "dir" Then
strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1)))
End If
' Debugging line used to perfect that above string parser
'Response.Write strTemp
' Set the part of the image file name that's unique to the type of file
' to it's correct value and set this to strTemp. (yet another use of it!)
Select Case strTemp
Case "txt"
strTemp = "txt"
case "mps"
strTemp = "mps"
case "trk"
strTemp = "trk"
case "plt"
strTemp = "plt"
Case Else
strTemp = "misc"
End Select
' All our logic is done... build the IMG Tag for display to the browser
' Place it into... where else... strTemp!
' My images are all GIFs and all start with "dir_" for my own sanity.
' They end with one of the values set in the select statement above.
'response.write "images/dir_" & strTemp & ".gif"
strTemp = "![]() "
else
strTemp = ""
end if
Set objFE = Nothing
' Set return value and exit function
ShowImage = strTemp
End Function
%>
<%
' This function takes a filename and returns the appropriate image for
' that file type based on it's extension if the file exists.
Function ShowInfo(strName, strPath)
Dim strTemp
Dim objFE
' Create an FSO
Set objFE = Server.CreateObject("Scripting.FileSystemObject")
'response.write strPath & strName
' Check if the file exists
if objFE.FileExists(strPath & strName) = true then
Dim a, b
strTemp = ""
'create class instance
Set a = New INITool
'load ini file
a.Load strPath & strName
'read key's value from header
b = a.Read("info", "distance", "")
if b <> "" then
strTemp = strTemp & " A: " & b
end if
b = a.Read("info", "hights", "")
if b <> "" then
strTemp = strTemp & " HM: " & b
end if
'release class
Set a = Nothing
' Set our working string to the one passed in
else
strTemp = ""
end if
Set objFE = Nothing
' Set return value and exit function
ShowInfo = strTemp
End Function
%>
<%' Now to the Runtime code:
Dim strPath 'Path of directory to show
Dim objFSO 'FileSystemObject variable
Dim objFolder 'Folder variable
Dim objItem 'Variable used to loop through the contents of the folder
Dim strName 'Name of file without extension
Dim strPrevName 'Previous file name without extension
Dim iCnt 'Counter variable
' You could just as easily read this from some sort of input, but I don't
' need you guys and gals roaming around our server so I've hard coded it to
' a directory I set up to illustrate the sample.
' NOTE: As currently implemented, this needs to end with the /
' Display al de toertochten tracks
strPath = "Tracks/"
strPrevName = ""
' Create our FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Get a handle on our folder
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
' Show a little description line and the title row of our table
%>
Tracks
conversie van Waypoints, Tracks en routes: zoek even naar GPS
Utility en Importer en GPSBabel
bij de links.
Of gebruik het GPX formaat om van de ene naar de andere software te exporteren en importeren (indien dit ondersteunt wordt).
Wat is een waypoint, track en een route?
Beschikbare Tracks:
Deze
meeste van deze tracks zijn gecreëerd door Bart Mertens. De juistheid
kan varieren.
Al de tracks werden gereduceerd en gecorigeerd om beter aan te sluiten
bij de kaart en meetfouten te verwijderen.
Formaten niet beschikbaar in de tabel kunnen
online geplaatst worden (Fugawi OF OziExporer OF Text OF
MapSource(incl GPX)).
!! Maak steeds gebruik van de
laatste versie van MapSource. Denk eraan, MetroGuide, City Select,
City Navigator zijn de garmin kaarten en worden geleverd met MapSource
erbij. Mapsource is enkel het universele programma dat gebruikt wordt
om garmin kaarten te tonen op een pc en om te communiceren met je GPS.
Deze software is gratis te updaten. !!
Je eigen tracks kunnen bij online geplaatst worden door ze mij te
.
De tracks moeten in 1 of meerdere van de bovenstaande formaten zijn.
PS: de afstandsaanduiding onder 'info' is meestal 3 a 5% minder dan wanneer
de track reeel gebruikt wordt (de software werkt nu eenmaal met loodrechte
lijnstukken van punt tot punt). Door het reduceren van tracks zijn de
hoogtemeters eveneens meestal 10% minder geworden, behalve indien geregistreerd
met een barometrische hoogtemeter.
Onze eigen beschikbare tracks:
Andere track websites:
| België |
Buitenland |
| RouteYou.com: algemeen |
GPS-Tour.info: MTB, cyclo, wandel |
| East Belgium
Cycling Biking: MTB |
GPStracks NL: MTB, cyclo, wandel, moto |
| Mountainbike.be: MTB |
Rutas GPS: MTB |
| GPS bike tracks: MTB |
wikiloc: Wandel |
| GpsCyclingTour: cyclo, MTB |
GPSwalking: Wandel |
| GPS mountainbike tracks: MTB |
TraceGPS.com: MTB, cyclo, wandel |
| MtbRoutes.be: MTB |
Bikely.com: fiets, wandel, ... |
| O2 Bikers: MTB |
|
| Kraksontracks: MTB |
|
| Marc en Marieken: Wandel |
|
| Ann & Walter: Wandel |
|
|
