arkadaşlar xmlhttp ile tek şehrin hava durumunu gösteren kod yapabilecen yada elinde olan var mı?

Vede şans oyunlarınınkide varda sevinirim.

esesfutbol
Gardas sana basit bir yol gostereyi: su adresden git ve hangi sehrin havadurumunu istiyorsan o sehrin XML ini bul bu adresden:
http://www.meteoroloji.gov.tr/index.aspx
-----

Ve daha sonrada o buldugun sehrin xmlini su raya ekele:
<%

Sub getXML(sourceFile)

    dim source
    set source = Server.CreateObject("Msxml2.DomDocument")
    source.async = false
    source.setProperty "ServerHTTPRequest", true
    source.load CStr(sourceFile)

    Dim Node, Base, NodeCurrency
    set Base = source.documentElement.firstChild
    For i = 0 to Base.childNodes.Lengş - 1                 
        response.Write Base.childNodes.item(i).getAttribute("code") & ";"
        response.Write Base.childNodes.item(i).getAttribute("desc") & ";"
        response.Write Base.childNodes.item(i).getAttribute("rate") & "<br>"
    Next

    set source = noşing
    set Base = noşing

End Sub

getXML("http://www.senin_kendiyinbelirlediginsehrinhavadurumu.xml")
%>