Dim strURL(25), strTexte(25), maxURL, i
' Ne pas en mettre plus de 25 définitions

' Pour chaque page où on veut un link en FOOTER
' définir un URL et le texte du LINK (voir ci-dessous)

' ATTENTION aux DOUBLE-QUOTE qu'il faut matcher

strTexte(0)	= "HOME"
strURL(0)	= "http://pages.videotron.com/gravelin/"

strTexte(1)	= "WEBCAM"
strURL(1)	= "http://pages.videotron.com/gravelin/webcam"

strTexte(2)	= "Généalogie"
strURL(2)	= "http://pages.videotron.com/gravelin/genealogie"

strTexte(3)	= "Val-Bélair"
strURL(3)	= "http://pages.videotron.com/gravelin/val_belair.html"

strTexte(4)	= "Photos"
strURL(4)	= "http://rgraveline.homeip.net:9092/browse/?"

strTexte(5)	= "Galerie"
strURL(5)	= "http://pages.videotron.com/gravelin/lorrainelaberge"


' Trouver notre limite supérieure
For i = 0 To 25
	If strTexte(i) > "" Then maxURL = i
Next

' Formatter notre FOOTER comme on veut... sans faire d'erreur de syntaxe...
document.write("<CENTER><P><HR WIDTH=""60%"">")
For i = 0 To maxURL
	If i > 0 Then document.write("&nbsp;&nbsp;|&nbsp;&nbsp;")
	document.write("<A HREF=" + chr(34))
	document.write(strURL(i))
	document.write(chr(34) + ">")
	document.write(strTexte(i))
	document.write("</A>")
Next
document.write("<BR><BR><FONT SIZE=""1"">")
document.write "Last Modified on " & document.lastModified
document.write("</FONT></P></CENTER>")