|
|
<!
Rondom
scrollend
Ga hierboven naar "bewerken" en kies voor "alles selecteren". Terug "bewerken" en dan "kopiëren"?. Open nu outlook express en neem "nieuw bericht". Onderaan open je de "bron" en klik onderaan tussen </BODY><!</HTML> <! Dat is daar waar het groene tekens staan en klik daarna met de rechtermuisknop. Kies nu voor "plakken" en onderaan op "voorbeeld". Je ziet dat je mail klaar is behalve je foto's en tekst. De tekst kun je in de stand "bewerken” aan passen en de foto's moet je in de "bron" vervangen. En dat 7 maal, zie het blauwe deel: <IMG id=pic1 src="4borderscroll_bestanden/…… .gif " >
<HEAD>
<META
content=text/html;charset=iso-8859-1
http-equiv=Content-Type>
<STYLE></STYLE>
<!-- An
optional background image can be used but it will not scroll
-->
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3401" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500"
name=GENERATOR></HEAD>
<BODY
background=”4borderscroll_bestanden/ss.jpg”<!Hier je achtergrond> bgColor=#c0c0c0
bgProperties=fixed>
<DIV> </DIV>
<CENTER><FONT color=white
face=Arial></FONT></CENTER>
<CENTER><FONT color=white><FONT
face=Arial FONT <><FONT
face=Arial></FONT></FONT></CENTER>
<CENTER> </CENTER>
<CENTER><FONT color=white><FONT
face=Arial></FONT></FONT></CENTER>
<CENTER><FONT
color=white></FONT> </CENTER>
<CENTER><FONT color=white><FONT
face=Arial></FONT></FONT></CENTER>
<CENTER><FONT
color=#800000></FONT> </CENTER>
<CENTER><FONT color=#800000><IMG
align=baseline alt="" border=0 height=65
hspace=0
src="4borderscroll_bestanden/smile5.gif"
width=56><BR> </FONT></CENTER>
<P><BR><FONT
color=#800000> </FONT></P>
<P> </P><!-- YOU MUST
ENTER THE ACTUAL HEIGHT AND WIDTH FOR ALL IMAGES --><!-- THIS IS THE LEFT
VERTICAL SIDE BORDER IMAGE --><IMG
height=32
id=bkg0 src="4borderscroll_bestanden/smile2.gif"
style="HEIGHT: 72px; LEFT: -800px; POSITION:
absolute; TOP: 0px; WIDTH: 72px"
width=32> <!-- THIS IS THE RIGHT VERTICAL
SIDE BORDER IMAGE --><IMG height=50
id=bkg1
src="4borderscroll_bestanden/smile1.gif"
style="HEIGHT: 72px; LEFT: -800px; POSITION:
absolute; TOP: 0px; WIDTH: 72px"
width=50> <!-- THIS IS THE TOP HORIZONTAL
BORDER IMAGE --><IMG height=32 id=bkg2
src="4borderscroll_bestanden/smile3.gif"
style="HEIGHT: 108px; LEFT: -800px; POSITION:
absolute; TOP: 0px; WIDTH: 181px"
width=32> <!-- THIS IS THE BOTTOM
HORIZONTAL BORDER IMAGE --><IMG height=32
id=bkg3
src="4borderscroll_bestanden/smile4.gif"
style="HEIGHT: 202px; LEFT: -800px; POSITION:
absolute; TOP: 0px; WIDTH: 160px"
width=32> <!-- THIS IS THE CORNER IMAGE
--><IMG height=46 id=crnr
src="4borderscroll_bestanden/smile6.gif"
style="HEIGHT: 55px; LEFT: -800px; POSITION:
absolute; TOP: 0px; WIDTH: 79px"
width=50>
<SCRIPT
language=VBScript>
REM Thanks
to Tar'Hom for the idea ;-)
REM Revised
August 21, 1999
Dim w, wW,
wH, wx, myTimer, borders, pW(4), pH(4), bP(4)
Dim x(4),
y(4), xD(4), yD(4), bT(4), bL(4), Res, bH
Dim
picX(4), picY(4), bW(4), bxW(4), bxH(4), cT(4), cL(4)
Dim
numPics(4), chkPics(4)
Set
w=document.body
REM Set
number of scrolling borders (Total Number minus 1)
borders=3
REM Set
border types
bP(0)="L"
bP(1)="R"
bP(2)="T"
bP(3)="B"
REM Set
scroll Direction
xD(0)=0
yD(0)=-1
xD(1)=0
yD(1)=1
xD(2)=1
yD(2)=0
xD(3)=-1
yD(3)=0
REM
Initialize
sub
setUp()
w.style.marginLeft=pW(0)
w.style.marginTop=crnr.offsetHeight
w.style.marginRight=pW(1)
REM Get window
dimensions
wW=w.clientWidth
wH=w.clientHeight
REM
Repeat to fix an OE bug
wW=w.clientWidth
wH=w.clientHeight
sH=w.scrollHeight
bH=wH
if
sH>wH then bH=sH
for
i=0 to borders
bL(i)=0
bT(i)=0
REM Set the scroll Width and Height
if (bP(i)="L") or (bP(i)="R") then
bW(i)=pW(i)
chkPics(i)=numPics(i)
REM
Adjust number of pics for message length
if int(bH/pH(i))>numPics(i) then
chkPics(i)=int(bH/pH(i))+4
data=""
for j=numPics(i)+1 to chkPics(i)
data=data&"<IMG
src='"&document.all("bkg"&i).src&"'>"
next
document.all("b"&i).insertAdjacentHTML "BeforeEnd",
data
end
if
if bP(i)="L" then
bL(i)=0
else
bL(i)=wW-pW(i)
end if
else
bW(i)=wW
if
bP(i)="T" then
bT(i)=0
else
bT(i)=wH-pH(i)
if sH>wH then bT(i)=sH-pH(i)
end if
end
if
REM Set the visible limits
if (bP(i)="L") or (bP(i)="R") then
document.all("box"&i).style.height=bH
else
document.all("box"&i).style.height=pH(i)
end if
document.all("box"&i).style.width=bW(i)
document.all("box"&i).style.left=bL(i)
document.all("box"&i).style.top=bT(i)
if i MOD 2 = 0 then
cT(i)=0
cL(i)=0
if i=2 then cL(i)=wW-crnr.offsetWidth
else
cT(i)=bH-crnr.offsetHeight
cL(i)=wW-crnr.offsetWidth
if i=1 then cL(i)=0
end if
document.all("c"&i).style.top=cT(i)
document.all("c"&i).style.left=cL(i)
REM Initial position
x(i)=0
y(i)=0
next
window.status=bH&" "&cT(3)&" "&sH
REM
Start the scroll.
SF
end
sub
REM
universal scrolling routine.
sub
SF()
ClearTimeOut(myTimer)
for
i=0 to borders
x(i)=x(i)+xD(i)
if xD(i)>0 and x(i)>=0 then x(i)=-pW(i)
if xD(i)<0 and x(i)<-pW(i) then x(i)=0
y(i)=y(i)+yD(i)
if yD(i)>0 and y(i)>=0 then y(i)=-pH(i)
if yD(i)<0 and y(i)<-pH(i) then y(i)=0
REM Position the background image.
document.all("b"&i).style.left
= x(i)
document.all("b"&i).style.top = y(i)
next
REM
repeat (larger numbers give slower scroll below)
myTimer=SetTimeOut("SF",16)
end
sub
REM
Everything starts here
sub
Window_OnLoad()
REM
Get window dimensions
wW=w.clientWidth
wH=w.clientHeight
REM
Repeat to fix an OE bug
wW=w.clientWidth
wH=w.clientHeight
sH=w.scrollHeight
REM
Get users screen resolution
wx=window.screen.width
REM
and adjust font size to match.
Res=INT(wx/128)
w.style.fontSize = 14+Res
for
i=0 to borders
REM Get dimensions of background image.
pW(i)=document.all("bkg"&i).style.posWidth
pH(i)=document.all("bkg"&i).style.posHeight
REM Calculate the size of the background
REM Number of images
if (bP(i)="L") or (bP(i)="R") then
picX(i)=1
picY(i)=INT((wx*.75)/pH(i))+4
if (sH>wH) then picY(i)=INT((wH+sH)/pH(i))+4
if picY(i)<1 then picY(i)=1
else
picX(i)=INT(wx/pW(i))+4
if
picX(i)<2 then picX(i)=2
picY(i)=1
end if
REM Width of background
bxW(i)=picX(i)*pW(i)
REM Height of background
bxH(i)=picY(i)*pH(i)
document.all("b"&i).style.width=bxW(i)
document.all("b"&i).style.height=bxH(i)
REM Calculate required number of images
numPics(i)=picX(i)*picY(i)
REM "Tile" the background (NOTE: Image is not
positioned.)
for j=1 to numPics(i)
data=""
data="<IMG src='" & document.all("bkg"&i).src &
"'>"
document.all("b"&i).insertAdjacentHTML "beforeEnd",
data
next
REM Create the four corners
data="<IMG id='c"&i&"' src='"&crnr.src&"'
style='"
data=data&"position:absolute;z-index:5;top:"
REM Position the corners
if i MOD 2 = 0 then
cT(i)=0
cL(i)=0
if i=2 then cL(i)=wW-crnr.offsetWidth
else
cT(i)=wH-crnr.offsetHeight
cL(i)=wW-crnr.offsetWidth
if i=1 then cL(i)=0
end if
data=data&cT(i)&";left:"&cL(i)
REM Flip the images on the right
if i=2 or i=3 then data=data&";filter:flipH"
data=data&"'>"
w.insertAdjacentHTML "beforeEnd", data
next
REM
Lets get started.
setUp
end
sub
REM This
runs if the window size is changed.
sub
Window_OnResize()
setUp
end
sub
</SCRIPT>
<!-- This is the "fake" background
made up of a SPAN inside a DIV - DO NOT CHANGE OR MOVE THE FOLLOWING
-->
<DIV
id=box0
style="FILTER: BlendTrans(Duration=0); HEIGHT:
600px; LEFT: -2000px; POSITION: absolute; TOP: 0px; WIDTH: 800px; Z-INDEX:
2"><SPAN
id=b0
style="HEIGHT: 600px; POSITION: absolute; WIDTH:
800px"></SPAN></DIV><!-- This is the "fake" background made up
of a SPAN inside a DIV - DO NOT CHANGE OR MOVE THE FOLLOWING
-->
<DIV
id=box1
style="FILTER: BlendTrans(Duration=0); HEIGHT:
600px; LEFT: -2000px; POSITION: absolute; TOP: 0px; WIDTH: 800px; Z-INDEX:
2"><SPAN
id=b1
style="HEIGHT: 600px; POSITION: absolute; WIDTH:
800px"></SPAN></DIV><!-- This is the "fake" background made up
of a SPAN inside a DIV - DO NOT CHANGE OR MOVE THE FOLLOWING
-->
<DIV
id=box2
style="FILTER: BlendTrans(Duration=0); HEIGHT:
600px; LEFT: -2000px; POSITION: absolute; TOP: 0px; WIDTH: 800px; Z-INDEX:
3"><SPAN
id=b2
style="HEIGHT: 600px; POSITION: absolute; WIDTH:
800px"></SPAN></DIV><!-- This is the "fake" background made up
of a SPAN inside a DIV - DO NOT CHANGE OR MOVE THE FOLLOWING
-->
<DIV
id=box3
style="FILTER: BlendTrans(Duration=0); HEIGHT:
600px; LEFT: -2000px; POSITION: absolute; TOP: 0px; WIDTH: 800px; Z-INDEX:
3"><SPAN
id=b3
style="HEIGHT: 600px; POSITION: absolute;
WIDTH:
800px"></SPAN></DIV></FONT></BODY>