SetLocale("en-gb")  
Dim scw,sch,th

a=0
n=0
e=0

t2.style.backgroundImage="URL("&bg.src&")"
document.body.style.backgroundImage="URL("&bg.src&")"
picb.style.backgroundImage="URL("&pic.src&")"

Sub Window_onload()
scw=document.body.clientwidth
sch=document.body.clientheight
ClearInterval(th)
th=SetInterval("scroll", 64)
End Sub

Sub scroll()
a=a+1
n=n-1
e=e
picb.style.backgroundposition=n&" "&e
End Sub

Sub Window_onresize()
window.location.reload()
End Sub