Kathryn Jensen, Author - Guestbook

<%@Language = "VBScript"%> <% 'create db connection Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Data Source=" & Server.MapPath("cgi-bin/jensen.mdb") &";Provider=Microsoft.Jet.OLEDB.4.0;" %> <% SQL = "SELECT * FROM Guestbook WHERE Approved = 'yes' ORDER BY DateEntered desc" Set RS = Conn.Execute(SQL) status = Request.QueryString("status") on error resume next %> Kathryn Jensen, Author - Guestbook

B io

Guestbook

<% if status = "OK" then%>
Thank you for signing my guestbook. Your entry will appear after it has been approved.
<%elseif status = "Remove" then%>
Your entry is not allowed.
<%end if%>
Please sign my guestbook and let me know you stopped by. To read entries, click here.

First Name:

Last Name:

E-Mail:

City:

State:

Country:

Comments:

Guestbook<%if not RS.EOF then%>

<%do While NOT RS.EOF%> <%RS.MoveNext Loop%>

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

<%else%>

There are no guestbook entries at this time.

<%end if%>

Home | Bio | Books | News | Adventuring | Links | Contact | Contest | Guestbook

Property of Kathryn Jensen. 2005-6 © All Rights Reserved.
For problems, contact the webmaster.

Copyright 2005-6

Site design and hosting by