<% ' in caso poi faccia un unico file dovrò leggere una variabile che si chiama tipo 'tipo=request.querystring("tipo") tipo=request.querystring("tipo") if tipo="" then condizione = "where id_tipo = 5 and pagina=1 and id_gestione=0" else condizione = "where id_tipo="&tipo&" and pagina = 1 and id_gestione=0" end if pag = request.querystring("pag") if len(pag)=0 then pag=1 nperpag = 10 sql="select count(id_notizia)as conta from notizie "&condizione&" order by data Desc" Set rs=Conn.Execute (sql) if not rs.eof then ntot = rs("conta") rs.close set rs=nothing %>
<% sql="select * from notizie "&condizione&" order by data desc" set rs=conn.execute(sql) if not rs.eof then conta2=0 'il move() non funziona con mysql Do while conta2") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") conta = conta + 1 if k=20 then exit do rs.movenext loop response.write("") response.write("") response.write("") response.write(""&vbcrlf) response.write(""&vbcrlf) response.write(" "&vbcrlf) else response.write("") response.write("") response.write("") end if rs.close set rs=nothing %>

"&data&" "&rs("ora")&":"&right("0"&rs("min"),2)&" "&rs("titolo")&"
"&rs("anteprima")&"	"&left(rs("testo"),260)&"... [continua]
"&vbcrlf) if pag>1 then Response.Write("Prev."&vbcrlf) end if indice = 0 do while cint(indice*nperpag) < cint(ntot) Response.Write("  "&indice+1&"  "&vbcrlf) indice = indice + 1 loop if cint(pag*nperpag) < cint(ntot) then Response.Write("Next"&vbcrlf) end if response.write("
NON CI SONO NOTIZIE
Archivio