Baltimore Sailing Club - Met Éireann National Forecast

<% Response.Buffer = True Dim objXMLHTTP, xml, sMyString Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://www.met.ie/forecasts/sea-area.asp", False xml.Send sMyString = xml.responseText sMyString = Replace(sMyString, "", "




Updated - <% Response.Buffer = True Dim objXMLHTTP, xml, sMyString Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://www.met.ie/forecasts/sea-area.asp", False xml.Send sMyString = xml.responseText sMyString = Replace(sMyString, "", "