Codice per newsbar

[luigggi]

Ciao,
ho cambiato il codice nello script in questo modo ma non mi funziona,
potete dargli una occhiata !!??
Io ho inserito il VB dentro allo Javascript come di consueto, non sono sicuro che sia giusto !?

Ciao

<script language="JavaScript">
var max=0;
function textlist()
{
max=textlist.arguments.length;
for (i=0; i<max; i++)
this[i]=textlist.arguments[i];
}
tl=new textlist
(

<%
Set newsRS = Server.CreateObject( "ADODB.Recordset" )
newsRS.ActiveConnection = Con
sqlString = "SELECT newsbar_text FROM newsbar"
newsRS.Open sqlString
primo = true
while not newsRS.EOF
if not primo then Response.Write ","
primo = false
Response.Write """" & newsRS("newsbar_text")
newsRS.MoveNext
wend
newsRS.Close
%>

);
var x=0; pos=0;
var l=tl[0].length;
function textticker()
{
document.getElementById('ticktd').innerHTML=tl[x].substring(0,pos);
if(pos++==l) { pos=0; setTimeout("textticker()",5000); x++;
if(x==max) x=0; l=tl[x].length; } else
setTimeout("textticker()",120);
}
</script>