<%@ Language=VBScript %> <%option explicit%> <% '*********************************** '* By: Johan Brandstedt '* Date: 2002-06-03 '* Description: A simple guestbook with a nice layout '*********************************** %> GuestBook 1.0 <% dim objRS, strSQL strSQL = "SELECT * FROM Forum ORDER BY ID DESC" set objRS = server.CreateObject ("ADODB.RecordSet") objRS.Open strSQL, objConn,1,2 %>

Livro de visitas

<% '------------Begin Display Forum Loop -------------------------------------------------- do until objRS.EOF %>

Enviado por :
<%=objRS("Namn")%> 		Assunto: <%=objRS("Amne")%>
Data: <%=objRS("Datum")%> Hora: <%=objRS("Klockslag")%>
Mensagem:
<%=objRS("Meddelande")%>

<% objRS.MoveNext loop '------------End Display Forum Loop -------------------------------------------------- %>