[ start | news | music | bio | blog | pics | media | shows | message board | contact ]

Message Board


<% Dim dbGuestBook Dim rsGuestBook Dim rsComments Dim strSql Dim intID set dbGuestBook = GetDatabase set rsGuestBook = Server.CreateObject("ADODB.Recordset") strSql = "SELECT * From GuestBook ORDER BY Datum DESC" rsGuestBook.Open strSql,dbGuestBook if not rsGuestBook.EOF then while not rsGuestBook.EOF %> <% ' ' ' ' %>
Date: <%=rsGuestBook("Datum")%>
Name: <%=rsGuestBook("Namn")%>
E-Post:">
Homepage: " target="_blank"><%=rsGuestBook("URL")%>
Message: <%=rsGuestBook("Message")%>
  <% intID = rsGuestBook("ID") set rsComments = Server.CreateObject("ADODB.Recordset") strSql = "SELECT Message FROM GuestBookComment WHERE GID = " & intID rsComments.Open strSql, dbGuestBook, 1, 1 if not rsComments.EOF then Response.Write rsComments.Fields("Message") rsComments.Close end if set rsComments = nothing %>
<% rsGuestBook.MoveNext wend else Response.Write "Inget här." end if ' dbGuestBook.Close set dbGuestBook = nothing set rsGuestBook = nothing %>