Asociación Nacional de Webmasters Perú

este codigo debe elimnar multiples registrospor ejem he seleccionado 3 item pero solo elimina uno el error esta en este codigo por que he testeado y si recibe todos los valores request.form


Dim ID
ID = Request.Form("proDescripcion")
if ID="" then
Response.Write "No ha seleccionado ningun item.!"
Else
Dim Conn
Dim Rs
Dim sql
Dim i
for i=1 to Request.form("prodescripcion").count
sql = "delete from productos where proDescripcion = '" & Request.form("prodescripcion")(i) & "' "
Next
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../mybd.mdb")
rs.open sql,conn

response.redirect "agregar.asp"
End If