Un fond de page glissant
Télécharger ici le script ( 432 Octets )
Copiez et collez entre les balises <body> et </body> :
<SCRIPT language=VBScript>
// un fond glissant
<!--
dim MoveItX, MoveItY, mnumfond
MoveItY=0
MoveItX=0
numfond=document.body.sourceIndex
SUB SF
MoveItY=MoveItY+0
MoveItX=MoveItX-1
Document.all(numfond).style.BackgroundPosition=
MoveItX & " " & MoveItY
id=SetTimeOut("SF",100,"VBScript")
End Sub
SF
-->
</SCRIPT>
© Copyright GendNet 2000 Tout droit de reproduction strictement réservé aux membres de l'association ®