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

 

 

 

User:

Password:

Oppure iscrivimiticisivi

<% 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 %>
spacer benvenuti spacer
  <% if Session("Loggaterrimo") = "eUnAdministretor" then %>
Aggiungi foto <% end if %>
Le foto divise per album
 
spacer
<% 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) %>
 
footer

fralbert

rincoboys
iDeas
Cougar
LaNostraMaga
Apple.it
Handango

 

 

 

spacer    
  commenta  
  <% if Session("User") <> "" then %> <% else %>

Causa tonnellate di spam, si può postare solo se registrati
<% end if %>
 
 
<% if Session("User") <> "" then %> <% end if %>
 
<% while not rsBlocco.EOF %>
spacer    
  <% = 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 %>