Newsgroup: it.comp.www.asp
Titolo: ADODB.Recordset (0x800A0CB3) - Win Xp - IIS5.1

Ciao a tutti .. mi presento sono un niubbo.
Siete la mia ultima speranza, dopodichè getto la spugna.
Ho installato un blog sul mio pc che funzionava poi ho deciso ri 
ripristinare l'immagine che avevo fatto un po' di tempo fa e il blog non 
funziona piu'. accedendo ad alcune pagine mi compare il maledetto errore:
a.. Tipo di errore:
ADODB.Recordset (0x800A0CB3)
Il set di record corrente non supporta i segnalibri. Potrebbe trattarsi di 
una limitazione del provider o del tipo di cursore selezionato.
/dblog/admin/articoli_elenco.asp, line 58
a.. Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
a.. Pagina:
GET /dblog/admin/articoli_elenco.asp
Non so piu dove cercare! ho fatto milel prove ma se mi aiutate ne faccio 
2000 !
ho visto su google che si parla di codice ma io mi intestardisco che non è 
il codice altrimenti prima non funzionava.
o è un settaggio di IUSR o un programma che ho installato  aveva modificato 
delle proprietà dell'utente IUSR.
dopo acer fatto di tutto, accessi.. sila lettura su win .. di tutto... 
ditemi voi che provare... sto esaurendo e mi spiace rinunciare al blog a cui 
oprmai ero affezionato.
Grazie in anticipo. Roberto
ps... ho scaricato anche l'utility per verificare l'mdac 2.81 sp1.. direi 
l'ultima FrameNetwork 1.1 insomma supr aggiornato .. helpatemi !!! 

ti dice l'errore chiaramente ...
"Il set di record corrente non supporta i segnalibri. Potrebbe trattarsi di
una limitazione del provider o del tipo di cursore selezionato."
hai provato a cambiare il tipo di cursore?
sarebbe utile se posti il codice che usi per aprire il rs!
ciao

"Damiano" <fich...@MSUCKgmail.com> ha scritto nel messaggio 
news:3CeTe.51502$F23.6...@twister2.libero.it...

io lo posto anche ma perchè prima funzionava ???
è quello che non capisco !!!
è possibile che ci siano delel aplicazioni che modificano determinati 
accessi o che so io .. dei driver? sto uscendo scemo  ! io non sono uno 
sviluppatore ma solo un utente che si arrabatta un po' qua un po' la .. 
sopravvive insomma... su google si parla di codice ma il codice è sempre lo 
stesso .. è cambiata la macchina! comunque .. scusa lo sfogo ma sono al 
limite... ti posto il codice... la riga è la 58 ovvero 
RSArticoli.AbsolutePage = Pagina
grazie del tuo aiuto
<%
 'dBlog 2.0 CMS Open Source
 'Versione file 2.0.0
%>
<!--#include file="inc_header.asp"-->
<body bgcolor="<%=Colore_Sfondo_Pagina%>">
<table border="0" width="700" align="center" cellspacing="0" 
cellpadding="15" bgcolor="<%=Colore_Sfondo_Content%>">
 <tr>
  <td>
   <table border="0" width="700" align="center" cellspacing="0" 
cellpadding="0"  style="BORDER-RIGHT: <%=Colore_Contorni%> 1px solid; 
BORDER-TOP: <%=Colore_Contorni%> 1px solid; BORDER-LEFT: 
<%=Colore_Contorni%> 1px solid; BORDER-BOTTOM: <%=Colore_Contorni%> 1px 
solid">
    <tr>
     <td width="700">
      <table border="0" width="700" cellspacing="0" cellpadding="0">
       <tr>
        <td width="550" valign="top" style="PADDING-RIGHT: 10px; 
PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px">
         <p align="justify">
          \\ <b><a href="default.asp"><%=Testo_Path_Pannello%></a> : 
<%=Testo_Sezione_Articoli%></b>
         </p>
         <table border="0" width="450" align="center" cellspacing="0" 
cellpadding="0"  style="BORDER-RIGHT: <%=Colore_Contorni%> 1px solid; 
BORDER-TOP: <%=Colore_Contorni%> 1px solid; BORDER-LEFT: 
<%=Colore_Contorni%> 1px solid; BORDER-BOTTOM: <%=Colore_Contorni%> 1px 
solid">
<%
 Dim SQLListBox, RSListBox, SQLArticoli, RSArticoli, RecordPerPagina, 
Pagina, I, Temp, FiltroAutore, FiltroSezione, ArrayFiltroAutore, 
ArrayFiltroSezione, Z
 SQLArticoli = " SELECT Articoli.ID, Articoli.Sezione, Count(Commenti.ID) AS 
