
<html>
<head><title>Acesando Dados de um bancod e dados</title></head>
<body>
<font face="arial" size="2" color="red"><b><Olá pessoal! Estes são alguns dados do primeiro livro da tabela da Editora on-Line</b><Br><BR>
<%
DIM conCadlivro
DIM recLivro
const cntCaminho=
"db/CadLivro.mdb"
Set conCadLivro =
Server.CreateObject("ODADB.connection")
Set recLivro =
Server.CreateObject("ODADB.Recordset")
ConCadLivro.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
recLivro.Open "Livros",conCadLivro
Response.Write "Código: " &
recLivro.Fields("codigo") & "<br>" & " Título do livro: " & recLivro.Fields("NomeLivro")
recLivro.Close
conCadLivro.Close
%>
</body>
</html>