eliminazione record

[forte78]

salve in caso di eliminazione record se si apre una pagina esce questo errore

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/public/riservatoabbinaeditmed.asp, line 0


affinche nn avvenga si puo inserire una immagine o qualcosa ke faccia capire ke il record nn esiste + ?

vi mostro la query ke acquisisce il record

<%
Dim cod
cod=Request.Querystring("cod")
Dim SQL,Rec
sql = "SELECT * FROM immobili WHERE codiceimmobile ="&cod



Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)

%>



fammi sapere ciao saluti

[Domenix]

<% 
Dim cod
cod=Request.Querystring("cod")
Dim SQL,Rec
sql = "SELECT * FROM immobili WHERE codiceimmobile ="&cod

Set rec = Server.CreateObject("ADODB.Recordset") 
Set Rec=Conn.Execute(SQL)

If Rec.eof then
response.write "Record inesistente"
else
response.write "Record presente"
End if

Rec.close
Set Rec = nothing


%>