..:: Fralbert.it ::..

<% if Session("Loggaterrimo") = "eUnAdministretor" then %>
Blogga<% end if %>

Tutti i più recenti

<% if rsBlog.EOF and rsBlog.BOF then response.write("Nessun blog inserito") else while not rsBlog.EOF %>

<% = rsBlog("Titolo") %>

<% if rsBlog("img") <> "" then %> " border="1">
<% end if blog = left(rsBlog.FIelds.Item("Testo").Value, 250) response.write(blog) 'destra = right(rsBlog.FIelds.Item("Testo").Value, 251) 'if destra <> "" then response.write(" continua...") 'end if %>

#comment">Leggi i commenti (<% set rsCommenti = Server.CreateObject("ADODB.RecordSet") rsCommenti.ActiveConnection = connFralbert rsCommenti.Source = "Select ID from t_posts WHERE act = 'Y' AND IDBlog = " & rsBlog("ID") rsCommenti.CursorLocation = 3 rsCommenti.Open() nrPost = rsCommenti.RecordCount rsCommenti.Close() set rsCommenti = nothing response.write(nrPost)%>) | #postcomment">Aggiungi il tuo commento <% if Session("Loggaterrimo") = "eUnAdministretor" then %> | ">mod. ">canc. <% end if %>

................ [bloggato da: <% = rsBlog("Autore") %> il <% = rsBlog("Time") %> in "> <% = rsBlog("Nome")%> ]

<% rsBlog.MoveNext() wend 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() 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 %> <% else %> Causa tonnellate di spam, si può postare solo se registrati <% end if %>
	<% if Session("User") <> "" then %> <% end if %>