Borrar datos con chekbox....ayuda

[AlZuwaga]

Claro, tomaste el EJEMPLO sin modificarlo... Te faltó ejecutar la SQL =)

Probá así


Set con = CreateObject( "ADODB.Connection" )
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\productos1.mdb"))

Chek = Split(Request.Form("Idclas"), ", ")

For i = 0 to UBound(Chek)
SQL="DELETE * FROM clasificados WHERE cod = " & Chek(i)
con.Execute(SQL) 'sin esto, no hace nada de nada!
Next

con.close
set con = nothing