%@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, "
")
%>
|
|||||||||||||
|
|||||||||||||