<% 'record per pagina recxpag = 3 pag = request("pag") if pag="" then pagdown = 0 strs_prodQL = "SELECT * FROM "&articoli&" WHERE categoria='28' order by codart DESC" session("sql") = strs_prodQL strs_prodQL = "SELECT * FROM "&articoli&" WHERE categoria='28' order by codart DESC"&" limit "&pagdown&","&recxpag pagup = recxpag - 1 strs_prod2QL = "SELECT COUNT(*) as numprod FROM "&articoli&" WHERE categoria='28'" session("sql2") = strs_prod2QL else pagdown = (pag - 1) * recxpag pagup = (pag * recxpag)-1 strs_prodQL = session("sql")&" limit "&pagdown&","&recxpag strs_prod2QL = session("sql2") end if call aproconnessione Set rs_prod = Server.CreateObject("ADODB.RecordSet") Set rs_prod2 = Server.CreateObject("ADODB.RecordSet") rs_prod.Open strs_prodQL, conn rs_prod2.Open strs_prod2QL, conn frazione = rs_prod2.Fields("numprod")/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 %>

Euromoto presenta una selezione delle migliori offerte dell'usato attualmente disponibili.
Ricorda che l'aggiornamento di queste pagine è quindicinale. TORNA A TROVARCI!
 
<%if not rs_prod.EOF then%> <%rs_prod.MoveNext end if%> <% if not rs_prod.EOF then %> <%rs_prod.MoveNext end if %> <% if not rs_prod.EOF then%> <%end if%>
<%if rs_prod("fotopiccola")<>"nofoto" then%>
" onClick="return enlarge('upload/foto_grandi/<%=rs_prod("fotogrande")%>',event)">" border="0"> <%else%>


<%end if%>
ARTICOLO: <%=rs_prod("codart")%>
MODELLO: <%=DBOut(rs_prod("nome_ita"),1)%>
DESCRIZIONE: <%=DBOut(rs_prod("descrizione_ita"),1)%>
ARTICOLO: <%=rs_prod("codart")%>
MODELLO: <%=DBOut(rs_prod("nome_ita"),1)%>
DESCRIZIONE: <%=DBOut(rs_prod("descrizione_ita"),1)%>
<%if rs_prod("fotopiccola")<>"nofoto" then%>
" onClick="return enlarge('upload/foto_grandi/<%=rs_prod("fotogrande")%>',event)">" border="0"> <%else%>



<%end if%>
<%if rs_prod("fotopiccola")<>"nofoto" then%>
" onClick="return enlarge('upload/foto_grandi/<%=rs_prod("fotogrande")%>',event)">" border="0"> <%else%>


<%end if%>
ARTICOLO: <%=rs_prod("codart")%>
MODELLO: <%=DBOut(rs_prod("nome_ita"),1)%>
DESCRIZIONE: <%=DBOut(rs_prod("descrizione_ita"),1)%>
   
 
<%if recxpag < rs_prod2("numprod") then%> Pagine: <%for i=1 to pagine%> <%=i&" "%> <%next else%> Tutti gli articoli visualizzati <%end if%>