Gebruiker:Michiel1972/kml script

Van Wikipedia

<% 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>