Sub button1_onclick
window.navigate "http://www.gironet.nl/home/keeken/voorkeur.htm"
End Sub


Sub select1_onclick
if select1.value = "Agfa" then parent.frames.top.navigate "http://www.agfaphoto.com/de/home.html"
if select1.value = "Leica" then parent.frames.top.navigate "http://www.leica.com"
if select1.value = "Hasselblad" then parent.frames.top.navigate "http://www.hasselblad.com"
if select1.value = "Ilford" then parent.frames.top.navigate "http://www.ilford.com/html/us_english/homeng.html"
if select1.value = "kodak" then parent.frames.top.navigate "http://www.kodak.com"
End Sub


Sub select2_onchange
if select2.value = "1" then parent.frames.top.navigate "http://luiscast.home.att.net/"
if select2.value = "2" then parent.frames.top.navigate "http://home.hccnet.nl/j.van.houten/hcc/index.htm"
if select2.value = "3" then parent.frames.top.navigate "http://www.jourfix.de/fotografie/johann.ilgenfritz/default.htm"
if select2.value = "4" then parent.frames.top.navigate "http://www.callebert.com/foto"
End Sub


Sub select3_onclick
if select3.value = "1" then parent.frames.top.navigate "http://www.donchatterton.com/"
if select3.value = "2" then parent.frames.top.navigate "http://www.xs4all.nl/~sijmen/"
if select3.value = "3" then parent.frames.top.navigate "http://home.flash.net/~leicam2/index.htm"
if select3.value = "4" then parent.frames.top.navigate "http://members.aol.com/abreull/index.htm"
if select3.value = "5" then parent.frames.top.navigate "http://www.efn.org/~hkrieger/"
if select3.value = "6" then parent.frames.top.navigate "http://www.btinternet.com/~piranha/"
End Sub

Sub select4_onclick
if select4.value = "1" then parent.frames.top.navigate "http://www.jck.net/~leica/index_e.html"
if select4.value = "2" then parent.frames.top.navigate "http://www.artincontext.org/new_york/leica_gallery/"
if select4.value = "3" then parent.frames.top.navigate "http://www.leicabeimeister.com/leica/"
if select4.value = "4" then parent.frames.top.navigate "http://www.lhsa.org/"
if select4.value = "5" then parent.frames.top.navigate "http://www.excellent-photography.de/"
if select4.value = "6" then parent.frames.top.navigate "http://www.imx.nl/index.html"
End Sub

Sub IMG2_onmousemove
window.status = " Uw oude leica in een nieuw jasje ?"
End Sub

Sub IMG2_onclick
window.open "http://www.geocities.com/Athens/Oracle/5799/shintaro.htm", "nieuw1", "toolbar = 2, scrollbars = 1, resizeable = 1 width = 840 height = 400"
End Sub