Il javascript e' "quasi" ok... ma ci sono grossi problemi nella logica lato server

Riscrivo il pezzo:

codice:
<html>
<script language="JavaScript"> 
var phrases = new Array();
<% 
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/dbase/db.mdb") & ";pwd=123456" 

strSQL = "SELECT * FROM news ORDER BY data DESC" 

Set objRS = Server.CreateObject("ADODB.Recordset") 
objRS.Open strSQL, objConn 
objRS.movefirst 
intnumero=0 
do while not(objRS.eof) 
%> 
phrases[<%=intNumero%>]='<table width=100%><tr><td><font face=verdana size=2><%=objRS("banner")%></table>' 
<% 
intNumero = intNumero + 1 
objRS.movenext 
loop 

objRS.Close 
Set objRs = Nothing 
objConn.Close 
Set objConn = Nothing 
%> 
</script>
ciao