'voor reserveren-neVKRNG.html
dim f_aanmelden	'1 of ""
dim f_lideen, f_lidtwee,f_datum,f_aantalpersonen
f_lideen=-1

'voor reserveren-ne.html
dim f_aantal_plekje,f_aantal_personenplekje,f_aantal_huurcaravan, f_aantal_personenhuurcaravan,f_aantal_bb, f_aantal_personenbb
dim f_aantal_kleinekinderen, f_aantal_kinderen,f_eerste_kampeermiddel,f_eerste_aantal,f_tweede_kampeermiddel,f_tweede_aantal
dim f_elektriciteit,f_aantal_elektriciteit,f_beddengoed,f_aantal_beddengoed,f_linnengoed,f_aantal_linnengoed
dim f_aankomstdatum,f_vertrekdatum,f_huur_mountainbikes,f_datums_mountainbikes,f_aantal_mountainbikes,f_afhalen,f_afhaalgegevens
dim f_maaltijd,f_aantal_personenmaaltijd,f_interesse,f_interessein,f_aanbetaling,f_overgemaakt,f_campingadres_van

dim f_from, f_voornamen,f_achternaam,f_,f_straat,f_huisnummer,f_postcode,f_plaats,f_land,f_telefoonnummer,f_gsm,f_toelichting
dim tekst(40), verwijzingtekst(40), nummer, nummermax, naam
tijdkrant=2	'5
datumnr=0:datumnrmax=4
nummer=0:nummermax=34
n=0		:tekst(n)="Hoofdmenu"				:verwijzingtekst(n)="index-r.html"
n=1		:tekst(n)="Informatie"				:verwijzingtekst(n)="folder.html"
n=2		:tekst(n)="Folder downloaden"		:verwijzingtekst(n)="folder.doc"
n=3		:tekst(n)="Opening"					:verwijzingtekst(n)="opening.html"
n=4		:tekst(n)="Kleinschaligheid"		:verwijzingtekst(n)="kleinschaligheid.html"
n=5		:tekst(n)="Ligging"					:verwijzingtekst(n)="ligging.html"
n=6		:tekst(n)="Verbindingen"			:verwijzingtekst(n)="verbindingen.html"
n=7		:tekst(n)="Doelstelling"			:verwijzingtekst(n)="doelstelling.html"
n=8		:tekst(n)="Dagje cultuur"			:verwijzingtekst(n)="dagjecultuur.html"
n=9		:tekst(n)="Prijzen"					:verwijzingtekst(n)="prijzen.html"
n=10	:tekst(n)="Adresgegevens"			:verwijzingtekst(n)="adresgegevens.html"

n=11	:tekst(n)="Camping"					:verwijzingtekst(n)="camping-ne.html"		
n=12	:tekst(n)="Huurcaravans"			:verwijzingtekst(n)="huurcaravans-ne.html"
n=13	:tekst(n)="Mountainbikes"			:verwijzingtekst(n)="fietsen-ne.html"
n=14	:tekst(n)="Vliegveld en station"	:verwijzingtekst(n)="vliegveld-ne.html"
n=15	:tekst(n)="Excursies"				:verwijzingtekst(n)="excursies-ne.html"
n=16	:tekst(n)="Excursie Marturanum"		:verwijzingtekst(n)="marturanum-ne.html"
n=17	:tekst(n)="Restaurant"				:verwijzingtekst(n)="restaurant-ne.html"
n=18	:tekst(n)="Ontbijt"					:verwijzingtekst(n)="ontbijt-ne.html"
n=19	:tekst(n)="Avondeten"				:verwijzingtekst(n)="avondeten-ne.html"
n=20	:tekst(n)="Afhaalmaaltijden"		:verwijzingtekst(n)="afhalen-ne.html"
n=21	:tekst(n)="Kaas maken"				:verwijzingtekst(n)="kaasmaken-ne.html"
n=22	:tekst(n)="Barbarano Romano"		:verwijzingtekst(n)="barbarano-ne.html"
n=23	:tekst(n)="Omgeving"				:verwijzingtekst(n)="omgeving-ne.html"
n=24	:tekst(n)="Routebeschrijving"		:verwijzingtekst(n)="route-ne.html"
n=25	:tekst(n)="Film camping 2004"		:verwijzingtekst(n)="film.html"
n=26	:tekst(n)="Forum en gastenboek"		:verwijzingtekst(n)="forum.html"
n=27	:tekst(n)="Reserveren camping"		:verwijzingtekst(n)="reserveren-ne.html"

