Consulta a access

[JavierMMM]

Hola amigos, de nuevo por aquí.... Tengo la siguiente duda y espero estar en el subforo correcto.

Estoy tratando de hacer una búsqueda es una base de datos access desde asp, pero, el resultado lo quiero imprimir en una matriz que está en javascript Puede que esto suene alocado, pero he entrado en un callejón sin salida, y es sin salida, porque ya tengo mucho trabajo hecho y sólo me queda esto que les planteo.

Tengo este bucle en js

Código:

for (fila = 0; fila < 6; fila++)
{
   for (x = 0; x < 7; x++)
	{	
   	   if ((fila == 0) && (x < y))
		{	//valores vacíos primera fila
		   matriz[fila][x] = ""
		} else if (valor > dias_por_mes[mes - 1])
		{		 //valores vacíos última línea
		   matriz[fila][x] = ""
		} else if (valor == dia_mes)
		{	  			//valor día actual
		   matriz[fila][x] = valor
		   valor++
		}
	        else
	        {
	            (***)matriz[fila][x] = valor	//valores ocupados
	            (***)valor++
	         }
        }
}

Este código es parte de un script completo que me forma un calendario (ya se que muchos me comentaron que utilizara los de jquery, pero por muchas razones lo hice de esta manera), pero necesito hacer una consulta a mi base de datos para saber en que fechas hay eventos e imprimirlas en el calendario. Lo que pienso es poner esa consulta en (***) pero no se cómo hacer.

La consulta ya está dentro del script y funciona bien, lo hago de la siguiente manera:

Código HTML:

<script language="javascript" type="text/javascript">

<%
Set con=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
Set Ors=Server.CreateObject("ADODB.Recordset")
Con.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("agendavh.mdb")
Con.open
f = trim(FormatDateTime(date,2))
f = CDate(f)
rs.open "Select fechaap From agenda",con
Do While not rs.eof
	tusuario = trim(rs("tusuario"))
	fechaap = trim(rs("fechaap"))
	Idregistro =trim(rs("Idregistro"))
	if (fechaap >= f) and (tusuario <> "") then
		dev = mid(fechaap,1,2)
		response.Write("fechaap = '"& fechaap &"';")
	end if
	rs.movenext
Loop
rs.close
con.close
%>
.....
.....
.....
</script> 

y esta consulta es la que requiero poner en mi bucle for. Algo como esto (es algo que se me ocurre pero que no se cómo hacerlo y si se puede hacer):

Código:

else
{
    *consulta
    matriz[fila][x] = valor_resultado_consulta     //valores ocupados
}

¿Esto es posible? En caso de que se pueda hacer, ¿cómo lo hago? Espero que me haya explicado bien.

Saludos....