ConteggioID, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, 
Articoli.Testo, Articoli.Letture, Articoli.Bozza FROM Commenti RIGHT JOIN 
Articoli ON Commenti.IDArticolo = Articoli.ID WHERE Articoli.ID <> 0"
 If Session("BLOGAdmin") = True Then
  If Request.QueryString("a") <> "" Then
   SQLArticoli = SQLArticoli & " AND Articoli.Autore = '"& 
ControlloSQLInjection(Request.QueryString("a")) &"'"
  End If
 Else
  SQLArticoli = SQLArticoli & " AND Articoli.Autore = '"& 
Session("BLOGNick") &"'"
 End If
 If Request.QueryString("s") <> "" Then
  SQLArticoli = SQLArticoli & " AND Articoli.Sezione = '"& 
ControlloSQLInjection(Request.QueryString("s")) &"'"
 End If
 SQLArticoli = SQLArticoli & " GROUP BY Articoli.ID, Articoli.Sezione, 
Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, 
Articoli.Testo, Articoli.Letture, Articoli.Bozza ORDER BY Articoli.Data 
DESC, Articoli.Ora DESC "
 Set RSArticoli = Server.CreateObject("ADODB.Recordset")
 RSArticoli.Open SQLArticoli, Conn, 1, 3
%>
          <tr>
           <td width="450" bgcolor="#FBFBFB" style="PADDING-RIGHT: 7px; 
PADDING-LEFT: 7px; PADDING-BOTTOM: 7px; PADDING-TOP: 7px">
            <%=Testo_Articoli_IntroduzioneElenco%> <a 
href="articoli_aggiungi.asp"><%=Testo_Modulo_PulsanteAggiungi%></a>.
            <br><%=Testo_Articoli_IntroduzioneTotaleArticoli%>: 
<b><%=RSArticoli.RecordCount%></b>
           </td>
          </tr>
<%
 RecordPerPagina = 4
 Pagina = Request.QueryString("pagina")
 If Pagina = "" OR Pagina = "0" OR IsNumeric(Pagina) = False Then
  Pagina = 1
 Else
  If Pagina <= 0 Then
   Pagina = 1
  End If
 End If
 If RSArticoli.EOF = False OR RSArticoli.BOF = False Then
  RSArticoli.PageSize = RecordPerPagina
  RSArticoli.AbsolutePage = Pagina
  For I = 1 To RecordPerPagina
   If NOT RSArticoli.EOF Then
%>
          <tr>
           <td width="450" bgcolor="#FBFBFB" style="PADDING-RIGHT: 7px; 
PADDING-LEFT: 7px; PADDING-BOTTOM: 7px; PADDING-TOP: 7px">
            <b><%=Testo_TabellaArticoli_RigaTitolo%></b> 
<%=RSArticoli("Titolo")%>
<%
    If RSArticoli("Bozza") = True Then
%>
            (<font 
color="red"><%=Testo_TabellaArticoli_CaratteristicaBozza%></font>)
<%
    End If
%>
            <br><a 
href="articoli_modifica.asp?id=<%=RSArticoli("ID")%>"></a><b><%=Testo_TabellaArticoli_RigaAutore%></b> 
<%=RSArticoli("Autore")%> (<%=StrToData(RSArticoli("Data"))%> @ 
<%=StrToOra(RSArticoli("Ora"))%>)
            <br><b><%=Testo_TabellaArticoli_RigaSezione%></b> 
<%=RSArticoli("Sezione")%> (<%=RSArticoli("Letture")%> 
<%=Testo_TabellaArticoli_CaratteristicaHit%>)
            <br><b><%=Testo_TabellaArticoli_RigaOperazioni%></b> <a 
href="articoli_modera.asp?id=<%=RSArticoli("ID")%>"><%=Testo_TabellaArticoli_LinkModeraCommenti%></a> 
(<%=RSArticoli("ConteggioID")%>) | <a 
href="articoli_modifica.asp?id=<%=RSArticoli("ID")%>"><%=Testo_TabellaArticoli_LinkModifica%></a> 
| <a href="articoli_cancella.asp?id=<%=RSArticoli("ID")%>" onclick="return 
confirm('<%=Testo_Conferma_CancellazioneFileJavascript%>?');"><%=Testo_TabellaArticoli_LinkCancella%></a> 
| <a href="/dblog/articolo.asp?id=<%=RSArticoli("ID")%>" 
target="_blank"><%=Testo_TabellaArticoli_LinkVisualizza%></a> | <a 
href="javascript:popup('preview.asp?id=<%=RSArticoli("ID")%>', 560, 380, 
'preview');"><%=Testo_TabellaArticoli_LinkPreview%></a>
           </td>
          </tr>
