<%
iPageSize = 10 ' NUMMERO DI RECORDS
if request.QueryString("page") = "" then
iPageCurrent = 1
else
iPageCurrent = CInt(request.QueryString("page"))
end if
set rs = server.CreateObject("ADODB.Recordset")
qry = "SELECT T_PRODOTTI.*, T_PRODOTTI.IC_CAT FROM T_PRODOTTI WHERE (((T_PRODOTTI.IC_CAT)=1))"
'creo il recordset
'set rs = conn.execute(qry)
rs.open qry, conn, 3,3
rs.PageSize = iPageSize
rs.CacheSize = iPageSize
iPageCount = rs.PageCount
if iPageCurrent > iPageCount then iPageCurrent = iPageCount
if iPageCurrent < 1 then iPageCurrent = 1
if ipageCount <> 0 then
NumeroColonne = 2
%>
<table border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#B2B2B2" bgcolor="#FFFFFF">
<%
rs.AbsolutePage = iPageCurrent
iRecordsShown = 0 %>
<tr valign="middle">
<td height="15" colspan="2"><div align="center"><span class="carattereGenerale">Pagine:
<% for x = 1 to iPageCount
if iPageCurrent = x then %>
<font color="#00000" face="Verdana, Arial, Helvetica, sans-serif" size="1">[
<%= x %>]</font>
<% else %>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%= x %></font>
<%end if
next %>
</span></div></td>
</tr>
<%
cont=0
while not rs.EOF
cont=cont+1
if ((cont-1) mod NumeroColonne)=0 then%>
<tr><%
end if%>
<td>
<table width="179" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr valign="top" class="carattereGenerale-1">
<td width="87"><div align="center"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="index1.asp?look=PROD&ID_PROD=<%=rs("ID_P ROD")%>" class="menubasso" title="Ingrandisci">[img]thumb.aspx?FileName=public/images/caricate/<%=rs([/img]&ScaleFactor=22" alt="Ingrandisci" hspace="2" vspace="2" border="0" />
[img]public/images/ZOOM.gif[/img]</a></font></div></td>
<td width="92"><div align="left"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rs("prod_desc")%>
</font>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% if RS("PROD_PREZZOSCONTATO") <> 0 then %>
<s>€<%=formatnumber(RS("PROD_PREZZO"),2)%></s>
<font color="#FF0000">€<%=formatnumber(RS("PROD_PRE ZZOSCONTATO"),2)%></font></font>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% else %>
€<%=formatnumber(RS("PROD_PREZZO"),2)%>
<% end if %>
</font></div></td>
</tr>
<tr valign="top" class="carattereGenerale-1">
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
</tr>
</table></td><%
if (cont mod NumeroColonne)=0 then%>
</tr><%
end if
id = id+1
rs.movenext
wend
for i=((cont mod NumeroColonne)+1) to NumeroColonne%>
<td></td>
<%
next%>
</table><%
end if%>