<% set objConn = Server.CreateObject("ADODB.Connection") set objRs=Server.CreateObject("ADODB.Recordset") strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\guestbook.mdb") objConn.Open strConn strSQL = "Select * From Messages Order By Name" objRS.Open strSQL,objConn,1,3 NumberOfRecords = objRS.RecordCount %>

	Add New   Name Surname Heading     <% For i=1 To NumberOfRecords %> <% objRs.MoveNext Next objRs.close set objRs=nothing objConn.close set objConn=nothing %>  <%=objRs("Name") & " " & objRs("Surname")%>  <%=objRs("Heading")%> "> ">