..:: Fralbert.it ::..

<% set rsBlocco = Server.CreateObject("ADODB.RecordSet") rsBlocco.ActiveConnection = connFralbert rsBlocco.Source = "Select * from t_blocco WHERE act = 'Y' ORDER BY -ID LIMIT 0, 8" rsBlocco.Open() set rsAlbum = Server.CreateObject("ADODB.RecordSet") rsAlbum.ActiveConnection = connFralbert rsAlbum.Source = "Select * from t_album WHERE act = 'Y' ORDER BY -ID " rsAlbum.CursorLocation = 3 rsAlbum.Open() visualizzati = 12 if request("next") = "" then limitemin = 0 elseif request("next") <> "" then limitemin = request("next") end if barrasolosucc = ">> Pagina successiva >>" barraprecsucc = "<< Pagina precedente << | >> Pagina successiva >>" barrasoloprec = "<< Pagina precedente <<" if nrRecord <= (visualizzati + limitemin) then'ì l'ultima pagina if limitemin = 0 then 'ì anche la prima barranav = "" 'nessuna barra di navigazione elseif limitemin <> 0 then 'non ì anche la prima barranav = barrasoloprec end if elseif nrRecord > visualizzati then'ci sono ancora pagine if limitemin = 0 then 'ì la prima pagina barranav = barrasolosucc elseif limitemin <> 0 then 'ì una pagina intermedia barranav = barraprecsucc end if end if %>

<% i = 0 while not rsAlbum.EOF %> <% rsAlbum.Movenext() i = i+1 if i = 3 then response.write("") i = 0 end if %> <% wend %>


	"> <% = rsAlbum("Titolo")%> <% if Session("Loggaterrimo") = "eUnAdministretor" then %> ">mod. \| ">canc. <% end if %>

<% response.write(barranav) %>

rincoboys
iDeas
Cougar
LaNostraMaga
Apple.it
Handango

<% while not rsBlocco.EOF %>


	<% = rsBlocco("Autore") %> - <% = rsBlocco("Time")%> <% blocco = Replace(rsBlocco("Testo"), " ", " ") response.write(blocco) if Session("Loggaterrimo") = "eUnAdministretor" then %> &act=canc">[x] <% end if %>

<% rsBlocco.MoveNext() wend %>

<% if Session("User") = "" then autore = "anonimo" %>

<% end if %>

<% rsAlbum.Close() set rsAlbum = nothing rsBlocco.Close() set rsBlocco = nothing %>