" vlink="<%=application("colLink")%>" alink="<%=application("colTitle")%>"> <% Function DataIn(giorno, mese, anno) datatmp=anno if len(anno)<4 then datatmp="20"&datatmp datatmp=datatmp&string(2-len(mese),"0")&mese datatmp=datatmp&string(2-len(giorno),"0")&giorno DataIn = DataTmp End Function Function DataOut(DataStr) DataTmp = Mid(DataStr,7,2) & "/" & Mid(DataStr,5,2) & "/" & Mid(DataStr,1,4) DataOut = DataTmp End Function%>

">

">

">

">  "> " size="2" face="arial,helvetica">Metti in linea le tue poesie ">          <% set conn2=server.createobject("adodb.connection") conn2.open Application("ConnectionString") idpoe=cint("0"&request.querystring("n")) if idpoe>0 then set dati=conn2.execute("select * from poesie where attiva=1 and idpoe="&idpoe) if not dati.eof then%> <%=dati("titolo")%> <%=dati("testo")%> <%if dati("pubmail")=1 then%>"><%end if%><%=dati("firma")%><%if dati("pubmail")=1 then%><%end if%> <%end if dati.close:set dati=nothing else xpag=40 pagina=cint("0"&request.querystring("page")) if page<0 then page=0 set lista=conn2.execute("select * from poesie where attiva=1 order by idpoe desc limit "&(pagina*xpag)&","&xpag) lastidpoe=0 %> Alcune poesie pubblicate dai nostri visitatori <%do while not lista.eof%> " class="nound"><%=lista("titolo")%> (<%if lista("pubmail")=1 then%>"><%end if%><%=lista("firma")%><%if lista("pubmail")=1 then%><%end if%>) <% lastidpoe=lista("idpoe") lista.movenext loop%><% lista.close:set lista=nothing %> <% set check=conn2.execute("select * from poesie where attiva=1 and idpoe<"&lastidpoe) if pagina>0 then%><<- Pagina precedente    <%end if if not check.eof then%>Pagina successiva ->><%end if check.close:set check=nothing end if conn2.close:set conn2=nothing%> Se sei interessato a pubblicare delle poesie CLICCA QUI !!.

">

">