<%=RSBODY("Header")%> <% Set RS = Server.CreateObject("ADODB.Recordset") If Request("page") = "" Then intPage = 1 Else intPage = Request("page") End If RS.CursorLocation = 3 RS.CursorType = 3 RS.ActiveConnection = Conn RS.Open "SELECT * FROM Messages ORDER BY Date DESC", Conn, 1, 3 RS.PageSize = RSBODY("Page_Size") RS.CacheSize = RS.PageSize intPageCount = RS.PageCount intRecordCount = RS.RecordCount %>
" width="<%=RSBODY("Table_Width")%>" align="center"> <% If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount If CInt(intPage) <= 0 Then intPage = 1 If intRecordCount > 0 Then RS.AbsolutePage = intPage intStart = RS.AbsolutePosition If CInt(intPage) = CInt(intPageCount) Then intFinish = intRecordCount Else intFinish = intStart + (RS.PageSize - 1) End if End If If intRecordCount > 0 Then For intRecord = 1 to RS.PageSize %> <% RS.MoveNext If RS.EOF Then Exit for Next %> <% End If RS.close Set RS = Nothing %>

"> " width="100%"> ">" size="<%=RSBODY("Font_Size")%>">By: <%=RS("Name")%> ">" size="<%=RSBODY("Font_Size")%>">Email: "><%=RS("Email")%> ">" size="<%=RSBODY("Font_Size")%>">Date/Time: <%=RS("Date")%> ">" size="<%=RSBODY("Font_Size")%>">Message: <%=RS("Message")%>

" size="<%=RSBODY("Font_Size")%>" color="<%=RSBODY("Font_Color")%>"><%If cInt(intPage) > 1 Then%><< Prev<%End If%> " size="<%=RSBODY("Font_Size")%>" color="<%=RSBODY("Font_Color")%>"><%If cInt(intPage) < cInt(intPageCount) Then%>Next >><%End If%>

" size="<%=RSBODY("Add_Font_Size")%>" color="<%=RSBODY("Add_Font_Color")%>">Add Your Message:

"> " width="100%"> ">" size="<%=RSBODY("Font_Size")%>">Name: ">" size="<%=RSBODY("Font_Size")%>">Email (optional): ">" size="<%=RSBODY("Font_Size")%>">Message: ">

Maintained with the Ocean12 ASP Guestbook Manager v1.00 ©2001 Ocean12 Technologies, all rights reserved.

<%=RSBODY("Footer")%>