'n=28	:tekst(n)="Huiskamerrestaurant"		:verwijzingtekst(n)="reserveren-neHK.html"
n=29	:tekst(n)="Natuur"					:verwijzingtekst(n)="barbarano-ne.html"
n=30	:tekst(n)="Cultuur"					:verwijzingtekst(n)="excursies-ne.html"
n=31	:tekst(n)="Excursies"				:verwijzingtekst(n)="excursies-ne.html"
n=32	:tekst(n)="Antieke Rome"			:verwijzingtekst(n)="omgeving-ne.html"	
n=33	:tekst(n)="Oude Etrusken"			:verwijzingtekst(n)="omgeving-ne.html"	
n=34	:tekst(n)="Italiaanse keuken"		:verwijzingtekst(n)="restaurant-ne.html"	

Sub startenkrant
	Klok
End Sub

Sub Klok
	if nummer=0 then set naam=index_r:reserveren_ne.style.backgroundcolor=""
	naam.style.backgroundcolor=""
	if nummer=0 then set naam=index_r
	if nummer=1 then set naam=folder
	if nummer=2 then set naam=folderdownloaden
	if nummer=3 then set naam=opening
	if nummer=4 then set naam=kleinschaligheid
	if nummer=5 then set naam=ligging
	if nummer=6 then set naam=verbindingen
	if nummer=7 then set naam=doelstelling
	if nummer=8 then set naam=dagjecultuur
	if nummer=9 then set naam=prijzen
	if nummer=10 then set naam=adresgegevens
	if nummer=11 then set naam=camping_ne
	if nummer=12 then set naam=huurcaravans_ne
	if nummer=13 then set naam=fietsen_ne
	if nummer=14 then set naam=vliegveld_ne
	if nummer=15 then set naam=excursies_ne
	if nummer=16 then set naam=marturanum_ne
	if nummer=17 then set naam=restaurant_ne
	if nummer=18 then set naam=ontbijt_ne
	if nummer=19 then set naam=avondeten_ne
	if nummer=20 then set naam=afhalen_ne
	if nummer=21 then set naam=kaasmaken_ne
	if nummer=22 then set naam=barbarano_ne
	if nummer=23 then set naam=omgeving_ne
	if nummer=24 then set naam=route_ne
	if nummer=25 then set naam=film
	if nummer=26 then set naam=forum
	if nummer=27 then set naam=reserveren_ne
	'if nummer=28 then set naam=reserveren_neHK
	if nummer<=28 then naam.style.backgroundcolor="#eff0f5"
	
	verwijzing.href=verwijzingtekst(nummer)
	datum.innerText=formatdatetime(now(),datumnr)
	krant.innerText=tekst(nummer)
	TijdId=SetTimeout("Klok",1000,"VBScript")
	if tijdkrant=0 then exit sub
	if veelvoudvan(tijdId,tijdkrant)=0 then exit sub
	nummer=nummer+1:if nummer>nummermax then nummer=0
	
	if nummer>27 then naam.style.backgroundcolor="":set naam=reserveren_ne
end sub

function veelvoudvan(invoer,veelvoud)
	veelvoudvan=0
	if int(invoer/veelvoud)=invoer/veelvoud then veelvoudvan=1
end function

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

sub datum_onclick
datumnr=datumnr+1
if datumnr>datumnrmax then datumnr=0
end sub

sub datum_onselectstart
Do While 1=1
	on error resume next
	x=inputbox("Geef de snelheid in seconden van de tijdkrant:","Casa di Lindir",tijdkrant)
	if x="" then exit sub
	x=cint(x)
	if err<>0 or x<0 then
		err=0
		else
		tijdkrant=x
		exit sub
	end if
Loop
end sub

sub datum_onmousemove
	document.all.datum.title="Klikken:" & vbtab & "formaat datum aanpassen" & chr(13) & chr(10) & "Slepen:" & vbtab & "snelheid tijdkrant (" & tijdkrant & " sec.) aanpassen"
end sub

sub menus_onclick
	open naam,"Inhoud"
end sub

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

sub reserverenvriendenkring_onmouseover
	reserverenvriendenkring.innertext="Reserveren Vriendenkring"
end sub

sub reserverenvriendenkring_onmouseout
	reserverenvriendenkring.innertext=" "
end sub