<%=RSBODY("Guestbook

" link="<%=RSBODY("Link_Color")%>" alink="<%=RSBODY("Active_Link_Color")%>" background="../res_back.jpg"> <%=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 %>

" size="<%=RSBODY("Title_Font_Size")%>" color="<%=RSBODY("Title_Font_Color")%>">

Add a message

By: <%=RS("Name")%>

Email: "><%=RS("Email")%>

Date/Time: <%=RS("Date")%>

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:

" size="<%=RSBODY("Font_Size")%>">Message:

<%=RSBODY("Footer")%>