Ciao ragazzi,
ho un problema...
Ho creato una pagina che in teoria mi dovrebbe visualizzare il nr di record che gli imposto ma alla fine fa quello che vuole e ne visualizza quanti ne vuole...
<%
RecordsPerPagina = 2
page = Request("page")
if page="" then page=1
sqlString = "SELECT PRODUCT, VERSION, PUBLISHER, LANGUAGE, MEDIA, OS " &_
"FROM LISTINO "&_
"WHERE PRODUCT LIKE '%" & searchFor & "%' " &_
"and SKU LIKE '%" & searchSku & "%' " &_
"and PUBLISHER LIKE '%" & searchProd & "%' " &_
"and PRIME_CATEGORIES LIKE '%" & searchCat & "%' " &_
"and LANGUAGE LIKE '%" & searchLingua & "%' " &_
"and MEDIA LIKE '%" & searchMedia & "%' " &_
"ORDER BY product "
SET rs=server.createobject("adodb.recordset")
RS.open sqlString, Con, 1, 3
' paginazione
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
If rs.Eof=True or rs.Bof=True then
Response.Write "<P>Nessun risultato trovato</P>"
Else
For i=1 to RecordsPerPagina
IF NOT RS.EOF Then
%>
<table border="0" width="101%" cellspacing="0" cellpadding="0">
<tr>
<td width="77%" bgcolor="#006699"><font color="#FFFFFF"><b>Prodotto</b></font></td>
<td width="9%" bgcolor="#006699"><font color="#FFFFFF"><b>Vers</b></font></td>
<td width="19%" bgcolor="#006699"><font color="#FFFFFF"><b>Produttore</b></font></td>
<td width="14%" bgcolor="#006699"><font color="#FFFFFF"><b>Lingua</b></font></td>
<td width="14%" bgcolor="#006699"><font color="#FFFFFF"><b>Media</b></font></td>
<td width="29%" bgcolor="#006699"><font color="#FFFFFF"><b>Sistema</b></font></td>
</tr>
<%
int_count = 0
DO WHILE NOT RS.EOF OR int_count = RecordsPerPagina
int_count = int_count + 1
%>
<tr>
<td width="77%"><font color="#006699" size="2"><%=RS( "PRODUCT" )%></font></td>
<td width="9%"><font color="#006699" size="2"><center><%=RS( "VERSION" )%></center></font></td>
<td width="19%"><font color="#006699" size="2"><%=RS( "PUBLISHER" )%></font></td>
<td width="14%"><font color="#006699" size="2"><center><%=RS( "LANGUAGE" )%></center></font></td>
<td width="14%"><font color="#006699" size="2"><center><%=RS( "MEDIA" )%></center></font></td>
<td width="29%"><font color="#006699" size="2"><%=RS( "OS" )%></font></td>
</tr>
<%
RS.MoveNext
LOOP
%>
</table>
</td>
</tr>
</table>
<%
end IF
next
end if
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td>
<%
Response.Write "<P><B>Pagine:</B> "
For pag=1 to rs.PageCount
Response.Write "<A href='default04.asp?page=" & pag
Response.Write "&searchFor=" & Server.UrlEncode(searchFor)
Response.Write "&searchCat=" & Server.UrlEncode(searchCat)
Response.Write "&searchLingua=" & Server.UrlEncode(searchLingua)
Response.Write "&searchSku=" & Server.UrlEncode(searchSku)
Response.Write "&searchMedia=" & Server.UrlEncode(searchMedia)
Response.Write "&searchProd=" & Server.UrlEncode(searchProd)
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
%>
