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