checkbox

[alessia-archi]

ciao ho un problema:

questa è la pagina di eliminazione di più record contemporaneamente:

<%
dim conn, strConn, chiave, nome, codice

for each Item in Request.Form
if (instr(1,Item, "utente_") > -1) then
if (Request.Form(Item) <> "") then

chiave=Request.form("chiave")
cod=Request.form("cod")


strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " &_
Server.MapPath("database.mdb")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open StrConn


SQL = "SELECT * FROM " & chiave & " WHERE id=" & cod

Set rs = Server.CreateObject("ADODB.Recordset")

Rs.Open SQL, Conn

nome=rs("moneta")


SQL = "SELECT * FROM monete WHERE moneta='" & nome & "'"

Set rs = Server.CreateObject("ADODB.Recordset")

Rs.Open SQL, Conn

codice=rs("id")


SQL="DELETE * FROM " & chiave & " WHERE campoID IN " & codice
Conn.Execute(SQL)

SQL="DELETE * FROM " & chiave & " WHERE campoID IN " & cod
Conn.Execute(SQL)


rs.Close
set rs = Nothing

conn.Close
Set conn = Nothing

end if
end if

next

Response.Redirect "albero.asp"

%>



come errore mi da:

Microsoft JET Database Engine error '80040e14'

Errore di sintassi (virgola) nell'espressione della query 'id=3053, 3068, 3113, 3018, 3025, 3080, 3057, 3097, 3035, 3011, 3043, 3096, 3031, 3037, 3076, 3073, 3074, 3090, 3114, 3048, 3084, 3075, 3092, 3019, 3029, 3044, 3026, 3055, 3046, 3015, 3071, 3101, 3069, 3052, 3070, 3017, 3047, 3030, 3020, 3062, 3056, 3054, '.


la pagina di visualizzazione e poi eliminazione è la seguente:

http://www.classitalia.com/numismati...?chiave=italia

vome posso fare?

è come se il ciclo non mi prendesse i singolo cod ma tutti insieme separati da virgola....

[Mems]

cod = left(cod,len(cod) - 1)
SQL="DELETE * FROM " & chiave & " WHERE campoID IN (" & cod & ")"
Conn.Execute(SQL)