Hola
El error lo estás cometiendo en esta línea, que tendría que ser así
Cita: matriz[fila][x] = <%=fechaap%>
Pero aún así no resultaría. Veamos como tendría que quedar
Cita: 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 &"';")
response.Write("registro = '"& Idregistro &"';")
matriz = matriz & fechaap & "," ' Concatenamos todos los valores simulando un array
end if
rs.movenext
Loop
rs.close
con.close
%>
<script type="text/javascript">
arr = [<%=Left(ristra,Len(matriz)-1)%>]; // Ya tienes los registros que trae la consulta en un array javascript
</script>
Suerte