<%
function GetWeather()
Dim url 
url = "http://www.265.com/weather/54511.htm"
set objXmlhttp = server.createobject("microsoft.xmlhttp")
objXmlhttp.Open "GET",url,false
objXmlhttp.Send()

If objXmlhttp.Status = 200 Then
str = objXmlhttp.ResponseText
End If

GetWeather = str
end function

Dim sWeather

sWeather = GetWeather

n1 = InStr(sWeather,"new Array")+10
n2 = InStr(sWeather,")")

sWeather = Mid(sWeather,n1,n2-n1)

sWeather = Split(Replace(sWeather,"'",""),",")

response.write sWeather(0) & "бл" & sWeather(1)
%>