<%
iPageSize = 32 'NUMERO RECORD PER PAGINA
strSQL = "SELECT prodotto, MAX(codice) AS Codice FROM prodotti GROUP BY prodotto ORDER BY prodotto DESC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
reccount = objRS.recordcount
iPageCount = objRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "
<font face='verdana' size='1' color='#000000'>Siamo spiacenti. Al momento non ci sono prodotti appartenenti a questa categoria.</p>"
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3" bordercolor="#FFFFFF">
<%
Dim num
num="1"
%>
<%
If Not objRS.EOF Then
Response.Write"<table border=0 width=90% align=center>"
numeroColonne = 0
Do While NumeroColonne < iPageSize And Not objRS.EOF
If numeroColonne Mod num = 0 Then
If numeroColonne <> 0 Then Response.Write"</tr>"
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td><%=objRS("prodotto")%></td>
<td><%=objRS("codice")%></td>
</tr>
</table>
<%Else%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td><%=objRS("prodotto")%></td>
<td><%=objRS("codice")%></td>
</tr>
</table>
<%End If
' PASSO ALLA COLONNA SUCCESSIVA
numeroColonne = numeroColonne + 1
' RS SUCCESSIVO
objRS.MoveNext
Loop
End if
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
%>

Rispondi quotando
