<script language="VBScript">
'------------------------------------------
'please leave all these lines in
'Script gemaakt door JettyM maart 2005
'www.molehofje.com
'Tekst tussen deze lijnen aub laten staan
'------------------------------------------
Option Explicit
SetLocale("en-gb")
REM tekst statusbalk
window.status=" ~~~ Script and design JettyM ~~~ "
Dim docw, doch, c, d, pw, pw2w, pw2h, b, spacer
'-------Gebruiker instellingen---------
REM hieronder de breedte van de border
b=10
REM ruimte rond de tekst
spacer=50
'------Einde gebruiker instellingen-------
c=0
d=0
pw=bkg.width
pw2w=jrf.width
pw2h=jrf.height
sub window_onload()
On Error Resume Next
docw=document.body.clientWidth
doch=document.body.clientHeight
container.style.backgroundImage="URL("&bkg.src&")"
container.style.borderRightWidth=b&"px"
container.style.borderLeftWidth=b&"px"
container.style.left=spacer
container.style.top=0
container.style.height=doch
container.style.width=pw+b*2
txt.style.top=spacer
txt.style.height=doch-spacer*2
txt.style.left=pw+b*2+spacer*2
txt.style.width=docw-(pw+b*2+spacer*3)
txt.style.visibility="visible"
jrf.style.top=doch-(pw2h+5)
jrf.style.left=docw-(pw2w+5)
end sub
window.setInterval "scrollit", 64
sub scrollit ()
c=c+1
container.style.backgroundPosition=d&" "&-c
document.body.style.backgroundPosition=c&" "&d
end sub
sub window_onresize()
window_onload
end sub
</script>
|