<%
set rs = Server.CreateObject("ADODB.Recordset")
set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Request.ServerVariables("Appl_physical_path") & "html/Gaster.mdb"
sql = "SELECT Namn, Inlagg, Datum FROM tblGast ORDER BY ID;"
set rs=db.execute(sql)
Do Until rs.EOF%>