<%
    RSArticoli.MoveNext
   End If
  Next
  FiltroAutore = ""
  FiltroSezione = ""
  SQLListBox = " SELECT [Autore], [Sezione] FROM [Articoli] "
  Set RSListBox = Server.CreateObject("ADODB.Recordset")
  RSListBox.Open SQLListBox, Conn, 1, 3
  Do While NOT RSListBox.EOF
   If InStr(FiltroAutore, "|" & RSListBox("Autore")) = False Then
    FiltroAutore = FiltroAutore & "|" & RSListBox("Autore")
   End If
   If InStr(FiltroSezione, "|" & RSListBox("Sezione")) = False Then
    FiltroSezione = FiltroSezione & "|" & RSListBox("Sezione")
   End If
   RSListBox.MoveNext
  Loop
  Set RSListBox = Nothing
  ArrayFiltroAutore = Split(FiltroAutore, "|", -1, 1)
  ArrayFiltroSezione = Split(FiltroSezione, "|", -1, 1)
%>
          <tr>
           <td width="450" bgcolor="#FBFBFB" style="PADDING-RIGHT: 7px; 
PADDING-LEFT: 7px; PADDING-BOTTOM: 7px; PADDING-TOP: 7px">
            <div align="right">
             <b><%=Testo_TabellaArticoli_Paginazione%>:</b>
<%
  For Temp = 1 To RSArticoli.PageCount
   Response.Write "<a href=""articoli_elenco.asp?s="& 
Server.HtmlEncode(Request.QueryString("s")) &"&a="& 
Server.HtmlEncode(Request.QueryString("a")) &"&pagina=" & Temp & """>"
   Response.Write Temp
   Response.Write "</a> "
  Next
%>
            </div>
            <form action="Articoli_elenco.asp" method="get">
                            <b><%=Testo_TabellaArticoli_FiltriPer%></b>
                            <br>
<%
  If Session("BLOGAdmin") = True Then
%>
                            <%=Testo_TabellaArticoli_FiltroPerAutori%>&nbsp;
                            <select name="a" size="1">
                               <option 
value=""><%=Testo_TabellaArticoli_FiltroPerAutoriNessunaScelta%></option>
<%
   For Z = 1 To UBound(ArrayFiltroAutore)
%>
              <option <%If Request.QueryString("a") = ArrayFiltroAutore(Z) 
Then Response.Write "selected" End If%> 
value="<%=ArrayFiltroAutore(Z)%>"><%=ArrayFiltroAutore(Z)%></option>
<%
   Next
%>
             </select>
                             <%=Testo_TabellaArticoli_FiltroANDOR%>&nbsp;
<%
  End If
%>
                             <%=Testo_TabellaArticoli_FiltroPerSezioni%>&nbsp;
                             <select name="s" size="1">
                               <option 
value=""><%=Testo_TabellaArticoli_FiltroPerSezioniNessunaScelta%></option>
<%
  For Z = 1 To UBound(ArrayFiltroSezione)
%>
              <option <%If Request.QueryString("s") = ArrayFiltroSezione(Z) 
Then Response.Write "selected" End If%> 
value="<%=ArrayFiltroSezione(Z)%>"><%=ArrayFiltroSezione(Z)%></option>
<%
  Next
%>
             </select>
             <input type="submit" name="cerca" 
value="<%=Testo_Modulo_PulsanteRicerca%>">
            </form>
           </td>
          </tr>
<%
 Else
%>
          <tr>
           <td width="450" bgcolor="#FBFBFB" style="PADDING-RIGHT: 7px; 
PADDING-LEFT: 7px; PADDING-BOTTOM: 7px; PADDING-TOP: 7px">
            <%=Testo_TabellaArticoli_ErroreNessunArticoloTrovato%>, <a 
href="articoli_elenco.asp"><%=Testo_LinkTornaElenco%></a>.
           </td>
          </tr>
<%
 End If
%>
         </table>
        </td>
        <td width="150" valign="top" style="PADDING-RIGHT: 10px; 
PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px">
         <!--#include file="inc_destra.asp"-->
        </td>
       </tr>
      </table>
     </td>
    </tr>
    <tr>
     <td width="700" bgcolor="<%=Colore_Sfondo_Footer%>">
      <!--#include file="inc_footer.asp"-->
     </td>
    </tr>
   </table>
  </td>
 </tr>
</table>
</body>
</html>
<%
 Set RSArticoli = Nothing
 Conn.Close
 Set Conn = Nothing
%>