%@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