dim uitvoeren, maximum, naam, titel, ondertitel, titeltiptekst, lijsttonen,gifbestand
dim lijsttitel, nummerafwijkend, voettekst, onderschrifttekst
dim onderschrift(300), lijstnaam(300), lijst(300), nr(300)
dim hoog(300)	'als hoogte van afbeeldingen afwijkt van standaardhoogte (hoogte)
dim klikoverslaan
'Array nr() sorteert afbeeldingen, bijv: nr(2)=4 betekent de 2-de afbeelding is naam4.toevoeging. Array nr() mag achterwege blijven
'gifbestand=1 betekent dat gestart wordt met serie.gif


muziekinformatie="" & _
	"<bgsound SRC="""" LOOP='INFINITE' id='achtergrondmuziek'>" & _
	"<bgsound SRC="""" id='muziekafwijkend'>" & _
	"<bgsound SRC="""" id='muziekknoppen'>"
knoppenbalk="" & _
	"<img src='Afbeeldingen/banner-muziek.jpg' width='25' height='20' alt='Achtergrondmuziek starten/stoppen' name='knopmuziek'>" & _
	"<img src='Afbeeldingen/banner-zoom.jpg' width='25' height='20' alt='Afbeelding stapsgewijs inzoomen' name='zoom'>" & _
	"<img src='Afbeeldingen/banner-vorige.jpg' width='30' height='20' alt='Vorige foto' name='knopvorige'>" & _
	"<img src='Afbeeldingen/banner-volgende.jpg' width='30' height='20' alt='Volgende foto' name='knopvolgende'>" & _
	"<SPAN STYLE='VISIBILITY:HIDDEN' id='knoppen'>" & _
	"<img src='Afbeeldingen/banner-starten.jpg' width='35' height='20' alt='Fotovoorstelling starten. Dubbelklikken: intervaltijd wijzigen' name='knopstarten'>" & _
	"<img src='Afbeeldingen/banner-stoppen.jpg' width='35' height='20' alt='Fotoserie stoppen' name='knopstoppen'>" & _
	"</SPAN>"
if tabelbreedte="" then tabelbreedte=" width='520' " else tabelbreedte=" width='" & tabelbreedte & "' "
if tabelrand="" then tabelrand=" border='1' " else tabelrand=" border='" & tabelrand & "' "
if tabelkleur="" then tabelkleur=" bordercolor='#94FD8E' " else tabelkleur=" bordercolor='" & tabelkleur & "' "
tabelinstellingen="cellspacing='0' cellpadding='5'" & tabelbreedte  & tabelrand & tabelkleur
if nieuwvenster<>"" then x=" style='cursor:pointer' " else x=""
if titel<>"" then
		rijtitel="" & _
		"<tr><td align='center'>" & _
		"<font size='+2'>" & _
		"<img src='Afbeeldingen/symbool.jpg' width='48' height='12' border='0'>" & _
		"<b id='titel'" & x & ">" & _
		"<script language='VBScript'>if titel<>"""" then document.write titel</script></b>" & _	
		"<img src='Afbeeldingen/symbool.jpg' width='48' height='12' alt="""" border='0'>" & _
		"</font>" & _
		"<b id='ondertitel'><script language='VBScript'>if ondertitel<>"""" then document.write ""<br>"" & ondertitel</script></b><br>" & _
		"</td></tr>"
end if
if informatie<>"" then 
	rijinformatie="" & _
		"<tr><td align='left'>" & _
		informatie & _
		"</td></tr>"
end if
if maximum<>"" then
	rijafbeeldingen="" & _
		"<tr><td align='center'>" & _
		"<img alt='Even wachten of rechtsklik en kies: Afbeelding weergeven' border='0' name='serie' height='280'><br>" & _
		"<b><i><font size='-1'><div id='plaatsonderschrift'></div></font>" & _
		"</td></tr>"
