/ Published in: ASP
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
<% Dim StrUrl, strCorpo, strTemperatura, StrSensacao, StrImagem, StrClima, StrCidade Dim arr, arrTemperatura, ArrClima, ArrImagem, ArrSensacao, ArrCidade Dim objXMLHTTP, strXmlHttp StrUrl = "http://br.weather.com/weather/local/BRXX0109" 'url da cidade desejada Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") objXMLHTTP.open "get", StrUrl,false objXMLHTTP.send strXmlHttp = objXMLHTTP.responseText set objXMLHTTP = nothing function limpa(str) Dim var var = replace(trim(str),"""","") var = replace(var,">","") var = replace(var,"xt","") var = replace(var,"TeT","T") var = replace(var,"Text","") var = replace(var,"OP","") var = replace(var,"Sensação de ","") limpa=var end function 'Array global para pegar apenas a tabela que contem as informações desejadas arr=split(strXmlHttp,"<!-- insert reported by and last updated info -->") strCorpo = mid(arr(1),1,6300)