<%
'Timeandweather for Malaysia asp code
On Error Resume Next
rqst=Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO")
url="http://www.timeandweather.com/data/wx.htp?code=asmly&rqst="&rqst
set Http = server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
Http.Open "GET", url, False
Http.Send
Dim wxasmly 
wxasmly = Http.responseText
response.write (wxasmly)
Set Http = nothing
%>