array ('header'=> 'Range: bytes=1024-', ),); $xcontext = stream_context_create($context); $str=file_get_contents("http://www.fcicq.net/wp/",FALSE,$xcontext); ?> Nehmeh Weather Report (Qatar)

Nehmeh Weather Report (Qatar)
In degrees Celcius
<% dim objXMLHTTP URL = "http://weather.msn.com/local.aspx?&wealocations=wc%3aQAXX0003&setunit=C" Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", URL, false objXMLHTTP.Send start = InStr(objXMLHTTP.responsetext, "C") finish = InStr(objXMLHTTP.responsetext, "View all Doha, QAT maps") amount = finish - start extract = Mid(objXMLHTTP.responsetext,start,amount) weather = replace(replace(replace(replace(replace(replace(replace(replace(extract, "0>C","0>Current Conditions"), ">Barometer",">Barometer"), ">Dewpoint",">Dewpoint"),">Humidity", ">Humidity"),">UV Index",">UV Index"),">Detailed ten-day forecast",">Detailed ten-day forecast"),">Hourly forecast (next 48 hours)",">Hourly forecast (next 48 hours)"),">Details",">Details") 'Response.Write "
" 'Response.Write "

HTML Code for "&URL&"

" 'Response.Write "" Set objXMLHTTP = Nothing %>