<% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "credilon" %>