<html>
<head>
<title>table with scrolling panel</title>
<style>
body {
background-color: #131b73;
scrollbar-base-color: #131b73;
scrollbar-face-color: #131b73;
scrollbar-track-color: #131b73;
scrollbar-highlight-color: #131b73;
scrollbar-3dlight-color: #131b73;
scrollbar-shadow-color: #131b73;
scrollbar-darkshadow-color: #2633ae;
scrollbar-arrow-color: #2633ae;
}
.message {
border-right: #C6BF72 6px inset;
border-top: #C6BF72 6px outset;
border-left: #C6BF72 6px outset;
border-bottom: #C6BF72 6px inset;
background-color: #CEC986;
font-family: lucida handwriting;
font-size: 14pt;
font-weight: regular;
color: #263198;
overflow: auto;
padding: 10px;
top: 10px;
left: 10px;
height: 275px;
width: 445px;
scrollbar-base-color: #CEC986;
scrollbar-face-color: #CEC986;
scrollbar-track-color: #CEC986;
scrollbar-highlight-color: #CEC986;
scrollbar-3dlight-color: #CEC986;
scrollbar-shadow-color: #CEC986;
scrollbar-darkshadow-color: #A59D47;
scrollbar-arrow-color: #A59D47;
}
</style>
</head>
<body background="UETablebg1.gif">
<img id=bkg1 style="left:-1800px; top:-1800px; position:absolute" src="UETablebg2.gif">
<img id=bkg2 style="left:-1800px; top:-1800px; position:absolute; width:130px"
src="UETablePanel.gif">
<table align="center" id=tab1 cellspacing="50" cellpadding="0" border="0" style="border-right: #C6BF72 6px inset; border-top: #C6BF72 6px outset; border-left: #C6BF72 6px outset; border-bottom: #C6BF72 6px inset">
<tr>
<td><table align="center" cellspacing="0" cellpadding="0" border="0" style="border-right: #C6BF72 6px inset; border-top: #C6BF72 6px outset; border-left: #C6BF72 6px outset; border-bottom: #C6BF72 6px inset">
<tr>
<td id=tab2 width="130"></td>
<td><img id=pic src="UETableMain.gif" width="297" height="297" align="center" style="border-left: #C6BF72 6px outset"></td>
</tr>
</table><br><br>
<table align="center" cellspacing="0" cellpadding="10" border="0">
<tr>
<td><div class=message id=mess>
<p>text here</p></div></td>
</tr>
</table>
</td></tr></table>
<script language="VBScript">
'----------------------------------------------------
' written by:
' Lynn Leach ~Unique Expressions~
'
unique1@ihug.com.au' http://homepages.ihug.com.au/~unique1/
' on the birthday of my special friend, Jai Ramsey
' September 8, 2002
' scrolling panel table
' removal of these lines may be
' hazardous to your karma
'-----------------------------------------------------
Dim x, y, scw, sch, intervalHandle
x=0
y=0
scw=document.body.clientWidth
sch=document.body.clientHeight
tab1.background=bkg1.src
tab2.background=bkg2.src
Sub Window_OnLoad()
ClearInterval(intervalHandle)
mess.style.filter="alpha(opacity=80)"
intervalHandle=SetInterval ("scrollit",80)
End Sub
Sub scrollit()
x=x
y=y+1
tab2.style.backgroundposition=x&" "&y
End Sub
Sub Window_OnResize
Window_OnLoad
End Sub
</script>
<SCRIPT language=JavaScript><!--
ScrollSpeed = 100; // milliseconds between scrolls
ScrollChars = 1; // chars scrolled per time period
function SetupTicker() {
// Thanks to who ever created this Java script!
msg=" **Mots d'art & Scénarios : http://ginette-villeneuve.forumactif.com/ ** ......... ";
RunTicker();}
function RunTicker() {
window.setTimeout('RunTicker()',ScrollSpeed);
window.status = msg;
msg = msg.substring(ScrollChars) + msg.substring(0,ScrollChars);}
SetupTicker();
<!-- end
// -->
</body>
</html>