problema con calendario

[v_i_n_i_c_i_o]

Hola amigos!!!

Tengo un problema con este código

<%
do until rs.EOF

if intCount > 31 then exit do

if Day(rs("dte")) = intCount + 1 then
set conn = server.createobject("ADODB.connection")
conn.open "Dbcon"
consulta = "SELECT * FROM diary WHERE month(dte)= " & month(dtCurViewMonth) & " and year(dte) = " & year(dtCurViewMonth) & " order by dte"
set consultar = conn.execute(consulta)
do while not consultar.eof
if consultar("dte") = intCount + 1 then
datos = (datos) & rs("reservacion")
end if
consultar.movenext
loop

Else
dictDte(intCount, 1) = " "
End If
dictDte(intCount, 1) = datos
rs.Movenext
dictDte(intCount, 2) = intCount + 1
intCount = intCount + 1
loop

%>
estoy mostrando una reservación que se dió en una fecha específica (guardada en el campo "Dte")

puede haber varias reservaciones en una misma fecha, estas se colocan en un calendario.

necesito mostrar todos las reservaciones en esa fecha y no lo he podido conseguir, me ayudan?

Gracias