בעיה בהצגת באנרים דרך asp

הקובץ אמור לפעול כקובץ js

<%
    Dim Conn, rs, SQL    
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
             Server.MapPath("ado.mdb")
    Set rs = Server.CreateObject("ADODB.RecordSet")
    SQL = "Select * from banners order by ID"
    rs.Open SQL, Conn, 3
%>
image = new Array();
<%    Do while not rs.EOF    %>
image[<%=rs("id")%>]="<%=rs("Burl")%>"
<%
rs.movenext
loop
%>
var nImages =<%=rs.recordcount%> ;
document.write("<a href='<%=rs("Aurl")%>'>")
document.write("<img src='" + image[Math.round(Math.random()*(nImages-1))] + "' border='0' alt='WCL banner trade'></a>");
<%
conn.close
set conn=nothing
set rs=nothing
%>

והשליפה של הקוד

<script language=Javascript src="http://localhost/wcl/btcode.asp"></script>

מישהו יודע מהי הבעיה?