Buenas tardes compys!
Una vez más necesito vuestra ayuda.
Código:
<%
Sub Farmacia()
Dim avui, conexion, rs, sql, idfarmacia
avui = date()
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mdb-database/bd.mdb"))
Set RS = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM farmacies_guardies WHERE data<=#" & avui & "#"
rs.Open sql, conexion,3,1
rs.movelast
idfarmacia = rs.fields("farmacia")
rs.close
sql = "SELECT * FROM farmacies WHERE id=" & idfarmacia & ""
rs.Open sql, conexion,3,1
Response.Write ("<b>" & rs.fields("nom") & "</b><br>")
Response.Write ("" & rs.fields("direccio") & "<br>")
Response.Write ("" & rs.fields("postal") & " " & rs.fields("poblacio") & "<br>")
Response.Write ("" & rs.fields("tel") & "")
rs.close
Conexion.close
End Sub
%>
Este código lleva funcionando todo el mes de Enero sin problemas, cada cambio de farmacia se ha ido actualizando correctamente.
Hasta que hemos cambiado de mes es decir que hemos entrado en Febrero y ya me ha dado el siguiente error:
ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
¿Alguien me puede echar una mano en solucionarlo?
Saludos y gracias!