<%@EnableSessionState=False%> <% Option Explicit Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" Dim strCityurl, strCity, strMetric, strResult, strTmp, strTmp2, HttpObj Set HttpObj = Server.CreateObject("AspHTTP.Conn") strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BRUSSELS&wxcountry=EU;BX" strCity = Request("cities") strMetric = Request("metric") If strMetric = "" Then strMetric = "0" End If Select case strCity case "Agen" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=AGEN&wxcountry=EU;FR&metric=" & strMetric case "Alexandroupolis" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=ALEXANDROUPOLIS%20MIL&wxcountry=EU;GR&metric=" & strMetric case "Alicante" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=ALICANTE&wxcountry=EU;SP&metric=" & strMetric case "Amsterdam" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=AMSTERDAM&wxcountry=EU;NL&metric=" & strMetric case "Antwerp" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=ANTWERP&wxcountry=EU;BX&metric=" & strMetric case "Asturias" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=ASTURIAS&wxcountry=EU;SP&metric=" & strMetric case "Athens" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=ATHENS&wxcountry=EU;GR&metric=" & strMetric case "Aurillac" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=AURILLAC&wxcountry=EU;FR&metric=" & strMetric case "Barcelona" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BARCELONA&wxcountry=EU;SP&metric=" & strMetric case "Bari" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BARI&wxcountry=EU;IY&metric=" & strMetric case "Belfast" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BELFAST&wxcountry=EU;UK&metric=" & strMetric case "Bergerac" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BERGERAC&wxcountry=EU;FR&metric=" & strMetric case "Berlin" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BERLIN&wxcountry=EU;DL&metric=" & strMetric case "Bilbao" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BILBAO&wxcountry=EU;SP&metric=" & strMetric case "Birmingham" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BIRMINGHAM&wxcountry=EU;UK&metric=" & strMetric case "Bordeaux" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BORDEAUX&wxcountry=EU;FR&metric=" & strMetric case "Bristol" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BRISTOL&wxcountry=EU;UK&metric=" & strMetric case "Brive" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BRIVE&wxcountry=EU;FR&metric=" & strMetric case "Brussels" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=BRUSSELS&wxcountry=EU;BX&metric=" & strMetric case "Cagliari" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=CAGLIARI&wxcountry=EU;IY&metric=" & strMetric case "Carcassonne" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=CARCASSONNE&wxcountry=EU;FR&metric=" & strMetric case "Catania" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=CATANIA&wxcountry=EU;IY&metric=" & strMetric case "Clermont" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=CLERMONT&wxcountry=EU;FR&metric=" & strMetric case "Cologne" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=COLOGNE&wxcountry=EU;DL&metric=" & strMetric case "Copenhagen" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=COPENHAGEN&wxcountry=EU;DN&metric=" & strMetric case "Cork" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=CORK&wxcountry=EU;IE&metric=" & strMetric case "Crotone" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=CROTONE&wxcountry=EU;IY&metric=" & strMetric case "Dublin" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=DUBLIN&wxcountry=EU;IE&metric=" & strMetric case "Dubrovnik" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=DUBROVNIK&wxcountry=EU;RT&metric=" & strMetric case "Dusseldorf" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=DUSSELDORF&wxcountry=EU;DL&metric=" & strMetric case "Edinburgh" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=EDINBURGH&wxcountry=EU;UK&metric=" & strMetric case "Epinal" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=EPINAL&wxcountry=EU;FR&metric=" & strMetric case "Exeter" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=EXETER&wxcountry=EU;UK&metric=" & strMetric case "Faro" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=FARO&wxcountry=EU;PO&metric=" & strMetric case "Frankfurt" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=FRANKFURT&wxcountry=EU;DL&metric=" & strMetric case "Fuerteventura" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=FUERTEVENTURA%20ARPT&wxcountry=AF;CR&metric=" & strMetric case "Geneva" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=GENEVA&wxcountry=EU;SW&metric=" & strMetric case "Glasgow" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=GLASGOW&wxcountry=EU;UK&metric=" & strMetric case "Goteborg" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=GOTEBORG&wxcountry=EU;SN&metric=" & strMetric case "Guernsey" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=GUERNSEY&wxcountry=EU;UK&metric=" & strMetric case "Hamburg" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=HAMBURG&wxcountry=EU;DL&metric=" & strMetric case "Hannover" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=HANNOVER&wxcountry=EU;DL&metric=" & strMetric case "Iraklion" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=IRAKLION&wxcountry=EU;GR&metric=" & strMetric case "Ibiza" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=IBIZA&wxcountry=EU;SP&metric=" & strMetric case "Ioannina" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=IOANNINA&wxcountry=EU;GR&metric=" & strMetric case "IsleofMan" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=ISLE%20OF%20MAN&wxcountry=EU;UK&metric=" & strMetric case "Jersey" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=JERSEY&wxcountry=EU;UK&metric=" & strMetric case "Kavala" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=KAVALA&wxcountry=EU;GR&metric=" & strMetric case "LaRochelle" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=LA%20ROCHELLE&wxcountry=EU;FR&metric=" & strMetric case "Lannion" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=LANNION&wxcountry=EU;FR&metric=" & strMetric case "Lanzarote" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=LANZAROTE&wxcountry=AF;CR&metric=" & strMetric case "Leeds" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=LEEDS&wxcountry=EU;UK&metric=" & strMetric case "Lille" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=LILLE&wxcountry=EU;FR&metric=" & strMetric case "Lisbon" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=LISBON&wxcountry=EU;PO&metric=" & strMetric case "London" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=LONDON&wxcountry=EU;UK&metric=" & strMetric case "Luxembourg" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=LUXEMBOURG&wxcountry=EU;LX&metric=" & strMetric case "Lyon" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=LYON&wxcountry=EU;FR&metric=" & strMetric case "Madrid" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=MADRID&wxcountry=EU;SP&metric=" & strMetric case "Manchester" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=MANCHESTER&wxcountry=EU;UK&metric=" & strMetric case "Marseille" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=MARSEILLE&wxcountry=EU;FR&metric=" & strMetric case "Metz" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=METZ&wxcountry=EU;FR&metric=" & strMetric case "Milan" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=MILAN&wxcountry=EU;IY&metric=" & strMetric case "Minsk" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=MINSK&wxcountry=EU;BY&metric=" & strMetric case "Montpellier" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=MONTPELLIER&wxcountry=EU;FR&metric=" & strMetric case "Moscow" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=MOSCOW&wxcountry=EU;RS&metric=" & strMetric case "Mostar" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=MOSTAR&wxcountry=EU;HZ&metric=" & strMetric case "Munich" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=MUNICH&wxcountry=EU;DL&metric=" & strMetric case "Nantes" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=NANTES&wxcountry=EU;FR&metric=" & strMetric case "Nice" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=NICE&wxcountry=EU;FR&metric=" & strMetric case "Palermo" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=PALERMO&wxcountry=EU;IY&metric=" & strMetric case "Palma" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=MALLORCA&wxcountry=EU;SP&metric=" & strMetric case "Paris" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=PARIS&wxcountry=EU;FR&metric=" & strMetric case "Perigueux" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=PERIGUEUX&wxcountry=EU;FR&metric=" & strMetric case "Perpignan" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=PERPIGNAN&wxcountry=EU;FR&metric=" & strMetric case "Pescara" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=PESCARA&wxcountry=EU;IY&metric=" & strMetric case "Poitiers" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=POITIERS&wxcountry=EU;FR&metric=" & strMetric case "Porto" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=PORTO&wxcountry=EU;PO&metric=" & strMetric case "Prague" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=PRAGUE&wxcountry=EU;CZ&metric=" & strMetric case "Reggio" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=REGGIO%20CALABRIA&wxcountry=EU;IY&metric=" & strMetric case "Rennes" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=RENNES&wxcountry=EU;FR&metric=" & strMetric case "Rhodes" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=RHODES&wxcountry=EU;GR&metric=" & strMetric case "Riga" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=RIGA&wxcountry=EU;LV&metric=" & strMetric case "Rodez" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=RODEZ&wxcountry=EU;FR&metric=" & strMetric case "Rome" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=ROME&wxcountry=EU;IY&metric=" & strMetric case "Rotterdam" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=ROTTERDAM&wxcountry=EU;NL&metric=" & strMetric case "Santiago" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=SANTIAGO%20DE%20COMPOSTE&wxcountry=EU;SP&metric=" & strMetric case "Sarajevo" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=SARAJEVO&wxcountry=EU;HZ&metric=" & strMetric case "Sevilla" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=SEVILLA&wxcountry=EU;SP&metric=" & strMetric case "Skopje" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=SKOPJE&wxcountry=EU;ME&metric=" & strMetric case "Southampton" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=SOUTHHAMPTON&wxcountry=EU;UK&metric=" & strMetric case "Split" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=SPLIT&wxcountry=EU;RT&metric=" & strMetric case "Strasbourg" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=STRASBOURG&wxcountry=EU;FR&metric=" & strMetric case "Tallinn" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=TALLINN&wxcountry=EU;EO&metric=" & strMetric case "Tenerife" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=TENERIFE%20SUR/REINA&wxcountry=AF;CR&metric=" & strMetric case "Thessaloniki" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=THESSALONIKI&wxcountry=EU;GR&metric=" & strMetric case "Toulon" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=TOULON&wxcountry=EU;FR&metric=" & strMetric case "Toulouse" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=TOULOUSE&wxcountry=EU;FR&metric=" & strMetric case "Tours" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=TOURS&wxcountry=EU;FR&metric=" & strMetric case "Turin" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=TURIN&wxcountry=EU;IY&metric=" & strMetric case "Valencia" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=VALENCIA&wxcountry=EU;SP&metric=" & strMetric case "Venice" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=VENICE&wxcountry=EU;IY&metric=" & strMetric case "Vienna" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=VIENNA&wxcountry=EU;OS&metric=" & strMetric case "Vigo" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=VIGO&wxcountry=EU;SP&metric=" & strMetric case "Vilnius" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=VILNIUS&wxcountry=EU;LH&metric=" & strMetric case "Zadar" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=ZADAR&wxcountry=EU;RT&metric=" & strMetric case "Zagreb" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=ZAGREB&wxcountry=EU;RT&metric=" & strMetric case "Zurich" strCityurl = "http://www.accuweather.com/adcbin/intlocal_index?wxcity2=ZURICH&wxcountry=EU;SW&metric=" & strMetric case "0" Response.Redirect ("/neu/3/3_01_neu.asp") End Select HTTPObj.Url = strCityurl strResult = HTTPObj.GetURL strTmp = split(strResult, "") strTmp2 = split(strTmp(1), "") strResult = strTmp2(0) %> Weather










Display temperature units in  <%If strMetric = "0" Then%> <%Else%> <%End If%>
<%=strResult%>

New Search