<%
' abre uma conexão com o banco de dados sem usar DSN
diretorio_banco="dados/oportunidades.mdb"
banco="DRIVER={Microsoft Access Driver (*.mdb)};"
banco= banco & "DBQ=" & server.mappath(diretorio_banco)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open banco
sql = "select * from empresa"
set empresas = Server.CreateObject("ADODB.RecordSet")
empresas.Open sql, conn, 3 , 1
%>
SENGE-ES :. Busca de Parceiros em Projetos, Negócios e Obras
