Anchor Tag Image1 Image2 Image3 Hello Kimberly. After many personal setbacks I have managed to try this sample. The Anchor tags work but the middle small image cell takes on the size of the and the text box isn't functioning right. it expands widthways. I am not sure if I have done this right. Thank you for looking. Andraea.
<HTML><HEAD><TITLE>Anchor Tag</TITLE><!--- 7th Nov 2007 ---> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <STYLE> >BODY { BORDER-RIGHT: #537aa7 8px groove; BORDER-TOP: #537aa7 8px groove; BORDER-LEFT: #537aa7 8px groove; BORDER-BOTTOM: #537aa7 8px groove; SCROLLBAR-ARROW-COLOR: #c8dbea; SCROLLBAR-BASE-COLOR: #c8dbea } .tab1 { BORDER-RIGHT: #537aa7 8px inset; BORDER-TOP: #537aa7 8px outset; BORDER-LEFT: #537aa7 8px outset; BORDER-BOTTOM: #537aa7 8px inset; } .tab2 { BORDER-RIGHT: #537aa7 4px groove; BORDER-TOP: #537aa7 4px groove; BORDER-LEFT: #537aa7 4px groove; BORDER-BOTTOM: #537aa7 4px groove } .tabl3 { BORDER-RIGHT: #9e8b9f 4px ridge; BORDER-TOP: #9e8b9f 4px ridge; BORDER-LEFT: #fef984 4px ridge; BORDER-BOTTOM: #9aeeb3 4px ridge } .offscrn { LEFT: -1800px; POSITION: absolute; TOP: -1800px } .tekst { OVERFLOW: auto; BORDER-RIGHT: #0fa3e1 6px grove; BORDER-TOP: #0fa3e1 6px grove; BORDER-LEFT: #0fa3e1 6px grove; BORDER-BOTTOM: #0fa3e1 6px grove; PADDING-RIGHT: 15px; PADDING-TOP: 15px; PADDING-LEFT: 15px; PADDING-BOTTOM: 15px; FONT-FAMILY: "Tabitha"; FONT-WEIGHT: normal; FONT-SIZE: 14pt; COLOR: #4c3658; SCROLLBAR-TRACK-COLOR: #cedbfe; SCROLLBAR-BASE-COLOR: #94afff; SCROLLBAR-ARROW-COLOR: #dadada; HEIGHT: 200px; BACKGROUND-COLOR: #cedbfe; TEXT-ALIGN: center } </STYLE> <!---midi sound here---> <BGSOUND balance=0 src="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\mousesqueak.wav" volume=-1000 loop=3> <BGSOUND balance=0 src="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\Mice ROZMAN_Gregor.mid" volume=-1200 loop=infinite> </HEAD> <!--Background Goes Here--> <META content="MSHTML 6.00.2800.1458" name=GENERATOR></HEAD> <BODY bgColor=#eff7c6 background="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\hmtile bthdy candle lg.jpg"> <TABLE class=tabl1 id=tab3 cellSpacing=10 align=center> <TR> <TD> <TABLE class=tabl3 id=tab2 cellSpacing=30 align=center> <TR> <TD> <TABLE class=tabl1 id=tab1 cellSpacing=10 align=center> <TR> <TD> <TABLE class=tabl3 id=tab cellSpacing=1 cellPadding=10 align=center> <TR> <TD> <TD colspan"3"> <!-- div width and height same as imgages--> <DIV class=tabl2 id=div style="LEFT: 0px; WIDTH: 240px; POSITION: relative; TOP: 0px; HEIGHT: 240px"> <!--Main images same size go here --> <IMG id=img1 style="LEFT: 0px; VISIBILITY: visible; WIDTH: 240px; POSITION: absolute; TOP: 0px; HEIGHT: 240px" src="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\mice mousePAD-175.jpg"> <IMG id=img2 style="LEFT: 0px; VISIBILITY: hidden; WIDTH: 240px; POSITION: absolute; TOP: 0px; HEIGHT: 240px" src="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\mice mousePAD-2003.jpg"> <IMG id=img3 style="LEFT: 0px; VISIBILITY: hidden; WIDTH: 240px; POSITION: absolute; TOP: 0px; HEIGHT: 240px" src="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\mice mousePAD-9803.jpg"> </DIV></TD></TR> <TR> <TD class=tab2><a language="vbscript" onclick="See1()"> Image1</a></TD> <TD class=tab2><a language="vbscript" onclick="See2()"> Image2</a></TD> <TD class=tab2><a language="vbscript" onclick="See3()"> Image3</a></TD> </TR> <TR> <TD class=tab2><a language="vbscript" onmouseover="Show1()"><IMG src="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\funny-pc-mice1.jpg" style="width:100px; height:75px;" border="0"></a></TD> <TD class=tab2><a language="vbscript" onmouseover="Show2()"><IMG src="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\funny-pc-mice2.jpg" style="width:100px; height:75px;" border="0"></a></TD> <TD class=tab2><a language="vbscript" onmouseover="Show3()"><IMG src="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\funny-pc-mice3.jpg" style="width:100px; height:75px;" border="0"></a></TD> </TR> <TR> <TD align=middle colspan=3 class=tekst id=txt visibility=visible><DIV><Text here></DIV> </TD></TR></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE> <!--Table backgrounds go here--> <IMG class=offscrn id=tabbak1 src="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\VBS Lesson 26 Stat 1 Tabak1.JPG"> <IMG class=offscrn id=tabbak2 src="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\Bthdy streamrs Tabak2.jpg"> <IMG class=offscrn id=tabbak3 src="G:\OE Scripting\Kimberly's lessons\Anchor Tag Lesson 1\blue_background.JPG"> <SCRIPT language=vbscript> 'Lesson 1 '7th Nov 2007 'Looping Barn Filter Anchor tags '---------------------- 'Change ticker details here window.status="~ ~ Kubista Creations Signing in! ~ ~ " tab1.style.backgroundImage="URL("&tabbak1.src&")" tab2.style.backgroundImage="URL("&tabbak2.src&")" tab3.style.backgroundImage="URL("&tabbak3.src&")" txt.style.backgroundImage="URL("&tabbak3.src&")" sub window_onload() img1.style.filter="progid:dximagetransform.microsoft.Barn (orientation=vertical,motion=out)" img2.style.filter="progid:dximagetransform.microsoft.Barn (orientation=horizontal,motion=in)" img3.style.filter="progid:dximagetransform.microsoft.Barn (orientation=vertical,motion=in)" txt.style.filter="Alpha(Opacity=60)" End Sub Dim x,y x=0 y=0 img1.style.filter="progid:dximagetransform.microsoft.Barn (orientation=vertical,motion=out)" img2.style.filter="progid:dximagetransform.microsoft.Barn (orientation=horizontal,motion=in)" img3.style.filter="progid:dximagetransform.microsoft.Barn (orientation=vertical,motion=in)" Sub See1() img1.style.visibility="visible" img2.style.visibility="hidden" img3.style.visibility="hidden" End Sub Sub See2() img2.style.visibility="visible" img1.style.visibility="hidden" img3.style.visibility="hidden" End Sub Sub See3() img3.style.visibility="visible" img1.style.visibility="hidden" img2.style.visibility="hidden" End Sub Sub Show1() img1.filters(0).Apply() img1.style.visibility="visible" img1.filters(0).Play(5.000) img2.filters(0).Apply() img2.style.visibility="hidden" img2.filters(0).Play(5.000) img3.filters(0).Apply() img3.style.visibility="hidden" img3.filters(0).Play(5.000) End Sub Sub Show2() img1.filters(0).Apply() img1.style.visibility="hidden" img1.filters(0).Play(5.000) img2.filters(0).Apply() img2.style.visibility="visible" img2.filters(0).Play(5.000) img3.filters(0).Apply() img3.style.visibility="hidden" img3.filters(0).Play(5.000) End Sub Sub Show3() img1.filters(0).Apply() img1.style.visibility="hidden" img1.filters(0).Play(5.000) img2.filters(0).Apply() img2.style.visibility="hidden" img2.filters(0).Play(5.000) img3.filters(0).Apply() img3.style.visibility="visible" img3.filters(0).Play(5.000) End Sub Window.setInterval "Scrollback",64 Sub Scrollback() x=x+1 document.body.style.backgroundPosition=-x&" "&x End Sub </SCRIPT> </BODY></HTML>