<%
Dim lojaDB,db_path
db_path = "C:\Inetpub\vhosts\maia.ind.br\httpdocs\dados\786214dcpw.mdb"
set lojaDB = Server.CreateObject("ADODB.Connection")
lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db_path
lojaDB.open
%>Pesquisa de Acessos ao site da INMEPE MAIA