<%@ Language=VBScript %>**
<%**
**** Response.ContentType = "text/html"**
**** Response.CharSet = "ISO-8859-9"**
%>**
<%****** 
**** Dim XmlHTTP, SourceFile, objDOM, objChild, I**
**** SourceFile = "http://www.weatherroom.com/xml/loc/LTAU"****
**** Set XmlHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )** 
**** XmlHTTP.Open "GET" , SourceFile, false** 
**** XmlHTTP.SEnd**
****** 
**** Set objDOM = Server.CreateObject("MSXML2.DomDocument" )**
**** objDOM.async = False**
**** objDOM.loadXML(XmlHTTP.ResponseText)**
%>**
<% For I = 1 To 12 %>**
<%** 
NodeName**** = objDOM.documentElement.childNodes(I).NodeName**
Text**********= objDOM.documentElement.childNodes(I).Text**
%>**
<tr>**
<td><b><%=NodeName %>:</b></td>**
<td><%=Text %></td>**
</tr>************
<% Next %>**
<%****** 
**** Set objDOM = Nothing**
**** Set Source = Nothing**
**** Set XMLHttp = Nothing**
%>******