|
|
<!
7) 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 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 3 maal, zie het blauwe deel: <IMG id=pic1 src="c:\image\wet\herfst.jpg" >
<!DOCTYPE HTML PUBLIC
"-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META
content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="MSHTML
5.00.2614.3500" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV> </DIV></BODY><!--
saved from url=(0022)http://internet.e-mail -->
<META
HTTP-EQUIV="Content-Type"
CONTENT="text/html;charset=iso-8859-1">
<!DOCTYPE HTML PUBLIC
"-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META
content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<STYLE
type=text/css>BODY {
BACKGROUND-COLOR: #000000; COLOR: #000000; FONT-FAMILY:
"Comic Sans MS"; FONT-SIZE: 10pt; MARGIN-LEFT: 255px
}
</STYLE>
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<META content="MSHTML
5.00.2314.1000" 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 bgColor=#ffffff>
<DIV><FONT
color=#ffff00 face="Courier New" size=5><STRONG><EM>Hallo
allemaal,</EM></STRONG></FONT></DIV>
<DIV><FONT
color=#ffff00 face="Courier New" size=4><STRONG><EM>Hier kan tekst ingevoegd worden
</EM></STRONG></FONT></DIV>
<DIV><FONT
color=#ffff00 face="Courier New" size=5><STRONG><EM>Groetjes van
</EM></STRONG></FONT></DIV>
<DIV> </DIV>
<DIV style="FONT: 10pt
arial" DIV <>
<DIV> </DIV>
<DIV> </DIV>
<P> </P><!--
Images will maintain their
position as given in the style below even if text scrolls.
--><IMG id=pic1
src="c:\image\wet\herfst.jpg"
style="HEIGHT: 264px;
LEFT: 0px; POSITION: absolute; TOP: 0px; VISIBILITY: hidden; WIDTH:
260px">
<!-- Note z-index in next
image places it behind the text for demonstration purpose only. --><IMG
id=pic2 src="c:\image\wet\herfst.gif "
style="HEIGHT: 213px;
LEFT: 200px; POSITION: absolute; TOP: 80px; VISIBILITY: hidden; WIDTH: 282px;
Z-INDEX: -1">
<IMG id=pic3 src="c:\image\wet\herfst.jpg"
style="HEIGHT: 364px;
LEFT: 0px; POSITION: absolute; TOP: 0px; VISIBILITY: hidden; WIDTH:
307px">
<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 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
4 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>
</DIV></BODY></HTML>
</HTML>