<% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <% Dim objXML , strURL , strQuote Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0") strQuote = Request.Form("item") strURL ="http://rss.wunderground.com/auto/rss_full/NY/Bronxville.xml" objXML.Open "GET" , strURL , False objXML.Send If Err.Number = 0 Then If objXML.Status = 200 then strOpen = objXML.ResponseText if (instr(strOpen, "

	Temperature: <%= arrText(0) %>
	<%= arrText(1) %>
	<%= arrText(2) %>
	Updated On: <%=now() %>