<% Set Databas = Server.CreateObject("ADODB.Connection") Databas.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("\fpdb\guestbook.mdb") Set Poster = Databas.Execute("SELECT *, Format$([datum],'yyyy/mm/dd') AS formdatum FROM Gastbok Order by Id desc") %>

Signera Gästboken

<%Do Until Poster.EOF%> <% Poster.MoveNext Loop%>
Namn: <%= Poster("Namn")%> Från: <%= Poster("Ort")%> Datum:<%= Poster("FormDatum")%>
Inlägg: <%= Poster("Inlagg")%>
<%Databas.Close%>