Hier komt je tekst

Hier komt je tekst,plaats zo veel tekst als je zelf wil.open de sit met de knop boven

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Nieuwe pagina 1</title>
</head>

<p><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252"><BASE 
href="file://C:\Program Files\Common Files\Microsoft Shared\Briefpapier\">
<STYLE>BODY {
	FONT-SIZE: 16pt; COLOR: #ffffff; FONT-FAMILY: arial, tahoma
}
.letterStyle {
	PADDING-RIGHT: 5px; FONT-SIZE: 14pt; COLOR: #ffffff; PADDING-TOP: 40px; FONT-FAMILY: comic sans ms
}
</STYLE>

<SCRIPT language=VBS>
'----------------------------------------------------------------------------
' Photo Pour, by Bill Scott
'----------------------------------------------------------------------------
' All HTML and script by Bill Scott, October, 2000
' billscott@redrivernet.com
' http://www.lettermanstationery.homepage.com

Option Explicit

Dim screenx, screeny, proportion
Dim xxtemp
Dim pourFlag
Dim top, right, bottom, left
Dim letterWidth, letterBottom
Dim origX, origY
Dim resizeFlag

resizeFlag=false

'-------------------------------------------------------------------------------
' Things you can change.
'-------------------------------------------------------------------------------
' The padding values in the letterStyle area above are the margins for the text in the letter.
' Set letter width here. Width is proportionate to window width.

letterWidth=.3

' Set letter bottom here. 1.00 puts the letter bottom on the bottom of the window. .7 puts it 70% down the window.

letterBottom=.7

'-------------------------------------------------------------------------------

Sub Window_OnLoad()
        document.body.scroll="no"
        pourFlag=0
        proportion=Image1.offsetHeight/Image1.offsetWidth
	
        screenx=document.body.clientWidth
        screeny=document.body.clientHeight

closeButton.style.posLeft=(screenx-closeButton.offsetWidth)/2
        closeButton.style.posTop=5
	
        letterBottom=screeny*letterBottom
        letter.style.posWidth=screenx*letterWidth
        letter.style.posLeft=(screenx-letter.offsetWidth)/2
        letter.style.posHeight=letterBottom-closeButton.style.posTop+closeButton.offsetHeight+5
        letter.style.posTop=(screeny-letter.style.posHeight)/2

origY=screeny-(closeButton.style.posTop+closeButton.offsetHeight+5)
        origX=origY/proportion
        Image1.style.posHeight=4
        Image1.style.posWidth=4
        xxtemp=Image1.outerHTML
        xxtemp=Replace(xxtemp,"id=Image1","id=Image1a")
        xxtemp=Replace(xxtemp,"z-index:2;","z-index:2; clip: rect(0px 0px 0px 0px)")
        Image1.insertAdjacentHTML"AfterEnd",xxtemp
	
        Image1.style.posLeft=(screenx-Image1.style.posWidth)/2
        Image1.style.posTop=closeButton.style.posTop+closeButton.offsetHeight+5

Image1a.style.posWidth=origX
        Image1a.style.posHeight=origY
        Image1a.style.posLeft=(screenx-Image1a.style.posWidth)/2
        Image1a.style.posTop=Image1.style.posTop

imageContainer.style.posHeight=origY
        imageContainer.style.posWidth=origX
        imageContainer.style.posLeft=(screenx-imageContainer.style.posWidth)/2
        imageContainer.style.posTop=Image1.style.posTop

letter.style.visibility="visible"
        closeButton.style.visibility="visible"
        Image1.style.visibility="visible"

End Sub

Sub showContainer()
        if pourFlag=1 then
                xxtemp=2
                lowerPhoto
                Exit Sub
        end if
        xxtemp=1
        imageContainer.style.visibility="visible"
        SetTimeOut"startStream",250
End Sub

Sub startStream()
        Image1.style.posHeight=Image1.style.posHeight+xxtemp
        xxtemp=xxtemp+1
        if Image1.style.posHeight+xxtemp>screeny-4 then
                Image1.style.posHeight=origY
                xxtemp=1
                top=Image1a.style.posHeight-4
                bottom=Image1a.style.posHeight
                left=(Image1a.style.posWidth/2)-2
                right=(Image1a.style.posWidth/2)+2
                Image1a.style.clip="rect(" & top & "px " & right & "px " & bottom & "px " & left & "px)"
                Image1a.style.visibility="visible"
                spreadPhoto
                Exit Sub
        end if
        SetTimeOut"startStream",0
End Sub

