|
|
<!
3
foto’s met tekst
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", of zie rode tekst hieronder, aan
passen en de foto's moet je in de "bron" vervangen. En dat 3 maal, zie het
blauwe deel: <IMG id=pic1 src="3fototekst_bestanden/………" >
<HEAD>
<META
content=text/html;charset=iso-8859-1
http-equiv=Content-Type>
<STYLE
type=text/css>BODY {
BACKGROUND-COLOR: #25390b; COLOR: #000000; FONT-FAMILY: "Georgia";
FONT-SIZE: 12pt; MARGIN-LEFT: 430px
}
</STYLE>
<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></HEAD>
<BODY
background="" bgColor=#ffffff>
<DIV> </DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000080 0px solid;
MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT:
0px">
<DIV><FONT color=#000080
face=Eurostile><STRONG>Hier kan de tekst
komen</STRONG></FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<P></P><!--
Images will
maintain their position as given in the style below even if text
scrolls.
--><IMG height=256 id=pic1 src="3fototekst_bestanden/jerom.gif"
style="HEIGHT:
297px; LEFT: 0px; POSITION: absolute; TOP: 0px; VISIBILITY: hidden; WIDTH:
428px"
width=175> <!-- Note z-index in
next image places it behind the text for demonstration purpose only.
--><IMG
height=152 id=pic2 src="3fototekst_bestanden/barabas.gif"
style="HEIGHT: 300px; LEFT: 0px;
POSITION: absolute; TOP: 80px; VISIBILITY: hidden; WIDTH: 425px; Z-INDEX: -1"
width=128> <IMG height=193 id=pic3
src="3fototekst_bestanden/sidonia.gif"
style="HEIGHT: 430px; LEFT: 0px;
POSITION: absolute; TOP: 0px; VISIBILITY: hidden; WIDTH: 294px"
width=189>
<SCRIPT
language=VBScript>
Dim w, wW,
wH, myTimer, pH, pW, count, numPic
REM Enter
the number of the last image inside the brackets
Dim
p(3)
Set
w=document.body
REM
Initialize
sub
setUp()
wW=w.clientWidth
wH=w.offsetHeight
REM
Repeat to fix an OE bug
wW=w.clientWidth
wH=w.offsetHeight
REM
Image width used to set left margin
pW=pic1.style.posWidth
REM
Set text left margin
w.style.marginLeft=pW+5
REM
Start with pic1
count=1
REM
Last image number
numPic=3
REM
Initialize
for
i=1 to numPic
p(i)=document.all("pic"&i).style.posTop
document.all("pic"&i).style.visibility="hidden"
next
REM
Display first image
pic1.style.visibility="visible"
myTimer=SetTimeOut("slide",4000)
end
sub
REM Display
a new image every 6 seconds
sub
slide()
ClearTimeOut(myTimer)
REM
Hide old image
document.all("pic"&count).style.visibility="hidden"
count=count+1
if count>numPic then
count=1
REM
Position image
document.all("pic"&count).style.top=p(count)+w.scrollTop
REM
Show new image
document.all("pic"&count).style.visibility="visible"
REM
Repeat
myTimer=SetTimeOut("slide",4000)
end
sub
REM
Everything starts here
sub
Window_OnLoad()
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
REM
Start the slide show
setUp
end
sub
REM This
runs if the window size is changed.
sub
Window_OnResize()
setUp
end
sub
REM Keep
the image positoned on the screen
sub
Window_OnScroll()
document.all("pic"&count).style.top=p(count)+w.scrollTop
end
sub
</SCRIPT>
</BLOCKQUOTE></BODY>