<%@ LANGUAGE="VBScript.Encode" %> <% ConnGuestBook_ConnectionString = "DBQ=" & Server.Mappath("..\_database\guestbook.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" ConnGuestBook_ConnectionTimeout = 15 ConnGuestBook_CommandTimeout = 30 ConnGuestBook_RuntimeUserName = "admin" ConnGuestBook_RuntimePassword = "" %> TheMatesGuestbook div> <%#@~^LQAAAA==@#@&qW,I;E/DcJzmOkKxEb,'PrU+S:+kdCoJ,K4+U~gQ0AAA==^#~@%> <%#@~^CAAAAA==~Ax[,q6PJgIAAA==^#~@%> <%#@~^KAAAAA==@#@&qW,I;E/DcJzmOkKxEb,'PrnDMWDr~Ptx,fAsAAA==^#~@%> <%#@~^CAAAAA==~Ax[,q6PJgIAAA==^#~@%> <%#@~^LAAAAA==@#@&qW,I;E/DcJAD.WMHndkloE#,@!@*,EEP:tx~AAwAAA==^#~@%> <%#@~^CAAAAA==~Ax[,q6PJgIAAA==^#~@%> <% If Session("ACCESS") = "Yes" Then %>

Return To Admin Area

<% End If%>

Guest Book Entry

* NAME ">
* EMAIL ">
HOMEPAGE http://<% Else %><% =Request("HOMEPAGEURL") %><% End If%>">
* MESSAGE
Emoticons: smile eek laugh wink frown mad embarassed sick indifferent question exclamation


<% ACTION = Request.Querystring("ACTION") %> <% PAGE = CInt(Request.Querystring("PAGE")) %> <% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If %> <% Dim CmdShowEntries Dim MySQL '** Get initial recordset Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT BOOK1.* FROM BOOK1 ORDER BY DATE_ENTERED DESC" CmdShowEntries.Open MySQL,ConnGuestBook_ConnectionString, 3 %> <% HOWMANY = 5 %> <% '** Determine Page Size CmdShowEntries.PageSize = HOWMANY %> <% If ACTION = "FORWARD" Then %> <% PAGE = PAGE + 1 %> <% RCOUNT = RCOUNT + HOWMANY %> <% For DACOUNT = 1 To RCOUNT %> <% CmdShowEntries.MoveNext %> <% Next %> <% End If %> <% If ACTION = "BACK" Then %> <% PAGE = PAGE - 1 %> <% RCOUNT = RCOUNT - HOWMANY %> <% If RCOUNT <> 0 Then %> <% For DACOUNT = 1 To RCOUNT %> <% CmdShowEntries.MoveNext %> <% Next %> <% End If %> <% End If %> <% If RCOUNT = "0" Then %> <% PAGE = 1 %>

<% If CmdShowEntries.RecordCount > 1 or CmdShowEntries.RecordCount = 0 Then %> <% =CmdShowEntries.RecordCount %> Messages Found <% Else %> <% =CmdShowEntries.RecordCount %> Message Found <% End If %>
<% If CmdShowEntries.RecordCount <> 0 And HOWMANY < CmdShowEntries.RecordCount Then %> Showing First <% = HOWMANY %> <% End If %>

<% End If %>
<% y = 0 %> <% while NOT CmdShowEntries.EOF %> <% MESSAGE = CmdShowEntries("MESSAGE") MESSAGE = Replace(MESSAGE,":)","smile") MESSAGE = Replace(MESSAGE,":eek","eek") MESSAGE = Replace(MESSAGE,":lol","laugh") MESSAGE = Replace(MESSAGE,";)","wink") MESSAGE = Replace(MESSAGE,":(","frown") MESSAGE = Replace(MESSAGE,":mad","mad") MESSAGE = Replace(MESSAGE,":o","embarassed") MESSAGE = Replace(MESSAGE,":x","sick") MESSAGE = Replace(MESSAGE,":|","indifferent") MESSAGE = Replace(MESSAGE,":?","question") MESSAGE = Replace(MESSAGE,":!","exclamation") %>
<%= CmdShowEntries("NAME") %> 
"><%= CmdShowEntries("EMAIL") %> " Target="_blank"><%= CmdShowEntries("URL") %>
<% =MESSAGE %>
<%= CmdShowEntries("DATE_ENTERED") %> <% If CmdShowEntries("IP_ADDRESS") <> "" and CmdShowEntries("IP_ADDRESS") <> "205.219.18.178" Then %>    <%= CmdShowEntries("IP_ADDRESS") %><% End If %>


<% CmdShowEntries.MoveNext %> <% y = y + 1 %> <% if y = HOWMANY then %> <% while NOT CmdShowEntries.EOF %> <% CmdShowEntries.MoveNext %> <% wend %> <% end if %> <% wend%>
<% If RCOUNT > 0 Then %>

<% End If %> 		<% If PAGE = CmdShowEntries.PageCount Then %> <% Else %>

<% End If %>
<%#@~^GwEAAA==@#@&?nk/bWxvJjCVbN(xaEOE*P',PD!+@#@&]n/aW /nR .bYn`r~P@!w~C^koUxrJ^+ ODEr@*@!0W Y,Wl1+xJrb.rmVJr~/by+{EE rJ@*Jb@#@&]/2W d+c.rD+`E!!+dY~GK3~UW6YhmD~AHP@!l,t.n6'Jr4YDw)J&AhSR;9 ?GWDR^WsEJ,/Oz^+'EED+aY [mGMlDkW ),UW +EJ,KC.T+Y{EJ|AVmUVJr@*ShAR/Bq?G0D mK:@!&m@*@!&WKxO@*@!&a@*E*@#@&LVQAAA==^#~@%>