<% Dim Connect, Rs, Query, String Set Connect = Server.CreateObject("ADODB.Connection") Connect.Provider = "Microsoft.Jet.OLEDB.4.0" Connect.ConnectionString = "Data Source=" & Server.MapPath ("/anni/gaestebog/Sample.mdb") Connect.Open Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT * from logbog", Connect, 1,3 %>
<%do until Rs.EOF%>
Date: <%=Rs("Date")%>
Name: <%=Rs("PostedBy")%>
<%=Rs("Message")%>
<% Rs.MoveNext loop %>

Write a letter