<% '############# '# The below sets the pagesize (number of entries per page) '############# strGuestbookPageSize = 2 '############# '# Do not edit below this line '############# strTempFont = "" strsql = "SELECT G_ID, G_VARFIELD1, G_VARFIELD2, G_VARFIELD3, G_V1_SWITCH, G_V2_SWITCH, G_V3_SWITCH, G_MESSAGE FROM " & strTablePrefix & "GB_OPTIONS WHERE G_ID=1" set optionrs = my_conn.execute(strsql) if not optionrs.eof then strV1 = optionrs("G_VARFIELD1") strV2 = optionrs("G_VARFIELD2") strV3 = optionrs("G_VARFIELD3") strV1E = optionrs("G_V1_SWITCH") strV2E = optionrs("G_V2_SWITCH") strV3E = optionrs("G_V3_SWITCH") strGuestbookWelcome = optionrs("G_MESSAGE") set optionrs = nothing end if set countrs = my_conn.execute("SELECT G_ID FROM " & strTablePrefix & "GUESTBOOK") rec = 0 do until countrs.eof rec = rec + 1 countrs.movenext Loop set countrs = nothing strTotalRecords = rec strGAction = "view" %>

<% Select Case strGAction Case "view" strSortMethod = request.querystring("sortby") if strSortMethod = "" then strSortMethod = "DESC" end if intPage = request.querystring("page") strsql = "SELECT G_ID, G_NAME, G_EMAIL, G_WEBSITE, G_ICQ, G_DATE, G_VARFIELD1, G_VARFIELD2, G_VARFIELD3, G_MESSAGE FROM " & strTablePrefix & "GUESTBOOK ORDER BY G_ID " & strSortMethod Set grs = Server.CreateObject("ADODB.Recordset") grs.Open strsql, my_Conn ,3 ' Set the PageSize, CacheSize, and populate the intPageCount and ' intRecordCount variables. grs.PageSize = strGuestbookPageSize ' The cachesize property sets the number of records that will be cached ' locally in memory. strGTotalPages = grs.PageCount If request.querystring("page") = "" then ipage = 1 else ipage = Cint(request.querystring("page")) End if if grs.eof then %> <% else %> <% mLev = cint(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"))) if ((mlev = 4) or (mlev = 3)) then %> <% end if End if%> color="<%=strHeadFontColor%>"> Guestbook There are <%=strTotalRecords%> signatures No one has signed the guestbook yet <% if strGTotalPages > "1" then Call subgpaging() End if rec = 0 grs.absolutepage = ipage do until rec = grs.PageSize or grs.eof strTempID = ChkString(grs("G_ID"), "display") strTempName = ChkString(grs("G_NAME"), "display") strTempEmail = ChkString(grs("G_EMAIL"), "display") strTempWebsite = ChkString(grs("G_WEBSITE"), "display") strTempICQ = ChkString(grs("G_ICQ"), "display") strTempMessage = formatStr(grs("G_MESSAGE")) strTempDate = strToDate(grs("G_DATE")) if grs("G_VARFIELD1") <> "" and strV1E = 1 then strTempField1 = ChkString(grs("G_VARFIELD1"), "display") End if if grs("G_VARFIELD2") <> "" and strV2E = 1 then strTempField2 = ChkString(grs("G_VARFIELD2"), "display") End if if grs("G_VARFIELD3") <> "" and strV3E = 1 then strTempField3 = ChkString(grs("G_VARFIELD3"), "display") End if %> <% rec = rec + 1 grs.movenext Loop %> Posted By: color="<%=strHeadFontColor%>"><%=strTempName%>  Date: color="<%=strHeadFontColor%>"><%=displayDate(datetostr(strTempDate))%> <%=strTempFont & strTempMessage%> Sign it!  |  View it! Options/Settings

<% set grs = nothing End Select Sub subgpaging() p_rec = 1 response.write("" & strTempFont & "Pages: " & vbcrlf) Do until p_rec = strGTotalPages + 1 response.write("" & p_rec & " | ") p_rec = p_rec + 1 Loop response.write("" & vbcrlf) End Sub %>