ho povato cosi pero:
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_connUtenti_1_STRING
Recordset2.Source = "SELECT * FROM [statistice utente]"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
set elimina = Server.CreateObject("ADODB.Command")
elimina.ActiveConnection = MM_connUtenti_1_STRING
elimina.CommandText = "DELETE * FROM [statistice utente] WHERE id= "&(Recordset1.Fields.Item("id").Value)
elimina.CommandType = 1
elimina.CommandTimeout = 0
elimina.Prepared = true
elimina.Execute() "linea 169"
%>
pero mi da errore
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.
/rossi/mercatinooggetti.asp, line 169
potete corregermi?