Pagina's

donderdag 13 januari 2022

maandag 10 januari 2022

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...👅

zondag 9 januari 2022

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.

zaterdag 8 januari 2022

donderdag 6 januari 2022

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...:-)