link en asp

[fildey]

a ver si alguien me puede ayudar: necesito q reserva.asp tome el dia, el año, el mes, y la hora q la persona elige de una seri de turnos... el tema es q el link no me anda... alguien podria decirme en q me estoy equivocando??

gracias


<%
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
conexion.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("horarios.mdb")
conexion.Open
dim registros,hora
do while hora < 48
hora=hora+1
set registros = Server.CreateObject("ADODB.RecordSet")
registros.open "select hora,dia,mes,anio from turnos where dia=" & dia & " and mes=" & mes & " and anio=" & anio & " and hora=" & hora & "",conexion
response.Write(hora/2)
response.Write("--")
if registros.eof then%><a href="reserva.asp?day=<%=registros("dia")%>&month= <%=registros("mes")%>&year=<%=registros("anio")%>% >"><%response.write("Libre")%></a>
<%response.Write("<br>")
else
response.Write("Reservado")
response.Write("<br>")
end if
loop
conexion.close
%>

[Myakire]

Te sobran los caracteres %> después del <%=registros("anio")%>
pero ¿por qué dices que esa liga no manda nada?

[mc_quake]

Iniciado por fildey

a ver si alguien me puede ayudar: necesito q reserva.asp tome el dia, el año, el mes, y la hora q la persona elige de una seri de turnos... el tema es q el link no me anda... alguien podria decirme en q me estoy equivocando??

gracias


<%
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
conexion.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("horarios.mdb")
conexion.Open
dim registros,hora
do while hora < 48
hora=hora+1
set registros = Server.CreateObject("ADODB.RecordSet")
registros.open "select hora,dia,mes,anio from turnos where dia=" & dia & " and mes=" & mes & " and anio=" & anio & " and hora=" & hora & "",conexion
response.Write(hora/2)
response.Write("--")
if registros.eof then%><a href="reserva.asp?day=<%=registros("dia")%>&month= <%=registros("mes")%>&year=<%=registros("anio")%>% >"><%response.write("Libre")%></a>
<%response.Write("<br>")
else
response.Write("Reservado")
response.Write("<br>")
end if
loop
conexion.close
%>

<%
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
conexion.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("horarios.mdb")
conexion.Open
dim registros,hora
do while hora < 48
hora=hora+1
set registros = Server.CreateObject("ADODB.RecordSet")
registros.open "select hora,dia,mes,anio from turnos where dia=" & dia & " and mes=" & mes & " and anio=" & anio & " and hora=" & hora & "",conexion
response.Write(hora/2)
response.Write("--")
if registros.eof then
%>
<a href="reserva.asp?day=<%=registros("dia")%>&month= <%=registros("mes")%>&year=<%=registros("anio")%>" ><%response.write("Libre")%></a>
<%response.Write("<br>")
else
response.Write("Reservado")
response.Write("<br>")
end if
loop
conexion.close
%>

[fildey]

ahora me tira este error:

Tipo de error:
ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/OtraPagina.asp


alguien sabe xq??

[GaboMaKano]

current record has been deleted

el registro ha sido eliminado o borrado

[Myakire]

Ese código exige una prueba de escritorio pero con urgencia.