Gebruiker:Michiel1972/kml script
Uiterlijk
<% Const ForReading = 1, ForWriting = 2, ForAppending = 8 set fs = CreateObject("Scripting.FileSystemObject") set file = fs.OpenTextFile("c:\sites\content\W\i\k\WikiKML\log.txt", ForAppending) file.Write("[["&Request.QueryString("page")&"]]") file.WriteLine("%"& Request.QueryString("alt")) file.Close() %> <% DIM alt, posstart, posend alt = Request.QueryString("alt") %> <% IF alt = "" THEN alt = "5000" END IF IF Instr(lcase(alt), "city")>0 THEN alt = "4000" END IF IF Instr(lcase(alt), "adm")>0 THEN alt = "100000" END IF IF Instr(lcase(alt), "landmark")>0 THEN alt = "500" END IF IF Instr(lcase(alt), "country")>0 THEN alt = "1000000" END IF IF Instr(lcase(alt), "waterbody")>0 THEN alt = "100000" END IF IF Instr(lcase(alt), "scale")>0 THEN posstart = Instr(lcase(alt), "scale")+6 posend = Instr(posstart,lcase(alt), "_",1) IF posend=0 THEN posend=Len(lcase(alt))+1 END IF alt = Mid(lcase(alt),posstart,(posend-posstart)) END IF IF Instr(lcase(alt), "zoom")>0 THEN posstart = Instr(lcase(alt), "zoom")+5 posend = Instr(posstart,lcase(alt), "_",1) IF posend=0 THEN posend=Len(lcase(alt))+1 END IF alt = Mid(lcase(alt),posstart,(posend-posstart)) IF alt="1" THEN alt="4000000" END IF IF alt="2" THEN alt="2000000" END IF IF alt="3" THEN alt="1000000" END IF IF alt="4" THEN alt="700000" END IF IF alt="5" THEN alt="600000" END IF IF alt="6" THEN alt="500000" END IF IF alt="7" THEN alt="400000" END IF IF alt="8" THEN alt="300000" END IF IF alt="8" THEN alt="200000" END IF IF alt="9" THEN alt="150000" END IF IF alt="10" THEN alt="100000" END IF IF alt="11" THEN alt="50000" END IF IF alt="12" THEN alt="10000" END IF IF alt="13" THEN alt="5000" END IF IF alt="14" THEN alt="2000" END IF IF alt="15" THEN alt="1000" END IF IF alt="16" THEN alt="500" END IF IF alt="17" THEN alt="250" END IF END IF %> <% IF Request.QueryString("lat")="" THEN response.write("Er zijn geen correcte coordinaten meegestuurd. Sorry. Michiel1972") Response.End END IF %> <% Response.ContentType = "application/vnd.google-earth.kml+xml" %> <kml xmlns="http://earth.google.com/kml/2.1"> <Document> <Style id="wiki"> <IconStyle> <Icon><href>root://icons/palette-4.png</href> <y>128</y> <w>32</w> <h>32</h> </Icon><color>ffc5fffb</color><scale>1.0</scale></IconStyle> <LabelStyle> <color>ffc5fffb</color><scale>1.0</scale> </LabelStyle></Style> <Folder><name>Opgevraagde Wikipedia links</name><visibility>1</visibility><open>1</open> <Placemark><description> <a href="http://nl.wikipedia.org/wiki/<%=Request.QueryString("page")%>">Artikel op Wikipedia.</a> <br/> Voor een overzicht van geografische artikelen op Wikipedia met coördinaten in Nederland (ongeveer 3500 locaties, stand: februari 2007) kan je een kml-bestand downloaden voor gebruik in Google Earth. De artikelen worden zichtbaar op de kaart op ongeveer 25 km inzoom hoogte. Download <a href='http://wikipedia.kwikphp.com/Wikipedia NL en BE - feb 2007.kmz'> hier.</a> </description><name><%=Request.QueryString("page")%></name> <visibility>1</visibility> <LookAt> <longitude><%=Request.QueryString("lon")%></longitude> <latitude><%=Request.QueryString("lat")%></latitude> <altitude>0</altitude> <range><%Response.write(alt)%></range> <tilt>0</tilt> </LookAt> <styleUrl>#wiki</styleUrl> <Point> <coordinates> <%=Request.QueryString("lon")%>, <%=Request.QueryString("lat")%>, 0 </coordinates> </Point> </Placemark> </Folder> </Document> </kml>