<% 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() set rsAlbum = Server.CreateObject("ADODB.RecordSet") rsAlbum.ActiveConnection = connFralbert rsAlbum.Source = "Select * from t_album WHERE act = 'Y' ORDER BY Titolo" 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 %>
spacer benvenuti spacer
     
spacer

Cosa troverete in questa pagina? Una risposta ai grandi quesiti della vita: Chi siamo? cosa facciamo? dove siamo? dove andiamo? e sopratutto: dove andiamo, accetteranno la nostra carta di credito?

Capirete perché questa sezione è ancora in costruzione...

[ma per poco: era che volevamo andare online e allora non ci siamo dati il tempo di scrivere altre cosine qui...]

  
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 %>

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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