Guestbook
<% 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")%>"><%=RSBODY("Guestbook_Name")%>
"> " 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:
">" size="<%=RSBODY("Font_Size")%>">Message:
">

View IntroHomeView Picture GalleryDownload Wallpaper | View / Sign Guestbook  |