<%
Dim Nome, Email, Comentario
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("bd.mdb")
PESQUISAR = "SELECT * FROM Banco_Dados ORDER by Numero"
Set RecSet=Conexao.Execute(PESQUISAR)
%>
<%IF RecSet.EOF then%>
Banco de Dados vazio!!!
<%else%>
<% do while NOT RecSet.EOF %>
<%=RecSet("Nome")%>
"><%=RecSet("Email")%>
<%=RecSet("Comentario")%>
<%RecSet.Movenext%><%loop%>
<%end if%>