News scorrevoli da DB

[zeweb]

Grazie al Vs. contributo sono riuscito a mettere a posto questo script per gestire delle news scorrevoli. se serve a qualcuno!!!

<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/database.mdb") 

'set connession to database 
Set objConn=Server.CreateObject("ADODB.Connection")

'open connession to database
objConn.Open cstring

Set rs = Server.CreateObject("ADODB.Recordset")

nometabella=""  

SQL = "select * From "&nometabella&""

'apro il rs
rs.Open sql, objConn, 3, 3 'cursore dinamico
rs.movefirst

i = 0
%>
<script language="JavaScript1.2">
//Specify the marquee's width (in pixels)
var marqueewidth=830
//Specify the marquee's height (in pixels, pertains only to NS)
var marqueeheight=20
//Specify the marquee's scroll speed (larger is faster)
var speed=4
//Specify the marquee contents

	
	var myLinks;
	myLinks = "";
</script>
<%
do until rs.eof
%>
<script language="JavaScript">
		
		var marqueecontents=''+'"><%=rs("titolo")%>'+' ';
		
	myLinks=myLinks+marqueecontents;
</script>
<%
rs.movenext
loop
%>
<script language="JavaScript">

if (document.all)
document.write('<center><marquee scrollAmount='+speed+' style="width:'+marqueewidth+'">'+myLinks+'</marquee></center>')

function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
setTimeout("window.onresize=regenerate",450)
intializemarquee()
}
}

function intializemarquee(){
document.cmarquee01.document.cmarquee02.document.write('<nobr>'+marqueecontents+'
')
document.cmarquee01.document.cmarquee02.document.close()
thelength=document.cmarquee01.document.cmarquee02.document.width
scrollit()
}

function scrollit(){
if (document.cmarquee01.document.cmarquee02.left>=thelength*(-1)){
document.cmarquee01.document.cmarquee02.left-=speed
setTimeout("scrollit()",100)
}
else{
document.cmarquee01.document.cmarquee02.left=marqueewidth
scrollit()
}
}

window.onload=regenerate2
</script>
<ilayer width=&{marqueewidth}; height=&{marqueeheight}; name="cmarquee01"> 
<layer name="cmarquee02">
</layer>
</ilayer>
<%
rs.close
set rs=nothing

'chiudo tutto
objConn.close
set objconn=nothing
%>

[zeweb]

sarebbe bello se qualcuno lo sistemasse per tutti i browser almeno Firefox e Netscape.