Please try the code below. I have used a table named cstate as a sample kindly replace it with your own table name.
<%
dim con, opt
set con = server.createobject("adodb.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\\BoMQuizWebAppv1.1\\BookOfMormonQuiz.mdb;"
set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.open "select * from cstate", con
%>
<script language="javascript">
rowCount = "<%=rs.recordcount%>"
colCount = "<%=rs.fields.count%>"
var states = new Array(<%=rs.recordcount%>)
alert(states.length);
for(i = 0; i < states.length; i++)
{
states[i] = new Array(<%=rs.fields.count%>)
}
<%
i = 0
while (not rs.eof)
j = 0
for each k in rs.fields
%>
states[<%=i%>][<%=j%>] = "<%=k.value%>"
<%
j = j + 1
next
i = i + 1
rs.movenext
wend
%>
for(i = 0; i < states.length; i++)
{
for(j = 0; j < states[i].length; j++)
{
document.write(states[i][j]);
}
}
</script>