Ho provato cosi:
codice:
<%
iPageSize = 10 'NUMERO RECORD PER PAGINA
PR = trim(Request( "PR" ))
PN = trim(Request( "PN" ))
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
' Count SQL
SQLSX = "Select Count(*) as MyPorcata From web_prod where Upper(web_prod.product_Publisher) like Upper('%" & PR & "%') and Upper(web_prod.Product_name) LIKE Upper('%" & PN & "%') ORDER BY web_prod.Product_NAME"
set RSSQLSX = cnn.execute(SQLSX)
TRecord = RSSQLSX("MyPorcata")
strSQL = "SELECT rownum, web_prod.product_ID, web_prod.product_name, web_prod.product_Version, web_prod.product_Publisher, web_prod.product_Language, web_prod.product_Media, web_prod.product_OS, web_prod.product_PPrice from web_prod where Upper(web_prod.product_Publisher) like Upper('%" & PR & "%') and Upper(web_prod.Product_name) LIKE Upper('%" & PN & "%') ORDER BY web_prod.Product_NAME"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, Cnn, adOpenStatic, adLockReadOnly, adCmdText
reccount = TRecord
AiPageCount = reccount / iPageSize
BipageCount = int(AiPageCount)
CipageCount = AiPageCount - BiPageCount
If CipageCount > 0 then
ipageCount = BipageCount + 1
else
ipageCount = BipageCount
end if
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "
<table><td><font face='verdana' size='2' color='#000000'>Non sono stati trovati i Prodotti.</td></table></p>"
Response.Write "RecCount " & reccount & " - IpageCount" & iPageCount & ""
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table align=center cellpadding="0" cellspacing="0" border="0" width="100">
<tr>
<td bgcolor="#cccccc">
<div align="center">
<table cellpadding="0" cellspacing="0" border="0" width="450">
<tr bgcolor="#FFFFFF" height="22">
<td WIDTH="2%"></td>
<td WIDTH="58%"></td>
<td WIDTH="5%" align="center"></td>
<td WIDTH="10%" align="center"></td>
<td WIDTH="10%" align="center"></td>
<td WIDTH="14%" align="center"></td>
</tr>
<%
'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
cont=1
Do While iRecordsShown < iPageSize And Not objRS.EOF
Dim Rig, bg
Rig = Rig + 1
If Rig Mod 2 = 0 then
bg = "#ffffff"
Else
bg = "#99ccff"
End if
Response.Write "<tr bgcolor = " & bg & "><td><font color='#000000' face='Verdana' size='1'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
Response.Write "<td align='left'><font color='#000000' face='Verdana' size='1' class='linkpannello'><a href=Ricerca_PFasec.asp?PID=" & objRS("Product_ID") & "&PR=" & objRS("product_Publisher") &"&Pn=" & objRS("Product_Name") &" class=linkpannello> " & objRS("Product_NAME") & "</a></font></td>"
Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("Product_Version") & "</font></td>"
Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("Product_Language") & "</font></td>"
Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("Product_Media") & "</font></td>"
Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("Product_OS") & "</font></td>"
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
%>
</table>
</div>
</td>
</tr>
</table>
<%End if%>
<%If ipagecount <> 1 Then%>
<center>
<table width="420">
<tr valign="middle">
<td width="94%" align="center" valign="middle"><font face="verdana" size="1" color="#000000">
[
<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
&pn=<%=Request("pn")%>">[img]images/first.gif[/img]
<%end if%>
<%if iPageCurrent > 1 then%>
&pn=<%=Request("pn")%>">[img]images/pre.gif[/img]
<%end if%>
<%if iPageCount > 2 then
if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
else
da_pag = 1
fino_a_pag = iPageCount
end if%>
<%for i = da_pag to fino_a_pag%>
<%if i = iPageCurrent then%>
<font color="red"><%=i%></font>
<%else%>
&pn=<%=Request("pn")%>"><%=i%>
<%end if%>
<%next%>
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
&pn=<%=Request("pn")%>">[img]images/next.gif[/img]
<%end if%>
<%if iPageCurrent+1 < iPageCount then%>
&pn=<%=Request("pn")%>">[img]images/last.gif[/img]
<%end if%>
]
</font></td>
</tr>
<tr>
<td colspan="2" align="center"><font face="verdana" size="1" color="#000000">
<center>
Pagina
<font color="#FF0000"><%=iPageCurrent%></font>
di
<font color="#FF0000"><%=iPageCount%></font>
</center>
</font></td>
</tr>
</table>
</center>
<%end if%>
<%
Cnn.Close
Set Cnn = Nothing
%>
Cosi ho raggirato il recordCount e il pagecount ma non so come raggirare l'absolutepage..
avete qualche idea?
Rispondi quotando
