..:: Fralbert.it ::..

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

<% end if 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() if request("IDAlbum") <> "" then where = " AND IDAlbum = " & request("IDAlbum") collegamento = "&ID=" & request("IDAlbum") set rsAlbum = Server.CreateObject("ADODB.RecordSet") rsAlbum.ActiveConnection = connFralbert rsAlbum.Source = "Select ID, Titolo, act from t_Album WHERE act = 'Y' AND ID = " & request("IDAlbum") rsAlbum.Open() 'titolo = "

Le foto dall'album " & rsAlbum("Titolo") & "

" titolo = "Le foto dall'album " & rsAlbum("Titolo") & "
" end if set rsFoto = Server.CreateObject("ADODB.RecordSet") rsFoto.ActiveConnection = connFralbert rsFoto.Source = "Select * from t_foto WHERE act = 'Y' " & where & " ORDER BY -ID" rsFoto.CursorLocation = 3 rsFoto.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 %>

<% if Session("Loggaterrimo") = "eUnAdministretor" then %>
Aggiungi foto <% end if %>
Le foto divise per album

<% response.write(titolo) response.write(rsFoto.RecordCount) %> foto in galleria

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


	" target="_blank">" width="120" border="0"> <% dida = replace(rsFoto("dida"), "\", "") response.Write(dida) 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 %>

<% rsFoto.Close() set rsFoto = nothing rsBlocco.Close() set rsBlocco = nothing if request("IDAlbum") <> "" then rsAlbum.Close() set rsAlbum = nothing end if %>



	<% if Session("User") <> "" then %> <% else %> Causa tonnellate di spam, si può postare solo se registrati <% end if %>
	<% if Session("User") <> "" then %> <% end if %>