// In einen Formular entspr. der PLZ den Ort automatisch ergaenzen
// copyright 2003 Werner T. Huber, ZugerWeb

function ausfuellen() 
{
plz = document.forms[0].PLZ.value;

Liste = "\
6301=Zug#\
6302=Zug#\
6303=Zug#\
6304=Zug#\
6312=Steinhausen#\
6313=Menzingen#\
6314=Unterägeri#\
6315=Oberägeri#\
6317=Oberwil b. Zug#\
6318=Walchwil#\
6319=Allenwinden#\
6330=Cham#\
6331=Cham#\
6331=Hünenberg#\
6332=Hagendorn#\
6340=Baar#\
6341=Baar#\
6342=Baar#\
6343=Rotkreuz#\
6344=Meierskappel#\
6345=Neuheim#\
5630=Muri AG#\
5636=Benzenschwil#\
5637=Beinwil (Freiamt)#\
5642=Mühlau#\
5643=Sins#\
5644=Auw#\
5645=Aettenschwil#\
5646=Abtwil AG#\
5647=Oberrüti#\
6030=Ebikon#\
6032=Emmen#\
6033=Buchrain#\
6034=Inwil#\
6035=Perlen#\
6036=Dierikon#\
6037=Root#\
6038=Gisikon#\
6039=Root Längenbold#\
6042=Dietwil#\
6043=Adligenswil#\
6044=Udligenswil#\
6402=Merlischachen#\
6403=Küssnacht am Rigi#\
6405=Immensee#\
6410=Goldau#\
6414=Oberarth#\
6415=Arth#\
6416=Steinerberg#\
6417=Sattel#\
6418=Rothenturm#\
6422=Steinen#\
6430=Schwyz#\
8810=Horgen#\
8812=Horgen#\
8813=Horgen#\
8815=Horgenberg#\
8816=Hirzel#\
8820=Wädenswil#\
8824=Schönenberg ZH#\
8910=Affoltern am Albis#\
8911=Rifferswil#\
8912=Obfelden#\
8913=Ottenbach#\
8914=Aeugst am Albis#\
8915=Hausen am Albis#\
8926=Kappel am Albis#\
8925=Ebertswil#\
8932=Mettmenstetten#\
8933=Maschwanden#\
8934=Knonau#\
"

P1 = Liste.indexOf(plz)
T1 = Liste.slice(P1, P1+40)
P2 = T1.indexOf("#")
ort = T1.slice(5, P2)

document.forms[0].Ort.value = ort;
}