<% Set Databas = Server.CreateObject("ADODB.Connection") Databas.Open Application("guestbook_ConnectionString") 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%>