Muziek afspelen

Plaatjes

Plaatjes zonder terugleggen

Voor de plaatjes op WisFaq zonder herhaling kan je dan deze procedures gebruiken:

dim Lijst(5), LijstWijzer

Sub MaakLijstSchoon
	dim n
	for n=1 to 5
		Lijst(n)=0
	next
	LijstWijzer=1
End sub

Sub Add2List(waarde)
	Lijst(LijstWijzer)=waarde
	LijstWijzer=LijstWijzer+1
End sub

Function InLijst(waarde)
	dim n
	InLijst=FALSE
	for n=1 to Lijstwijzer
		if waarde=Lijst(n) then
			InLijst=TRUE
		end if
	next
End function  

Check http://www.wisfaq.nl om te kijken of het werkt...👅

Bij elk plaatje hoort een verhaal

Bij elk plaatje in de map illustraties hoort een verhaal. Ik heb inmiddels een begin gemaakt de plaatje te koppelen aan een verhaal. 

De 'verhalen' kunnen van alles zijn. Je kunt daarbij denken aan websites, lesmateriaal, interesante vragen, FAQ's, weblogs, enz. Je moet maar 's kijken....

Op deze pagina kan je die verhalen vinden.

Kerstpakket

DirectLink

Als iemand linkt naar http://www.wisfaq.nl/uitleg.asp in plaats van http://www.wisfaq.nl dan kan je met dit scriptje de bezoeker naar de beginpagina sturen. De tweede keer is er dan verder niets aan de hand.

<%
  IF NOT session("directlink") THEN
	session("directlink")=TRUE
	response.redirect "/"
  End If
%>

Jaja... mij krijg je niet gek...:-)