SALVE,ho questo script:

<%
Dim Recordset1
Dim Recordset1_numRows


Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_MERCATINO_STRING
Recordset1.Source = "SELECT * FROM MERCATINOVENDI"

Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0

set elimina = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_MERCATINO_STRING 'linea 144"'
elimina.CommandText = "DELETE * FROM MERCATINOVENDI WHERE DATADISCADENZA < now()"
elimina.CommandType = 1
elimina.CommandTimeout = 0
elimina.Prepared = true
elimina.Execute()
perche mi scrive

L'operazione non è consentita se l'oggetto è aperto.
/prova/mercatinooggetti.asp, line 144?
grazie