Agora so nao esta deletando .
deleta_usuarioonline
<% Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dados.mdb") Conexao.Open ConStr Sql="DELETE FROM online " Conexao.Execute(Sql) %>