% Set conn = Server.CreateObject("ADODB.Connection") Conn.Open(Application("conexao")) set rs=Conn.execute("SELECT * FROM eventos") %>
<%enter(rs("texto1"))%>