<DIV id=imageholder
style="Z-INDEX: -1; LEFT: 0px; POSITION: absolute; TOP: 0px">
<SCRIPT language=VBScript>
<!--
direction="up" ' change the direction of the scroll here: "up" or "left" or "down" or "right"
sizew=1024 ' enter the width of the scrolling image here
sizeh=300 ' enter the height of the scrolling image here
nail=0
source=document.body.background
tall=((screen.height\sizeh)+1)*3
wide=(screen.width\sizew)+1

if direction="up" then
max=tall
axis=sizeh
placement=0
reset=0
elseif direction="left" then
max=wide
axis=sizew
placement=0
reset=0
elseif direction="down" then
max=tall
axis=0
placement=-sizeh
reset=-sizeh
elseif direction="right" then
max=wide
axis=0
placement=-sizew
reset=-sizew
end if

document.write "<pre>"
for temp=0 to max
if direction="up" then
document.write "<img id=pics"&temp&" src><br>"
elseif direction="left" then
document.write "<img id=pics"&temp&" src>"
elseif direction="down" then
document.write "<img id=pics"&temp&" src><br>"
elseif direction="right" then
document.write "<img id=pics"&temp&" src>"
end if
document.all("pics"&temp).src=source
next
document.write "</pre>"

document.body.background=" "

sub scroll()
if nail=1 then
exit sub
end if
if placement < axis then
setTimeout "move", 1
else
placement=reset
setTimeout "move", 1
end if
end sub

sub move()
if direction="up" then
imageholder.style.top=-placement
elseif direction="left" then
imageholder.style.left=-placement
elseif direction="down" then
imageholder.style.top=placement
elseif direction="right" then
imageholder.style.left=placement
end if
placement=placement+1
setTimeout "scroll", 1
end sub

sub imageholder_onclick()
if nail=0 then
nail=1
else
nail=0
end if
scroll()
end sub

scroll()

/SCRIPT