<%@Language="VBScript" CodePage = 65001 %> <% set conn = Server.CreateObject("ADODB.Connection") conn.open MM_lp_STRING set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT Name, Vorname, Comment, CreatedDate FROM Gaestebuch WHERE IsActive = true AND Status = 'freigegeben' ORDER BY CreatedDate DESC" rs.open sql, conn, 1, 1 rs.PageSize = 3 rs.AbsolutePage = Request.Form("AbsolutePage") while (not rs.eof) and (listNumber < rs.PageSize) listNumber = listNumber + 1 %>

<%= rs("Name") & " " & rs("Vorname") %>
<%= FormatDateTime(rs("CreatedDate"), vbShortDate) %>

<%= Replace(rs("Comment"), vbCrLf, "
") %>

<% rs.movenext wend rs.close set rs = nothing conn.close set conn = nothing %>