<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<%
if request("del").count >= 1 then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("product_db.mdb")
for i = 1 to request("del").count
if request("del")(i) <> "" then
Sql = "Delete from product_list where id = "&request("del")(i)
Conn.execute(Sql)
end if
next