codice:
<% 
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


%>