<% Set conn = Server.CreateObject("ADODB.Connection") Conn.Open(Application("conexao")) set rs=Conn.execute("SELECT * FROM eventos") %> <%=(rs.movenext) %>
Boca Rica Capoeira
"> <%enter(rs("imgprinc"))%>
<%=rs("clique")%>
<%enter(rs("texto1"))%>
<%=(rs("texto2"))%>
