Devo impaginare il risultato di una query ma mi dà il seguente errore:
ADODB.Recordset error '800a0cb3'
Il set di record corrente non supporta i segnalibri. Potrebbe trattarsi di una limitazione del provider o del tipo di cursore selezionato.
/sviluppo/pippo_1.0/quotazioni.asp, line 202
Il mio codice è il seguente:
<%
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
' STRINGA SQL
dim conn
dim rs
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&perc2
sql ="SELECT idquotazione,data,eliminata,idazienda FROM quotazioni order by data"
rs.open sql, conn
Set Rs=conn.Execute(sql)
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
If rs.Eof=True or rs.Bof=True then
Response.Write "
Nessun risultato trovato</P>"
Else
For i=1 to RecordsPerPagina
if Not rs.EOF then
idaz=rs("idazienda")
dim connaz
dim rsaz
set connaz = Server.CreateObject("ADODB.Connection")
set rsaz = Server.CreateObject("ADODB.Recordset")
connaz.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&perc4&";Jet OLEDBatabase"
Queryaz ="SELECT ditta FROM aziende WHERE (idazienda = "&idaz&")"
rsaz.open Queryaz, connaz
%>
<tr>
<td width=300>
<font face=verdana size=1 color=a42828><%=rsaz("ditta")%></font><hr color=a42828 size=1>
</td>
<td width=5></td>
<td width=70 align=center>
<font face=verdana size=1><%=rs("idquotazione")%></font><hr color=a42828 size=1>
</td>
<td width=5></td>
<td width=50 align=center>
<font face=verdana size=1><%=rs("data")%></font><hr color=a42828 size=1>
</td>
<td width=5></td>
<td width=100>
<font face=verdana size=1><%if rs("eliminata") = 0 then%>Da verificare<%else%>Già inoltrata <%end if%></font><hr color=a42828 size=1>
</td>
</tr>
<%
End if
Next
End if
Response.Write "
Pagine: "
For pag=1 to rs.PageCount
Response.Write "<A href='pagina.asp?page=" & pag
Response.Write "&ricerca=" & Server.UrlEncode(strRicerca)
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
RS.Close
dataconn.Close
%>
Come devo fare?
Rispondi quotando
