Ensenada weather

Ensenada Hotel Reservations

Ensenada

Call for Assistance when reserving Ensenada Hotels

Travel Tools
<% dim objXMLHTTP URL = "http://wwwa.accuweather.com/world-forecast.asp?partner=accuweather&myadc=0&traveler=0&zipcode=NAM;MX;-;ENSENADA;&fday=1&metric=0/" Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", URL, false objXMLHTTP.Send Set RegularExpressionObject = New RegExp With RegularExpressionObject .Pattern = "]*>(.*?)
" .IgnoreCase = True .Global = True End With Set replacements = New RegExp With replacements .Pattern = "(style|class|alt)=""[^""]+""" .IgnoreCase = True .Global = True End With Set url_replacement = New RegExp With url_replacement .Pattern = "http://vortex.accuweather.com/adc2004/common/images/icons/standard/wx/31x31/" .IgnoreCase = True .Global = True End With Set link_removal = New RegExp With link_removal .Pattern = "]+>" .IgnoreCase = True .Global = True End With Set copyright_terms = New RegExp With copyright_terms .Pattern = "RealFeel[^0-9]+" .IgnoreCase = True .Global = True End With 'Clean up the spaces Set space_cleanup = New RegExp With space_cleanup .Pattern = "\s\s+" .IgnoreCase = True .Global = True End With Set expressionmatch = RegularExpressionObject.Execute(Replace(objXMLHTTP.responsetext,vbNewLine,"")) If expressionmatch.Count > 0 Then extract = expressionmatch(2).value 'Response.write("Match was found") Else extract = "" 'Response.write("Match was NOT found" & expressionmatch.Count) End If Set RegularExpressionObject = nothing local_url = "http://www.ensenada-hotels.com/ensenada-weather/icons/" extract = url_replacement.replace(extract,local_url) extract = replacements.replace(extract,"") extract = link_removal.replace(extract,"") extract = replace(extract,"","") extract = replace(extract,", "," ") extract = copyright_terms.replace(extract,"Feels Like ") extract = space_cleanup.replace(extract," ")'replace multiple spaces with one 'write the results Response.Write extract 'objXMLHTTP.responseText Set objXMLHTTP = Nothing %>
Ensenada Mexico Hotels Add your hotel | Affiliate program | Contact us | Privacy policy | Low rate guarantee
Customer service | About us | Links