<%@Language = "VBScript"%> <% 'guestbook.asp 'pull entries from database 'connect to db %> <% SQL = "SELECT * from Guestbook WHERE approved = 'yes' ORDER BY DateEntered desc" Set RS = Conn.Execute(SQL) status = Request.QueryString("status") on error resume next %> Romance by Marliss - Guestbook

In the Dark
HOME
LINKS
HEROES
CONTEST
PHOTOS
DEDICATION
GUESTBOOK
EMAIL
Marliss

 

<% if status = "OK" then%>

Thank you for signing Marliss's guestbook. Your entry will appear after it has been approved.

<%elseif status = "Remove" then%>

Your entry is not allowed.

<%end if%> Please take a moment to sign my guestbook.

First Name:
Last Name:
E-Mail:
City:
State:
Country:

Comments:
 

View 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 | Marliss Moon | Marliss Melton | Photos | Links | Guestbook | Email |

 
Contact the webmaster

2004© Marliss Arruda
All Rights Reserved

Designed and maintained by:
NovelTalk