<%@Language = "VBScript"%> <% 'This page will list all of the guestbook comments 'get from saveguestbook if error status = "" status = Request.Querystring("status") dim today today = date SQL = "SELECT * FROM Guestbook WHERE Approved = 'yes' ORDER BY DateEntered desc" Set RS = Conn.Execute(SQL) if err then Response.write "Query failed due to: " & err.description & "
" end if %> Ann Roth, Author - Guestbook
Guestbook Header Ann Roth - Author

<%if status = "Remove" then%>

Your guestbook entry was not allowed.

<%elseif status = "OK" then%>

Thank you for signing our guestbook. Your entry will show up as soon as it is approved.

<%else%> <%end if%>

Please sign my guestbook and let me know you stopped by.

Read Guestbook

View Guestbook

 <%do while NOT RS.EOF if RS("Comments") <> "" then%> <% end if RS.MoveNext Loop%>

<%=RS("comments")%>

<%=RS("firstname")%> <%=RS("lastname")%> from <%=RS("city")%>, <%=RS("state")%> <%=RS("country")%> on <%=RS("dateentered")%>

| Home | Bio | Books | News | Articles | Contest | Recipes | Writing Tips | Media Kit | Contact | Guestbook |


 

This website property of Ann Roth
Copyright © 2004 All Rights Reserved
Last updated on October 02, 2008

NovelTalk.comThis site designed and hosted by NovelTalk.com

Site maintenance by WebCrafters

<% RS.close Conn.close Set RS = nothing Set Conn = nothing %>