<% option Explicit const adopenforwardonly=0 const adlockreadonly=1 const adcmdtext=1 dim cn,cnstr Set cn = Server.CreateObject("ADODB.Connection") cnstr="provider=microsoft.jet.oledb.4.0;" cnstr=cnstr & "data source=c:\inetpub\wwwroot\stud_asp_example\sem6_2002\c208\kim.mdb;" cn.connectionstring=cnstr cn.Open dim rs, sql set rs=Server.CreateObject("ADODB.recordset") sql="select*from data order by dato;" rs.open sql, cn,adopenforwardonly,adlockreadonly,adcmdtext %> <html> <body background="baggrund.jpg"> <h1>Alle dem der har skrevet sig ind i vores gæstebog</h1> <table> <tr><th>navne</th><th>efternavn</th><th>dato</th></tr> <% do until rs.eof response.write"<tr>" response.write"<td>"& rs.fields("navn") & "</td>" response.write"<td>"& rs.fields("efternavn") & "</td>" response.write"<td>"& rs.fields("dato") & "</td>" response.write"</tr>" rs.movenext loop rs.close set rs=nothing cn.close set cn=nothing %> </table> <a href="gestebog.html"><img src="tilbage2.gif"></a> </body> </html>