<% call aproconnessione Set rs_proxapp = Server.CreateObject("ADODB.RecordSet") strs_proxappQL = "SELECT * FROM "&proxapp rs_proxapp.Open strs_proxappQL, conn %>

Sono tanti gli amici di Euromoto: ecco una galleria di personaggi tutti da conoscere.
Ricorda che l'aggiornamento di queste pagine è quindicinale. TORNA A TROVARCI!
PROSSIMI APPUNTAMENTI:
.
<%do while not rs_proxapp.EOF%>

<%=rs_proxapp("data")%>: <%=rs_proxapp("descrizione")%>

<% rs_proxapp.MoveNext Loop %>
 
GALLERIA:
<% 'record per pagina recxpag = 3 pag = request("pag") if pag="" then pagdown = 0 strs_galleriaQL = "SELECT * FROM "&galleria&" ORDER BY idgalleria DESC" session("sql") = strs_galleriaQL strs_galleriaQL = "SELECT * FROM "&galleria&" ORDER BY idgalleria DESC limit "&pagdown&","&recxpag pagup = recxpag - 1 strs_galleria2QL = "SELECT COUNT(*) as numgalleria FROM "&galleria session("sql2") = strs_galleria2QL else pagdown = (pag - 1) * recxpag pagup = (pag * recxpag)-1 strs_galleriaQL = session("sql")&" limit "&pagdown&","&recxpag strs_galleria2QL = session("sql2") end if Set rs_galleria = Server.CreateObject("ADODB.RecordSet") Set rs_galleria2 = Server.CreateObject("ADODB.RecordSet") rs_galleria.Open strs_galleriaQL, conn rs_galleria2.Open strs_galleria2QL, conn frazione = rs_galleria2.Fields("numgalleria")/recxpag if frazione <= 1 then pagine = 1 else if frazione > int(frazione) then pagine = int(frazione)+1 else pagine = int(frazione) end if end if %> <%do while not rs_galleria.EOF%> <% rs_galleria.MoveNext Loop %>
<%if rs_galleria("foto_piccola")<>"nofoto" then%>
" onClick="return enlarge('upload/galleria/foto_grandi/<%=rs_galleria("foto_grande")%>',event)">" border="0"> <%else%>
<%end if%>
<%=DBOut(rs_galleria("descrizione"),1)%>
 
<%if recxpag < rs_galleria2("numgalleria") then%> Pagine: <%for i=1 to pagine%> <%=i&" "%> <%next else%> Tutti gli articoli visualizzati <%end if%> <% call chiudoconnessione set rs_proxapp = Nothing set rs_galleria = Nothing %>