Ciao a tutti,
ho un problema con l'impaginazione di una select fatta su una vista di oracle!
Questo è il codice:
il problema è che mi da errore, l'errore che mi presenta è:codice:<% iPageSize = 10 'NUMERO RECORD PER PAGINA PR = trim(Request( "PR" )) PN = trim(Request( "PN" )) USERNAME = trim(Request( "USERNAME" )) PSW = trim(Request( "PSW" )) If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If strSQL = "SELECT 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 = objRS.recordcount iPageCount = objRS.PageCount 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>" 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="48%"></td> <td WIDTH="8%" align="center"></td> <td WIDTH="10%" align="center"></td> <td WIDTH="12%" align="center"></td> <td WIDTH="10%" align="center"></td> <td WIDTH="10%" 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'>" & objRS("Product_Name") & "</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>" Response.Write "<td align='center'><form method='post' name='Dettagli' action='Ricerca_FaseB2.asp'><input type='hidden' name='username' value="&username&" /><input type='hidden' name='psw' value="&psw&"><input type='hidden' name='pid' value="&objRS("Product_ID")&"><input type='hidden' name='pn' value="&objRS("Product_Name")&" ><input type='hidden' name='pr' value="&objRS("product_Publisher")&"><input type='image' src='Images/VaiAnimato.gif' name='Submit' value='vai' alt='vai' /></td></form>" 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")%>&username=<%=Request("username")%>&psw=<%=Request("psw")%>">[img]images/first.gif[/img] <%end if%> <%if iPageCurrent > 1 then%> &pn=<%=Request("pn")%>&username=<%=Request("username")%>&psw=<%=Request("psw")%>">[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")%>&username=<%=Request("username")%>&psw=<%=Request("psw")%>"><%=i%> <%end if%> <%next%> <%if iPageCurrent > 0 and iPageCurrent < iPageCount then%> &pn=<%=Request("pn")%>&username=<%=Request("username")%>&psw=<%=Request("psw")%>">[img]images/next.gif[/img] <%end if%> <%if iPageCurrent+1 < iPageCount then%> &pn=<%=Request("pn")%>&username=<%=Request("username")%>&psw=<%=Request("psw")%>">[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 %>
error '80004005'
sulla riga:
niente altro...codice:reccount = objRS.recordcount
sono gia disabilitate le flag sugli errori brevi
come può essere?
usando un db access non da nessun errore..
mi potete dare una mano?
Rispondi quotando