<% SQL= "Select * from query_all order by id desc" Set rs = MyConn.Execute(SQL) indice=1 do while Not rs.EOF if indice=7 then exit do End If regione2=""&rs("regione")&"" foto=""&rs("foto")&"" link=""&rs("link")&"" descrizione=""&rs("descrizione")&"" foto_small = replace(foto,".jpg","_small.jpg") if indice=4 then Response.Write ("") End if Response.Write("") rs.MoveNext() indice= indice + 1 loop %> le foto nelle discoteche più belle d'Italia!!! "&descrizione&"

<% SQL= "Select * from query_all order by id desc" Set rs = MyConnWorld.Execute(SQL) indice = 0 while Not rs.EOF if indice <= 5 then foto=""&rs("foto")&"" link=""&rs("link")&"" citta=""&rs("citta")&"" descrizione=""&rs("descrizione")&"" Response.Write("") End if indice = indice+1 rs.MoveNext() Wend %>

le foto nelle discoteche più belle di tutto il Mondo!!!

"&citta&" ") Response.write(" "&descrizione&"

<%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 = 5 Dim Repeat1__index Repeat1__index = 0 rsGuest_numRows = rsGuest_numRows + Repeat1__numRows %> <% rsGuest.Fields.Item("Commento").Value=Replace (rsGuest.Fields.Item("Commento").Value, vbCrLf, "
") %>

LASCIA LA TUA FIRMA

<% While ((Repeat1__numRows <> 0) AND (NOT rsGuest.EOF)) %> <%=(rsGuest.Fields.Item("Nome").Value)%>: <%=(rsGuest.Fields.Item("Commento").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsGuest.MoveNext() Wend rsGuest.Close() %>