dim tekst(),titel(),geenpauze
'on error resume next	'als index-ne-l of index-it-l niet geladen
totaal=opening_max+kleinschaligheid_max+ligging_max+verbindingen_max+doelstelling_max+dagjecultuur_max
nummer=1:geenpauze=1
redim tekst(totaal)
redim titel(totaal)
		
for i=1 to totaal
	m=o:n=opening_max
	if i>m and i<=m+opening_max then titel(i)=openingt:tekst(i)=opening_(i-m)
	m=n:n=n+kleinschaligheid_max
	if i>m and i<=m+kleinschaligheid_max then titel(i)=kleinschaligheidt:tekst(i)=kleinschaligheid_(i-m)
	m=n:n=n+ligging_max
	if i>m and i<=m+ligging_max then titel(i)=liggingt:tekst(i)=ligging_(i-m)
	m=n:n=n+verbindingen_max
	if i>m and i<=m+verbindingen_max then titel(i)=verbindingent:tekst(i)=verbindingen_(i-m)
	m=n:n=n+doelstelling_max
	if i>m and i<=m+doelstelling_max then titel(i)=doelstellingt:tekst(i)=doelstelling_(i-m)
	m=n:n=n+dagjecultuur_max
	if i>m and i<=m+dagjecultuur_max then titel(i)=dagjecultuurt:tekst(i)=dagjecultuur_(i-m)
next

sub klok
	x= document.all.taal.title
	y1="Klikken: Informatie vervolgen":y2="Klikken: Wel/geen fotoserie camping"
	if x="Italiano" then y1="Denunziare: Continuare informazione":y2="Denuziare: Si/no fotoserie campeggio"
	if geenpauze=1 then
		y1="Klikken: Informatie stoppen"
		if x="Italiano" then y1="Denunziare: Fermare informazione"
		titelfolderkrant.innertext=titel(nummer)
		folderkrant.innerText=tekst(nummer)
	end if
	geheel.title=y1
	flitsl.title=y2
	tijdid=SetTimeout("klok",3000,"VBScript")
	nummer=nummer+cint(geenpauze)
	if nummer>totaal then nummer=1
end sub

sub pauze
	if geenpauze=1 then geenpauze=0:exit sub
	if geenpauze=0  then geenpauze=1
end sub

sub flitsl_onclick
	if instr(flitsl.src,"flits")>0 then
		flitsl.src="Afbeeldingen/camping.gif":flitsl.width=120:flitsl.height=90:pauze:exit sub
	end if
	flitsl.src="Afbeeldingen/flits.gif":flitsl.width=25:flitsl.height=25:pauze:exit sub
end sub

Function allespatieswissen(Invoer)
x = Trim(Invoer)
For i = 1 To Len(x)
    If Mid(x, i, 1) = " " Then n = n + 1
Next
If n = "" Then allespatieswissen = x: Exit Function
For i = 1 To n
    x = eerstespatiewissen(x)
Next
allespatieswissen = x
End Function

Function eerstespatiewissen(Invoer)
    n = InStr(Invoer, " ")
    If n = 0 Then eerstespatiewissen = Invoer: Exit Function
    eerstespatiewissen = Left(Invoer, n - 1) & Right(Invoer, Len(Invoer) - n)
End Function

sub titelfolderkrant_onclick
	if taal.title="Italiano" then titelfolderkrantitalianoclick:exit sub
	x=lcase(titel(nummer))
	if x="dagje cultuur" then x="dagjecultuur"
	top.frames(1).frames(0).location.href=x & ".html"
	'msgbox parent.frames("Taal").document.body.offsetwidth
	'msgbox parent.frames("Taal").scrollby
	'parent.frames("Taal").scrollby 0,-50
	'msgbox 	parent.frames("Algemeen").scroll
	'msgbox top.frames("Navigatie").scroll
	'msgbox top.navigatie.location.href
	'top.navigatie.close
	pauze
end sub

sub titelfolderkrantitalianoclick
	x=lcase(titel(nummer))
	if x="apertura" then x="openeing"
	if x="scala rodotta" then x="kleinschaligheid"
	if x="posizione" then x="ligging"
	if x="comunicazione" then x="verbindingen"
	if x="scopo" then x="doelstelling"
	if x="giorno di cultura" then x="dagjecultuur"
	top.frames(1).frames(0).location.href="folderit.html#" & x
	pauze
end sub