<% select case request.querystring("dir") case "" session("curpage")=1 case "Next" session("curpage")=session("curpage")+1 case "Prev" session("curpage")=session("curpage")-1 end select const adopenkeyset=3 dim objconnection dim RS if request.querystring("dir")="Next" or request.querystring("dir")="Prev" then sql=request.form("sq") else dimmiquali=request("dimmiquali") SQL="SELECT * from tbl_prodotti WHERE IDCategoria like '" & CatProdotto & "' order by Nome" end if Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open (strCon) set RS=server.createobject("ADODB.recordset") RS.pagesize=10 RS.open sql,objdbconnection,adopenkeyset if RS.eof then %> <% else %> <% if not RS.eof then RS.absolutepage=clng(session("curpage")) and contatore = 0 g=0 do while (not g=RS.pagesize) and (not RS.eof) g=g+1 num=RS("id") If contatore = 2 Then contatore = 0 Response.Write "" End If %> <% rs.MoveNext contatore = contatore + 1 Loop End if %>

" class="bordeauxtratt"><%=RS("Nome")%> ">" width="66" height="44" style="border:1px solid #444444"> <% if Len(RS("AltreNote"))>=60 then %> <%=Left(RS("AltreNote"),60)%>... <% else %> <%=Left(RS("AltreNote"),60)%> <% end if %> " onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('aggiungi<%=RS("ID")%>','','immagini/puls-aggiungi-prodotto.gif',1)">" border="0"> <%=Euro(formatnumber(RS("Prezzo")))%> al <%=RS("TipPrezzo")%>

<% if clng(session("curpage"))>1 then %> <% end if %>

Pagina <%=session("curpage")%>/<%=RS.pagecount%>

<% if clng(session("curpage")) <% end if %>

<%end if%>