<% sql = "SELECT * FROM comentarios WHERE autor = 'lilian'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, MeuDB, 3, 3 do while not rs.eof response.write "toma!
" rs.Delete rs.movenext loop response.write "já era! PONTO FINAL." %>