eliminazione record automatica in due tabelle

[lupo1978]

salve con questo script elimino quei record che sono scaduti:
<%
Dim Recordset1
Dim Recordset1_numRows


Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connUtenti_1_STRING
Recordset1.Source = "SELECT * FROM [OGGETTI IN VENDITA]"

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

Recordset1_numRows = 0

set elimina = Server.CreateObject("ADODB.Command")
elimina.ActiveConnection = MM_connUtenti_1_STRING
elimina.CommandText = "DELETE * FROM [OGGETTI IN VENDITA] WHERE scadenza < now()"
elimina.CommandType = 1
elimina.CommandTimeout = 0
elimina.Prepared = true
elimina.Execute()
%>
adesso vorrei che in automatico mi eliminasse anche i recors
dI una seconda tabella attraverso l'id,assegnato ad ogni oggetto.in pratica dovrebbe eliminare sia l'ggetto scaduto in base al tempo e sia l'id dell'oggetto scaduto presente in una altra tabella chimata "statitistica utente",cioe se ho eliminato l'oggetto a perche scaduto questo oggetto che ha id"4"deve essere anche cancellato nella tabella statistica che ha l'oggetto" a" id"4",e' possibile?

[lupo1978]

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?

[lupo1978]

cosi mi elimina il record al momento della pressione del pulsante:
<%
Dim Recordset2
Dim Recordset2_numRows
dim id
id=(Recordset1.Fields.Item("id").Value)
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 "
elimina.CommandType = 1
elimina.CommandTimeout = 0
elimina.Prepared = true
elimina.Execute()
%>
adesso devo far si che l'id venga eliminato al momento della scadenza e non della pressione del pulsante:

ho scritto cosi pero' e' sbagliato:
Recordset2_numRows = 0
set elimina = Server.CreateObject("ADODB.Command")
elimina.ActiveConnection = MM_connUtenti_1_STRING
elimina.CommandText = "DELETE * FROM [statistice utente] where id where scadenza < now()"
elimina.CommandType = 1
elimina.CommandTimeout = 0
elimina.Prepared = true
elimina.Execute()
come e' la sintassi giusta visto che mi dice che e' sbagliata? per favore aiuto..