En que estoy Fallando?

[Bluesman74cl]

Ayer estube haciendo esto... muestro un calendario con sus dias linkeados a un detalle pero en el calendario deben aparecer las actividades de ese dia en particular.... haber, creo que no me he expresado bien.... todo denuevo...


Tengo un calendario, en cada casilla(dia) aparece el numero del dia, hasta aqui bien pero debo mostrar las actividades de cada dia en cada casilla... hice el código pero en algo fallé... me arroja el siguiente error

El registro de Bof o Eof ...algo mas. que el registro no estaba actualizado o habia sido eliminado y me da como dato la linea 83 de mi código



Este es el código(lo que está en verde es cercano a la linea 83) pero no entiendo que hice mal...ayudenme por fa,

if dias = 6 then
response.write "<font color=white><a href = 'actividades.asp?numeroDia=" & numeroDia & "&mes=" & mes & "&ano=" & ano & "&usuario=" & usuario & "'>" & numeroDia & "</a></font></td> "

numeroDia = numeroDia + 1

else
response.write "<font color=white><a href = 'actividades.asp?numeroDia=" & numeroDia & "&mes=" & mes & "&ano=" & ano & "&usuario=" & usuario & "'>" & numeroDia & "</a></font></td> "
sql = "SELECT * FROM actividades Where codusuario = '"&usuario&"' and año = '"&ano&"' and mes = '"&mes&"' and dia = '"&numeroDia&"' Order by hora;"
Set Res = Mi_Conexion.Execute(sql)
auxdia= res("dia")
glosa = res("glosa")
if (auxdia = numeroDia) then
response.write(glosa)
end if
numeroDia = numeroDia + 1

Res.Close
Set Res = Nothing
Mi_Conexion.Close
Set Mi_Conexion = Nothing

end if

[AlexNV]

Puede ser porque no encuentre ningún registro bajo ese criterio, y al haceder a Res("dia") te dice que se ha llegado al EOF.
Comprueba con
if Res.EOF then
'mostrar que no hay nada para ese usuario
else
'mostrar lo que sea
end if

Siempre que se inicializa un recordset es bueno preguntar si tiene algún registro antes de acceder a los datos.

Espero que te sirva.