%@LANGUAGE="VBSCRIPT"%>
<%
set rsGuest = Server.CreateObject("ADODB.Recordset")
rsGuest.ActiveConnection = MM_connGuest_STRING
rsGuest.Source = "SELECT * FROM guest ORDER BY ID DESC"
rsGuest.CursorType = 0
rsGuest.CursorLocation = 2
rsGuest.LockType = 3
rsGuest.Open()
rsGuest_numRows = 0
%> <%
Dim Repeat1__numRows
Repeat1__numRows = 52
Dim Repeat1__index
Repeat1__index = 0
rsGuest_numRows = rsGuest_numRows + Repeat1__numRows
%> <%
rsGuest.Fields.Item("Commento").Value = Replace (rsGuest.Fields.Item("Commento").Value, vbCrLf, "
")
%>