<% set con=server.createobject("adodb.connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..") & "\data\names.mdb;" if request("mode")="delete" then For iCnt = 1 to Request("no").Count 'response.write Clng(0 & Request("no")(iCnt))&"
" con.execute "delete from babynames_comments where sno =" & Clng(0 & Request("no")(iCnt)) Next response.redirect "commentlist.php" end if%>