Onde eu errei: lista.asp
<html>
<body>
<h1>Lista de visitantes</h1>
<%Set CX = Server.CreateObject("ADODB.Connection"!)
CX.Open "teste"
Set RS = CX.Execute("Select * from Visitas")
RS.MoveFirst
Do While not RS.Eof%>
<p>Nome: <%=RS.Fields("nome")%> <br>
Email: <%=RS.Fields("email")%> </p>
<%RS.MoveNext
Loop%>
</body></html>