end if
if lijstaantal>0 then
	for i=1 to lijstaantal
		tabellijst=tabellijst & "<OPTION value='" & i & "'><script language='VBScript'>document.write lijstnaam(" & i & ")</script>"
	next
	rijlijst="" & _
		"<tr><td align='center'>" & _
		"<font size='-1'><b><script language='VBScript'>document.write lijsttitel</script></b><br></font>" & _
		"<SELECT NAME='lijst' style='font-size:smaller' style='color:Navy;font-family Calligraph421 BT'>" & _
		tabellijst & _
		"</SELECT>" & _
		"<a href="""" id='verwijzing' target='_blank'></a>" & _
		"</td></tr>"
end if
if voettekst<>"" then
	rijvoettekst="" & _
		"<tr><td align='left'>" & _
		"<font face='Arial' size='-2'>" & _
		"<br>" & _
		"<script language='VBScript'>document.write voettekst</script>" & _
		"</font>" & _
		"</td></tr>"
end if
tabelsluiten="</center></table>"


eerstenummer=document.cookie
if eerstenummer="" or len(eerstenummer)>2 then eerstenummer=1
'if eerstenummer="" or eerstenummer="undefined" then eerstenummer=1
document.cookie=""

veelvoud=4:stap=50
if toevoeging="" then toevoeging=".jpg"
achtergrondmuziek="Afbeeldingen/Pupo - Su di noi.wma"
muziekafwijkend=""
muziekknoppen="Afbeeldingen/WHOOSH.WAV"

hoogte=280:hoogtemax=600
hoogtegifbestand=150

sub knopvolgende_onclick
uitvoeren=0
volgende 1
end sub

sub knopvorige_onclick
uitvoeren=0
volgende -1
end sub

sub knopstarten_ondblclick
x=inputbox("Geef intervaltijd in seconden voor fotovoorstelling:","Casa di Lindir",veelvoud)
if x=""  then exit sub
on error resume next
x=abs(cdbl(x))
if err<>0 then uitvoeren=0:msgbox "Onjuiste invoer!",vbCritical,"Casa di Lindir":exit sub
if x=0 then uitvoeren=0:exit sub
veelvoud=x
uitvoeren=1
end sub

sub knopstarten_onclick
'volgende 1
uitvoeren=1
end sub

sub knopstoppen_onclick
uitvoeren=0
end sub

sub serie_onclick
'if maximum="" or maximum=1  then exit sub
if maximum="" then exit sub
if klikken<>"1" then starten0:exit sub
n=nummerafbeelding(1,1,1,1)+1
window.open(lijst(n))
end sub

sub serie_onmousemove
	dim x
	if cdbl(maximum)>0 then x="Opnieuw beginnen"
	if klikken="1" then x="Ga naar website"
	document.all.serie.title=x
end sub

sub volgende(richting)
dim m,n,x
if onderschrifttekst="Fotoserie verkleind" then document.all.serie.height=hoogte
n= nummerafbeelding(document.all.serie.src,naam,maximum,toevoeging)
if n="" then n=0
if n=0 and richting=-1 then n=1
if document.all.plaatsonderschrift.style.visibility="" then n=n+richting
if cdbl(n)>=cdbl(maximum+1) then n=1:if cdbl(maximum)>1 then document.all.knoppen.style.visibility=""
if n=0 then n=maximum
m=n: if nr(m)<>"" then m=nr(m)
	'onderstaande regels zetten het standaardformaat terug
	'if hoog(m)<>"" then standaardhoogte=hoog(m) else standaardhoogte=hoogte
	'document.all.serie.height=standaardhoogte
x=document.all.serie.src
x=left(x,instr(x, naam)-1)
x=x & naam & "/"  & naam & m & toevoeging
if document.all.knoppen.style.visibility="hidden" then document.all.serie.src=""
document.all.serie.src=x
onderschrifttekst=onderschrift(m)
if maximum<>1 then onderschrifttekst=n & "/" & maximum & "  " & onderschrifttekst
	'plaatsonderschriftvullen
	plaatsonderschrift.innerHTML=vervangen(onderschrifttekst,vbnewline,"<br>")
document.all.muziekafwijkend.src=""
if cint(n)=cint(nummerafwijkend) then document.all.muziekafwijkend.src=muziekafwijkend

document.all.zoom.style.visibility=""
document.all.plaatsonderschrift.style.visibility=""
end sub

function nummerafbeelding(afbeelding,naamserie,aantalserie,toevoeging)
n=instr(onderschrifttekst,"/")
if n=0 then n=maxium else n=left(onderschrifttekst,n-1)
nummerafbeelding=n
exit function

'oude versie
x=afbeelding
n=instr(x,naamserie)
x=right(x,len(X)-n-len(naamserie))
x=right(x,len(x)-len(naamserie))
x=left(x,len(X)-len(toevoeging))
NummerAfbeelding=x
end function

function starten
starten0
klok
end function

sub starten0
on error resume next	'om te vermijden dat als knoppen niet gebruikt worden, een foutmelding verschijnt
x="":if maximum=1 then x="hidden"
document.all.knopvorige.style.visibility=x:document.all.knopvolgende.style.visibility=x
if maximum="" or maximum=0 then document.all.knopvorige.style.visibility="hidden":document.all.knopvolgende.style.visibility="hidden":document.all.zoom.style.visibility="hidden"
x=document.all.serie.name:if err<>0 then  document.all.knopvorige.style.visibility="hidden":document.all.knopvolgende.style.visibility="hidden":document.all.zoom.style.visibility="hidden"
uitvoeren=0
document.all.knoppen.style.visibility="hidden"
m=eerstenummer: if nr(m)<>"" then m=nr(m)
onderschrifttekst=onderschrift(m)
if maximum<>1 then onderschrifttekst=eerstenummer & "/" & maximum & " " & onderschrifttekst
	 if gifbestand=1 then onderschrifttekst="Fotoserie verkleind"
	'plaatsonderschriftvullen
	plaatsonderschrift.innerHTML=vervangen(onderschrifttekst,vbnewline,"<br>")
'if hoogtevariabel=1 then hoogte=document.all.serie.height else document.all.serie.height=hoogte
if hoog(1)<>"" then standaardhoogte=hoog(1) else standaardhoogte=hoogte
document.all.serie.height=standaardhoogte

if gifbestand=1 then document.all.serie.height=hoogtegifbestand

if gifbestand=1 then
	 document.all.serie.src= "Afbeeldingen/FotoSeries/" & naam & "/" & naam &	".gif"
	 document.all.zoom.style.visibility="hidden"
	 else
	 document.all.serie.src= "Afbeeldingen/FotoSeries/" & naam & "/" & naam & m & toevoeging
end if

document.all.titel.title=titeltiptekst
if achtergrondmuziek<>""  then  x=right(achtergrondmuziek,len(achtergrondmuziek)-instr(achtergrondmuziek,"/")):document.all.knopmuziek.title="Achtergrond achtergrondmuziek starten/stoppen" & chr(13) & chr(10) & "(" & left(x,instr(x,".")-1) & ")"
if lijsttonen<>"" and lijsttonen<>"0" then document.all.lijsttonen.style.visibility=""
end sub

Sub Wachten(Seconden)
Dim WachtTijd, Start 
    WachtTijd = Seconden
    Start = Timer
    Do While Timer < Start + WachtTijd
    Loop
End Sub

Sub Klok
	x=time
	n=hour(x)*3600+minute(x)*60 + second(x)
	SetTimeout "Klok",1000,"VBScript"
	if isveelvoudvan(n,veelvoud)=1 then UitvoerenControleren
End sub

Function IsVeelvoudVan(Invoer, VeelvoudVan)
Dim n
IsVeelvoudVan=0
n = Invoer / VeelvoudVan
If Int(n) = n Then IsVeelvoudVan = 1
End Function

sub UitvoerenControleren
if Uitvoeren=1 then volgende 1
end sub

sub knopmuziek_onclick
x=document.all.achtergrondmuziek.src
if x="" then x=achtergrondmuziek else x=""
document.all.achtergrondmuziek.src=x
end sub

sub zoom_onclick
dim x
x= document.all.serie.height
x=x+stap
if cint(x)>cint(hoogtemax) then x=hoogte
document.all.serie.height=x
end sub

sub knopvorige_onmouseover
document.all.knopvorige.height=document.all.knopvorige.height-1
document.all.muziekknoppen.src=muziekknoppen
end sub

sub knopvorige_onmouseout
document.all.knopvorige.height=document.all.knopvorige.height+1
end sub

sub knopvolgende_onmouseover
document.all.knopvolgende.height=document.all.knopvolgende.height-1
document.all.muziekknoppen.src=muziekknoppen
end sub

sub knopvolgende_onmouseout
document.all.knopvolgende.height=document.all.knopvolgende.height+1
end sub

sub knopstarten_onmouseover
document.all.knopstarten.height=document.all.knopstarten.height-1
document.all.muziekknoppen.src=muziekknoppen
end sub

sub knopstarten_onmouseout
document.all.knopstarten.height=document.all.knopstarten.height+1
end sub

sub knopstoppen_onmouseover
document.all.knopstoppen.height=document.all.knopstoppen.height-1
document.all.muziekknoppen.src=muziekknoppen
end sub

sub knopstoppen_onmouseout
document.all.knopstoppen.height=document.all.knopstoppen.height+1
end sub

sub knopmuziek_onmouseover
document.all.knopmuziek.height=document.all.knopmuziek.height-1
document.all.muziekknoppen.src=muziekknoppen
end sub

sub knopmuziek_onmouseout
document.all.knopmuziek.height=document.all.knopmuziek.height+1
end sub

sub zoom_onmouseover
document.all.zoom.height=document.all.zoom.height-1
document.all.muziekknoppen.src=muziekknoppen
end sub

sub zoom_onmouseout
document.all.zoom.height=document.all.zoom.height+1
end sub

'--------------------------------------------------------------------------------------------------

sub lijst_onclick
document.all.lijst.value=1
end sub

sub lijst_onchange
dim n, x
n=document.all.lijst.value
if n=2 then x=lijst(n)
if n=3 then x=lijst(n)
if n=4 then x=lijst(n)
if n=5 then x=lijst(n)
if n=6 then x=lijst(n)
if n=7 then x=lijst(n)
if n=8 then x=lijst(n)
if n=9 then x=lijst(n)
if n=10 then x=lijst(n)
if n=11 then x=lijst(n)
if n=12 then x=lijst(n)
if n=13 then x=lijst(n)
if n=14 then x=lijst(n)
if n=15 then x=lijst(n)
if n=16 then x=lijst(n)
if n=17 then x=lijst(n)
if n=18 then x=lijst(n)
if n=19 then x=lijst(n)
if n=20 then x=lijst(n)
if n=21 then x=lijst(n)
if n=22 then x=lijst(n)
if n=23 then x=lijst(n)
if n=24 then x=lijst(n)
if n=25 then x=lijst(n)
document.all.verwijzing=x
document.all.verwijzing.click
end sub

function titel_onclick()
	if nieuwvenster<>"" then window.location.href=nieuwvenster
end function

function regelhoogte(punten)
	regelhoogte= "<div style='font-size: " & punten & "pt; line-height: " & punten/10 & "'><br></div>"
end function

function tabelopenen()
	if instr(tabelbreedte,"width")=0 then tabelbreedte=" width='" & tabelbreedte & "' "
	if instr(tabelrand,"border")=0 then tabelrand=" border='" & tabelrand & "' "
	if instr(tabelkleur,"bordercolor")=0 then tabelkleur=" bordercolor='" & tabelkleur & "' "
	tabelinstellingen="cellspacing='0' cellpadding='5'" & tabelbreedte  & tabelrand & tabelkleur
	if regelhoogteboventabel="" then n=2 else n=regelhoogteboventabel
	tabelopenen=regelhoogte(n) &  "<table " & tabelinstellingen & ">"
end function