<%
Set DB=server.CreateObject("ADODB.Connection")
cnpath="DBQ=" & server.mappath("banco/internas.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
listar = "Update acessos Set acessos = acessos + 1 "
Set lista = DB.Execute(listar)
listar2 = "Select acessos From acessos"
Set lista2 = DB.Execute(listar2)
%>
|
|
|
|