<% Set conn = Server.CreateObject("ADODB.Connection") Caminho = "DBQ=" & Server.Mappath("livrovisitas.mdb") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "DBQ=d:\dominios\gustavodourado\htdocs\livro\livrovisitas.mdb" Set rs = conn.Execute("Select * from livro_01") %> <% While Not rs.EOF %>

Nome: <% =server.htmlEncode(rs.fields("Nome").Value) %>

Data: <% =server.htmlEncode(rs.fields("Data").Value) %>

E_mail: <% =server.htmlEncode(rs.fields("E_mail").Value) %>

Mensagem: <% =server.htmlEncode(rs.fields("Mensagem").Value) %>

<% rs.moveNext Wend rs.close %>