Squirrelinforma - News - Dal Mondo dei Viaggi
|
<%
dim objrs_notizie
dim objrs_categorie,objrs_totale
if request("categoria")<>"" then
if request("categoria")="0" then
set objrs_notizie=objconn_squirrel.execute("select * from notizie where visibile=true order by data desc")
else
set objrs_notizie=objconn_squirrel.execute("select * from notizie where visibile=true and codCategoria="& request("Categoria") & " order by data desc")
end if
%>
| Categorie Notizie |
| |
<%
set objrs_categorie=objconn_squirrel.execute("Select * from Categorie order by Categoria")
do while not objrs_categorie.eof
set objrs_totale=objconn_squirrel.execute("SELECT COUNT(*) as totale from Notizie where codCategoria=" & objrs_categorie("idcategoria"))
if objrs_totale("totale")>0 then
%>
<%if int(request("Categoria"))=objrs_categorie("idcategoria") then%>
[ <%=objrs_totale("totale")%> ] |
"><%=ucase(objrs_categorie("Categoria"))%> |
<%else%>
[ <%=objrs_totale("totale")%> ] |
"><%=ucase(objrs_categorie("Categoria"))%> |
<%end if%>
<%
end if
objrs_totale.close
objrs_categorie.movenext
loop
set objrs_totale=objconn_squirrel.execute("SELECT COUNT(*) as totale from Notizie")
if objrs_totale("totale")>0 then
%>
<%if request("categoria")="0" then%>
[ <%=objrs_totale("totale")%> ] |
Tutte |
<%else%>
[ <%=objrs_totale("totale")%> ] |
Tutte |
<%end if%>
<%
end if
objrs_totale.close%>
| |
|
|
<%do while not objrs_notizie.eof%>
<%if trim(objrs_notizie("fotografia"))<>"" then%>
 " width="130" hspace="3" vspace="0" border="1"> |
<%end if%>
<%
if trim(objrs_notizie("testo"))<>"" then
response.write replace(objrs_notizie("testo"),chr(13),"
")
end if
%>
<%if trim(objrs_notizie("allegato"))<>"" then%>
" target="_blank" class="verdana10">Clicca qui per maggiori dettagli
<%end if%> |
<%
objrs_notizie.movenext
loop
%>
|
<%else
dim objrs_notizieHome
set objrs_notizieHome=objconn_squirrel.execute("select * from notizie where visibileHome=true and visibile=true order by data desc")
%>
| Categorie Notizie |
| |
<%
set objrs_categorie=objconn_squirrel.execute("Select * from Categorie order by Categoria")
do while not objrs_categorie.eof
set objrs_totale=objconn_squirrel.execute("SELECT COUNT(*) as totale from Notizie where codCategoria=" & objrs_categorie("idcategoria"))
if objrs_totale("totale")>0 then
%>
[ <%=objrs_totale("totale")%> ] |
"><%=ucase(objrs_categorie("Categoria"))%> |
<%
end if
objrs_totale.close
objrs_categorie.movenext
loop
set objrs_totale=objconn_squirrel.execute("SELECT COUNT(*) as totale from Notizie")
if objrs_totale("totale")>0 then
%>
[ <%=objrs_totale("totale")%> ] |
Tutte |
<%
end if
objrs_totale.close%>
| |
|
|
<%do while not objrs_notizieHome.eof%>
<%if trim(objrs_notizieHome("fotografia"))<>"" then%>
 " width="130" hspace="3" vspace="0" border="1">
|
<%end if%>
<%
if trim(objrs_notizieHome("testo"))<>"" then
response.write replace(objrs_notizieHome("testo"),chr(13),"
")
end if
%>
<%if trim(objrs_notizieHome("allegato"))<>"" then%>
" target="_blank" class="verdana10">Clicca qui per maggiori dettagli
<%end if%> |
<%
objrs_notizieHome.movenext
loop
%>
|
<%end if%>
| |
|