I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Many
Many
il 12 settembre 2001 alle 18:23
7 messaggi dal 12 luglio 2001
Salve a tutti!!
Potete darmi per favore un'aiutino sul 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.


Il codice della pagina interessata è:
<%

dim data
dim Conn
dim sql1
dim rs1
dim page

set Conn = Server.CreateObject("ADODB.Connection")

Conn.open "Rassegna"

'Setta le preferenze

sql1="SELECT Parametri.MaxPagina FROM Parametri"

Set rs1=Conn.Execute(sql1)

RecordsPerPagina=rs1("MaxPagina")


page = Request("page")

if page="" then page=1

'apri recordset

' paginazione

sql="SELECT Articoli.Data, Articoli.Testata, Articoli.Link FROM Articoli order by 1 desc"
Set rs2=Conn.Execute(sql)


rs2.PageSize = RecordsPerPagina
rs2.AbsolutePage = page


%>

<html>
<head>
<title>Articoli</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<BODY bgColor=#cccccc
bgproperties="fixed" text="#000000" link="#000000" vlink="#000000" alink="#000000">

<table width="100%" border="0" cellspacing="2" cellpadding="0">


<%If rs2.Eof=True or rs2.Bof=True then 'nessuna corrispondenza trovata
%>
<tr><td height="59"></td></tr>
<tr><td align="CENTER" valign="TOP">
<font size="+1">Nessun articolo o pagina HTML è stata trovata.</font><P>
<A HREF="javascript:history.back(-1)"><font size="+1">Torna alla pagina precedente</font></A>
</td></tr>
<tr><td height="59"></td></tr>
<% Else

%>
<tr>
<td width="30%" align="CENTER"><font color="#000000"><b>Data</b></font></td>
<td width="30%" align="CENTER"><font color="#000000"><b>Titolo</b></font></td>
<td align="CENTER"><font color="#000000"><b>Testata</b></font></td>
</tr>
<tr><td height="10" colspan="2"></td></tr>
<%
For i=1 to RecordsPerPagina
if Not rs2.EOF then
%>
<tr>
<td><font size="2"><%=rs2("Data")%></font></td>
<td align="LEFT" valign="TOP"><A HREF='<%=rs2("Link")%>'>
<font size="2"><%=rs2("Titolo")%></font></A></td>
<td><font size="2"><%=rs2("Testata")%></font></td>
</tr>
<tr><td height="10" colspan="2"></td></tr>
<% rs2.MoveNext
end if
Next

End if
%>

<tr><td height="10" colspan="2" align="CENTER">
<% If rsTotalRecords(0)=1 then %>
<b><font color="White">La ricerca sul database ha portato alla luce <b><strong>un
solo</strong></b> articolo</font></b>
<% Else %>
<font color="#000000"><b>La ricerca sul database ha portato alla luce <%=rsTotalRecords(0)%> articoli.</b></font>
<% End If %>

</td></tr>
<tr><td height="35" colspan="2"></td></tr>
<tr><td colspan="2" align="CENTER"></td></tr>
</table>

<% For pag=1 to rs2.PageCount
Response.Write "<A href='articoli4.asp?page= & pag "
Response.Write "&" & Server.UrlEncode(strRicerca)
Response.write "'>"

Response.Write pag

Response.Write "</A> "

Next

Response.Write "</P>"

Conn.close
%>
</body>
</html>

Sapete dirmi qualcosa!?

Grassie!

RispondiQuoting
fusionman
fusionman
il 13 settembre 2001 alle 23:02
134 messaggi dal 20 marzo 2001
hai dichiarato rs1 ma non l'hai settato.
sotto a
set Conn = Server.CreateObject("ADODB.Connection")
prova a mettere:
set rs1 = Server.CreateObject("ADODB.Recordset")



RispondiQuoting
Ciayko
Ciayko
il 13 settembre 2001 alle 23:57
358 messaggi dal 05 marzo 2001
Dovrebbe dipendere dal tipo di cursore selezionato.

Prova così:
Set objRS = CreateObject("ADODB.Recordset")
objRS.CursorLocation = adUseClient
objRS.Open SQLQuery, objConn, adOpenStatic, adLockOptimistic




A.Paterno
Il =:P ianista
'Ascolta Mozart mezz'ora al giorno e ti toglierà il "magone" di torno'
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.