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



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

<%=(rsGuest.Fields.Item("Commento").Value)%>

<%=(rsGuest.Fields.Item("Nome").Value)%>  <%=(rsGuest.Fields.Item("Data").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsGuest.MoveNext() Wend %>











Home  |  eventi  |  foto  |  foto italy   |  foto world   |  staff  |  dj & charts   |  guestbook  |  forum  |  links

lucagianluca.com © 2008