Muchas gracias sjam7. Me ayudo muchisimo. Ahora tengo otro problema. Al hacer click en el calendario, yo quiero que me mustre en la pagina diax.asp el detalle, hora por hora(separado de 1 hora entre si) de cada registro. Si hay, que lo imprima, si no, que le deje en blanco. Para eso escribi este bucle. PEro resulta que no lo puedo hacer funcionar del todo. Tengo dos tablas, una el de las reservas(id, hora_comienzo, hora_fin, miembro_id,fecha) y otra, la de los usuarios.Imprime solo la 1ra linea, o sea el 1er registro, pero cuando al for le pongo al final el rs3.movenext y asi pase al siguiente hasta que escriba en la hora que corresponde y asi, pasa el lo siguiente "ocurrio una excepcion" linea 58(es la que esta en negrita) alguna ayuda??
<%
fechahoy=Request.Querystring("date")
RS3 = Server.MapPath("pelegrinadb.mdb")
Set conexion3 = Server.CreateObject("ADODB.Connection")
conexion3.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RS3 & ";"
Set RS3 = Server.CreateObject("ADODB.Recordset")
SQL3="SELECT * FROM reservas_futbol_cancha1 WHERE fecha=#"&fechahoy&"# order by hora_comienzo"
RS3.Open SQL3,conexion3,2,3,1
if rs3.eof then ' chequeo si esta vacio
i=1
n=5
response.write"<table width='100%' border='0' align='left'>"
For i= 1 to 17
n=n+1
hora= FormatDateTime(TIMESERIAL (n+1, 00, 00), 4)
response.write"<tr>"
response.write"<td width='15%' bgcolor='#CCCC00'><div align='center'>"
response.write(hora)
response.write"</div></td>"
response.write"<td width='85%' rowspan='2' bgcolor='#ffffff'><div align='center'>"
response.write"Disponible"
response.write"</td>"
response.write" </tr>"
response.write"<tr>"
Response.write"<td bgcolor='#CCCC00'><div align='center'>"
hora =FormatDateTime(TIMESERIAL (n+2, 00, 00), 4)
response.write(hora)
response.write"</div></td>"
Response.write"</tr>"
next
response.write"</table>"
else
i=1
n=5
response.write"<table width='100%' border='0' align='left'>"
For i= 1 to 17
' RS3.movenext
n=n+1
hora= FormatDateTime(TIMESERIAL (n+1, 00, 00), 4)
hora_sql=FormatDateTime(TIMESERIAL (n, 00, 00), 3)
nueva = Dateadd("h",1, hora_sql)
response.write(nueva)
if RS3.fields("hora_comienzo") = CDATE(nueva) then ' para ver la hora
id_user = rs3.Fields("miembro_id")
user=Csng(id_user)
' response.write (id_user)'control
SQL_user="SELECT * FROM usuarios_p WHERE id="&user&"" ' busco usuario
Set RS_user = Server.CreateObject("ADODB.Recordset")
RS_user.Open SQL_user,conexion3,2,3,1
response.write"<tr>"
response.write"<td width='15%' bgcolor='#CCCC00'><div align='center'>"
'response.write"0"
hora =FormatDateTime(TIMESERIAL (n+1, 00, 00), 4)
response.write(hora)
'response.write":00"
response.write"</div></td>"
response.write"<td width='85%' rowspan='2' bgcolor='#CCCC99'><div align='center'>"
response.write(RS_user.Fields("Nombre"))
response.write" "
response.write(RS_user.Fields("Apellido"))
response.write"<br>"
response.write"Lote: "
response.write(RS_user.Fields("Lote"))
response.write" | Telefono: "
response.write(RS_user.Fields("Telefono"))
response.write"</td>"
response.write" </tr>"
response.write"<tr>"
Response.write"<td bgcolor='#CCCC00'><div align='center'>"
hora =FormatDateTime(TIMESERIAL (n+2, 00, 00), 4)
response.write(hora)
response.write"</div></td>"
Response.write"</tr>"
rs3.movenext
else
response.write"<tr>"
response.write"<td width='15%' bgcolor='#CCCC00'><div align='center'>"
response.write(hora)
response.write"</div></td>"
response.write"<td width='85%' rowspan='2' bgcolor='#ffffff'><div align='center'>"
response.write"Disponible"
response.write"</td>"
response.write" </tr>"
response.write"<tr>"
Response.write"<td bgcolor='#CCCC00'><div align='center'>"
hora =FormatDateTime(TIMESERIAL (n+2, 00, 00), 4)
response.write(hora)
response.write"</div></td>"
Response.write"</tr>"
end if
next
response.write"</table>"
end if
%>