E' necessario disporre di un record corrente...

[wegawhite]

Buonasera.

Mi spiegate perchè questo codice va in errore:?

Tipo di errore:
ADODB.Field (0x80020009)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.

<%
'Eseguo la query per il mese in corso
Set objRS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tbl_incontri "
SQL = SQL & " WHERE data_prossimo_incontro = "& month(date) &""
objRS.Open SQL, objconn

if not objrs.eof then

response.write objRS("data_prossimo_incontro")

   else

MeseSuccessivo = DateAdd("m", 1, Date())

Set objRS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tbl_incontri "
SQL = SQL & " WHERE data_prossimo_incontro = "& month(MeseSuccessivo) &""
objRS.Open SQL, objconn

response.write objRS("data_prossimo_incontro") 

end if

response.write sql

	   objrs.Close
	   Set objrs = Nothing
					

	objConn.Close
	Set objConn = Nothing

%>