Sub spreadPhoto()
        if right-left+(xxtemp*2)>Image1a.style.posWidth then
                left=0
                right=Image1a.style.posWidth
                Image1a.style.clip="rect(" & top & "px " & right & "px " & bottom & "px " & left & "px)"
                xxtemp=2
                raisePhoto
                Exit Sub
        end if
        left=left-xxtemp
        right=right+xxtemp
        Image1a.style.clip="rect(" & top & "px " & right & "px " & bottom & "px " & left & "px)"
        xxtemp=xxtemp+1
        SetTimeOut"spreadPhoto",0
End Sub

Sub raisePhoto()
        if top-xxtemp<0 then
                top=0
                Image1a.style.clip="rect(" & top & "px " & right & "px " & bottom & "px " & left & "px)"
                closeButton.innerText="Sluiten"
                pourFlag=1
                Exit Sub
        end if
        top=top-xxtemp
        Image1a.style.clip="rect(" & top & "px " & right & "px " & bottom & "px " & left & "px)"
        SetTimeOut"raisePhoto",0
End Sub

Sub lowerPhoto()
        if top+xxtemp>Image1a.style.posHeight-4 then
                top=Image1a.style.posHeight-4
                Image1a.style.clip="rect(" & top & "px " & right & "px " & bottom & "px " & left & "px)"
                xxtemp=1
                shrinkPhoto
                Exit Sub
        end if
        top=top+xxtemp
        Image1a.style.clip="rect(" & top & "px " & right & "px " & bottom & "px " & left & "px)"
        SetTimeOut"lowerPhoto",0
End Sub

Sub shrinkPhoto()
        if right-left-(xxtemp*2)<4 then
                left=(Image1a.style.posWidth/2)-2
                right=(Image1a.style.posWidth/2)+2
                Image1a.style.clip="rect(" & top & "px " & right & "px " & bottom & "px " & left & "px)"
                Image1a.style.visibility="hidden"
                xxtemp=1
                removeStream
                Exit Sub
        end if
        left=left+xxtemp
        right=right-xxtemp
        Image1a.style.clip="rect(" & top & "px " & right & "px " & bottom & "px " & left & "px)"
        xxtemp=xxtemp+1
        SetTimeOut"shrinkPhoto",0
End Sub

Sub removeStream()
        Image1.style.posHeight=Image1.style.posHeight-xxtemp
        xxtemp=xxtemp+1
        if Image1.style.posHeight-xxtemp<4 then
                Image1.style.posHeight=4
                closeButton.innerText=" Pour  "
                pourFlag=0
                imageContainer.style.visibility="hidden"
                Exit Sub
        end if
        SetTimeOut"removeStream",0
End Sub

Sub Window_OnResize()
        if resizeFlag then
                resizeFlag=false
                window.scrollTo 0,0
                window.location.reload()
                Exit Sub
        else
                resizeFlag=true
        end if
End Sub

</SCRIPT>

<META content="MSHTML 6.00.2719.2200" name=GENERATOR></HEAD>
<BODY bgColor=#4e4f6c background=cid:019501c2db3a$fc14c180$a37aa33e@chello.nl>
<DIV> </DIV>
<DIV><BR> </DIV>
<DIV><STRONG><FONT color=#000000 size=3></FONT></STRONG> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><BR></DIV>
<DIV><BR> </DIV>
<DIV><BR> </DIV>
<DIV><FONT face="Times New Roman" color=#000000 size=3></FONT> </DIV>
<DIV><FONT size=2><BR></FONT></DIV>
<DIV style="FONT: 10pt arial"> </DIV><BGSOUND balance=0 
src="cid:019601c2db3a$fc14c180$a37aa33e@chello.nl" volume=0 loop=infinite>
<DIV> </DIV>
<DIV><BR></DIV><BUTTON language=vbs id=closeButton 
style="Z-INDEX: 99; LEFT: -1800px; CURSOR: hand; COLOR: #fffff0; FONT-FAMILY: courier; POSITION: absolute; BACKGROUND-COLOR: #2a7bcd" 
onclick=showContainer> openen </BUTTON> 
<DIV id=imageContainer 
style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 0px solid; Z-INDEX: 2; LEFT: -1800px; VISIBILITY: hidden; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid; POSITION: absolute"></DIV>
<DIV class=letterStyle id=letter 
style="Z-INDEX: 1; LEFT: 20px; VISIBILITY: hidden; OVERFLOW: auto; WIDTH: 300px; POSITION: absolute; TOP: 20px; HEIGHT: 300px">Hier komt je tekst.t</DIV><IMG 
id=Image1 
style="Z-INDEX: 2; LEFT: -1800px; VISIBILITY: hidden; POSITION: absolute" 
src="scripten/1tafelscript/pisa.jpg" border=0> </BODY></HTML>

</p>

</body>

</html>

terug