AOG Script

<body BACKGROUND="C:\A\01.jpg">

<DIV id=imageholder

style="LEFT: 0px; POSITION: absolute; TOP: 0px; Z-INDEX: -1">

<SCRIPT language=VBScript>

placement=0

nail=0

max=9

for temp=0 to max

document.write "<img id=pics"&temp&" src><br>"

next

DIM newarray

newarray=Array(pics0,pics1,pics2,pics3,pics4,pics5,pics6,pics7,pics8,pics9)

for temp=0 to max

newarray(temp).src=document.body.background

next

document.body.background=" "

window.status=""

sub scroll()

if nail=1 then

exit sub

end if

if placement < pics0.height then

setTimeout "move", 1

else

placement=0

setTimeout "move", 1

end if

end sub

sub move()

imageholder.style.top=-placement

placement=placement+1

setTimeout "scroll", 1

end sub

sub imageholder_onclick()

if nail=0 then

nail=1

elseif nail=1 then

nail=0

end if

scroll()

end sub

scroll()

</SCRIPT>