<% Dim rsComments__MMColParam rsComments__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rsComments__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsComments Dim rsComments_numRows Set rsComments = Server.CreateObject("ADODB.Recordset") rsComments.ActiveConnection = MM_clbdata_STRING rsComments.Source = "SELECT * FROM t_guestbook WHERE Approved = " + Replace(rsComments__MMColParam, "'", "''") + " ORDER BY DateEntered DESC" rsComments.CursorType = 0 rsComments.CursorLocation = 2 rsComments.LockType = 1 rsComments.Open() rsComments_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsComments_numRows = rsComments_numRows + Repeat1__numRows %> Puerta Vallarta, Mexico Bed & Breakfast : Guestbook

We are always happy to hear feedback from our guests! Please take a look at what others who have stayed at have to say!

If you have stayed with us, please leave a bit of feedback.

<% While ((Repeat1__numRows <> 0) AND (NOT rsComments.EOF)) %>

<%=(rsComments.Fields.Item("Comments").Value)%>
By <%=(rsComments.Fields.Item("Name").Value)%>.   Date of Visit: <%=MonthName(rsComments.Fields.Item("Month").Value)%> <%=(rsComments.Fields.Item("Year").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsComments.MoveNext() Wend %>

 

  ©2003-2006 Casa Loma Bonita. All Rights Reserved. Web Design by Web Inception

 

<% rsComments.Close() Set rsComments = Nothing %>