% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open Application("ConexaoEmpregos") %>