ASP Call 265 Weather code

<%
H_href = Http://down.111cn.net
H_name = "Five-bar navigation station"
' Go.asp page
Sub Frame_go ()
If Request ("Key") = "Then Response.Redirect"./index.htm "
End Sub
%>
<%
Url= "http://weather.265.com/weather/" &chengid& ". htm"
Html = Gethttppage (URL)
Html=replace (Html, ".. /js/weather_265_1.js ",". /weather.js ")
Html=replace (Html, "265 internet navigation", "five-bar navigation station")
Html=replace (Html, "www.265.com", "Www.D58.Net")
Html=replace (Html, "weather.265.com", "Www.D58.Net")
Html=replace (Html, "265", "d58")
' Html=replace (Html, "265 Home", "d58 Home")
' Html=replace (Html, "265 Weather", "d58 Weather")
Html=replace (Html, "d58.com", "d58.net")
' Response.Write Html
Set fs = Server.CreateObject ("Scripting.FileSystemObject")
Tid = Server.MapPath ("weather/" &chengid& ". htm")
Set a = fs. CreateTextFile (TID)
A.write Html
A.close
Set fs=nothing
%>