[ASP] paginazione-risultati-query-grandi-dimensioni

Discussione in 'Classic ASP' iniziata da vatuss, 19 Agosto 2017.

  1. vatuss

    vatuss Nuovo Utente

    Registrato:
    24 Giugno 2009
    Messaggi:
    20
    Mi Piace Ricevuti:
    0
    Punteggio:
    1
    Buonasera Forum sono alle prese con lo script che segue

    https://www.mrwebmaster.it/asp/paginazione-risultati-query-grandi-dimensioni_6803.html

    che desidero implementare nella mia pagina web.

    Le ho tentate tutte, ma non riesco a risolvere questo 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.
    /ricerca/search.asp, riga 119

    Questo il codice che utilizzo per la connessione:

    <%
    'Dim MM_ecommerce_STRING
    MM_ecommerce_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/shop/E-commerce.mdb")
    %>

    Questoil codice della pagina:

    <%'@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
    <!--#include file="Connections/ecommerce.asp" -->
    <%
    ' DEFINISCO LE VARIABILI CHE MI SERVONO PER L'APPLICAZIONE
    Dim MM_ecommerce_STRING, cn, quanti, pag, contatore ' sc = MM_ecommerce_STRING | rs = prodricer

    ' DEFINISCO LA STRINGA DI CONNESSIONE
    ' sc = ""
    ' sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
    ' sc = sc & Server.MapPath("database.mdb")

    Dim prodricer
    Dim prodricer_numRows

    ' IMPOSTO LA CONNESSIONE EDIL RECORDSET
    Set cn = Server.CreateObject("ADODB.Connection")
    Set prodricer = Server.CreateObject("ADODB.Recordset")

    ' APRO LA CONNESSIONE COL DATABASE
    cn.Open MM_ecommerce_STRING

    ' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA
    quanti = 5

    ' RECUPERO IL NUMERO DI PAGINA CORRENTE
    ' E CONTROLLO CHE NON SIA INFERIORE A 1
    pag = Request.QueryString ("pag")
    If IsNumeric(pag) = False Or pag < 1 Then pag = 1

    ' IMPOSTO UN CONTATORE
    contatore = 0

    Set prodricer = Server.CreateObject("ADODB.Recordset")
    prodricer.ActiveConnection = MM_ecommerce_STRING
    prodricer.Source = "SELECT * FROM Prodotti WHERE "&Request.QueryString("campo")&" LIKE '%" + Request.QueryString("cosa") + "%'"

    prodricer.CursorType = 0
    prodricer.CursorLocation = 2
    prodricer.LockType = 1
    prodricer.Open()
    prodricer_numRows = 0
    %>

    <%
    'Dim Repeat1__numRows
    Dim Repeat1__index
    Repeat1__numRows = -1
    Repeat1__index = 0
    prodricer_numRows = prodricer_numRows + Repeat1__numRows
    %>


    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <head>
    <title>E-commerce - Daviduccio.it</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <link href="../CSS/style.css" rel="stylesheet" type="text/css">

    <script language="javascript">
    function svuota() {
    document.form1.cosa.value="";
    }
    </script>
    </head>

    <body>
    <div align="center" class="Stile1">
    <table width="560" border="0">
    <tr>
    <td height="19" bgcolor="#efefef"><div align="right" class="Stile3"><strong>Pagina di ricerca </strong></div></td>
    </tr>
    <tr>
    <td><p>&nbsp;</p>
    <form name="form1" method="get" action="">
    <table border="0" class="Stile3">
    <tr>
    <td>Cerca:</td>
    <td><input name="cosa" type="text" class="Stile3" id="cosa" onFocus="svuota()" value="<%=Request.QueryString("cosa")%>" size="30"></td>
    <td><select name="campo" class="Stile3" id="campo">
    <option value="Nome" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Nome" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nel Nome</option>
    <option value="Descrizione" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Descrizione" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nella Descrizione</option>
    <option value="Marca" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Marca" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nella Marca</option>
    <option value="Classe" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Classe" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nella Categoria</option>
    </select></td>
    <td><input name="Submit" type="submit" class="Stile3" value="Cerca"></td>
    </tr>
    <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    </tr>
    </table>
    </form> </td>
    </tr>
    </table>

    <% If Not prodricer.EOF Or Not prodricer.BOF Then %>
    <table width="575" border="0" class="Stile3">
    <tr bgcolor="#CCCCCC">
    <td>Nome</td>
    <td width="350">Descrizione</td>
    <td>&nbsp;</td>
    <td>Prezzo</td>
    </tr>
    <tr>
    <td>&nbsp;</td>
    <td width="350">&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    </tr>
    <%
    While ((Repeat1__numRows <> 0) AND (NOT prodricer.EOF))
    %>

    <%
    ' EFFETTUO MATERIALMENTE LA PAGINAZIONE
    prodricer.PageSize = quanti
    prodricer.AbsolutePage = pag

    ' ESEGUO IL CICLO
    While prodricer.EOF = False And contatore < quanti
    %>

    <tr bgcolor="<%
    If (Repeat1__numRows Mod 2) Then
    Response.Write("#E0DFE3")
    Else
    Response.Write("#FFFFFF")
    End IF
    %>">

    <td><div align="left"><a href="../Lista/default.asp?IDpr=<%=(prodricer.Fields.Item("ID").Value)%>&fcampo=Marca&fcosa=<%=(prodricer.Fields.Item("Marca").Value)%>&cosa=<%=Request.QueryString("cosa")%>&campo=<%=Request.QueryString("campo")%>"><strong><%=(prodricer.Fields.Item("Nome").Value)%></strong></a></div></td>

    <td width="350"><div align="left"><%=mid((prodricer.Fields.Item("Descrizione").Value),1,50)%></div></td>

    <td><%=(prodricer.Fields.Item("Marca"))%></td>

    <td><div align="left"><%=formatcurrency((prodricer.Fields.Item("Prezzo").Value))%></div></td>

    </tr>

    <%
    Repeat1__index=Repeat1__index+1
    Repeat1__numRows=Repeat1__numRows-1
    prodricer.MoveNext()
    Wend
    %>

    </table><%
    prodricer.MoveNext

    ' INCREMENTO IL VALORE DEL CONTATORE
    contatore = contatore + 1
    Wend
    %>

    <% End If ' end Not prodricer.EOF Or NOT prodricer.BOF %>

    </div>
    </body>
    </html>

    <%
    prodricer.Close()
    Set prodricer = Nothing
    %>

    <%
    ' UN PO DI PULIZIA...
    ' rs.Close
    ' Set rs = Nothing
    cn.Close
    Set cn = Nothing
    %>

    <p align="center">
    <%If pag > 1 Then%>
    <a href="test.asp?pag=<%=pag-1%>">Indietro</a>
    <%End If%>

    <%
    Dim x
    x = 1
    For x = 1 To prodricer.PageCount
    If CInt(pag) <> x Then
    %>
    [<a href="test.asp?pag=<%=x%>"><%=x%></a>]
    <%
    Else
    %>
    [<a href="test.asp?pag=<%=x%>"><b><%=x%></b></a>]
    <%
    End If
    Next
    %>

    <%If prodricer.EOF = False Then%>
    <a href="test.asp?pag=<%=pag+1%>">Avanti</a>
    <%End If%>
    </p>


    Confido nel vostro aiuto, l'errore è quì:
    prodricer.AbsolutePage = pag

    grazie.

    ps lo script dell'ecomemerce è sempre su questo sito: DAVIDUCCIO ECOMMERCE
     
  2. Paolo69

    Paolo69 Moderatore Membro dello Staff MOD

    Registrato:
    18 Febbraio 2010
    Messaggi:
    510
    Mi Piace Ricevuti:
    12
    Punteggio:
    18
    Sesso:
    Maschio
    Occupazione:
    Administrator
    Località:
    Italy
    Home Page:
  3. vatuss

    vatuss Nuovo Utente

    Registrato:
    24 Giugno 2009
    Messaggi:
    20
    Mi Piace Ricevuti:
    0
    Punteggio:
    1
  4. vatuss

    vatuss Nuovo Utente

    Registrato:
    24 Giugno 2009
    Messaggi:
    20
    Mi Piace Ricevuti:
    0
    Punteggio:
    1
    Paolo69
    forse sono sulla buona strada

    Codice:
    <%'@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
    <!--#include file="Connections/ecommerce.asp" -->
    <%
        ' DEFINISCO LE VARIABILI CHE MI SERVONO PER L'APPLICAZIONE
        Dim sc, cn, rs, quanti, pag, contatore, MM_ecommerce_STRING
        
            ' DEFINISCO LA STRINGA DI CONNESSIONE
        'sc = ""
        'sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
        'sc = sc & Server.MapPath("database.mdb")
        
            ' IMPOSTO LA CONNESSIONE EDIL RECORDSET
        Set cn = Server.CreateObject("ADODB.Connection")
        ' Set rs = Server.CreateObject("ADODB.Recordset")
    %>
    <%
        ' APRO LA CONNESSIONE COL DATABASE
        cn.Open MM_ecommerce_STRING
    
        ' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA
        quanti = 5
        
            ' RECUPERO IL NUMERO DI PAGINA CORRENTE
        ' E CONTROLLO CHE NON SIA INFERIORE A 1
        pag = Request.QueryString("pag")
        If IsNumeric(pag) = False Or pag < 1 Then pag = 1
    
        ' IMPOSTO UN CONTATORE
        contatore = 0
    %>
    <%
    
    
    Set prodricer = Server.CreateObject("ADODB.Recordset")
    prodricer.ActiveConnection = MM_ecommerce_STRING
    prodricer.Source = "SELECT * FROM Prodotti WHERE "&Request.QueryString("campo")&" LIKE '%" + Request.QueryString("cosa") + "%'"& cn, 1
    prodricer.CursorType = 0
    prodricer.CursorLocation = 2
    prodricer.LockType = 1
    prodricer.Open()
    
    prodricer_numRows = 0
    %>
    <%
    
    
    Repeat1__numRows = -1
    Repeat1__index = 0
    prodricer_numRows = prodricer_numRows + Repeat1__numRows
    %>
    <%
        ' APRO IL RECORDSET
        ' rs.Open "SELECT nome FROM utenti ORDER BY nome ASC", cn, 1
        ' EFFETTUO MATERIALMENTE LA PAGINAZIONE
        prodricer.PageSize = quanti
        prodricer.AbsolutePage = pag
        ' ESEGUO IL CICLO
        While prodricer.EOF = False And contatore < quanti
    %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <head>
    <title>E-commerce - Daviduccio.it</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <link href="../CSS/style.css" rel="stylesheet" type="text/css">
    <script language="javascript">
    function svuota() {
    document.form1.cosa.value="";
    }
    </script>
    </head>
    
    <body>
    <table width="0%" border="0">
      <tr>
        <td><div align="center" class="Stile1">
          <table width="560" border="0">
            <tr>
              <td height="19" bgcolor="#efefef"><div align="right" class="Stile3"><strong>Pagina di ricerca </strong></div></td>
            </tr>
            <tr>
              <td><p>&nbsp;</p>
                  <form name="form1" method="get" action="">
                    <table border="0" class="Stile3">
                      <tr>
                        <td>Cerca:</td>
                        <td><input name="cosa" type="text" class="Stile3" id="cosa" onFocus="svuota()" value="<%=Request.QueryString("cosa")%>" size="30"></td>
                        <td><select name="campo" class="Stile3" id="campo">
                            <option value="Nome" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Nome" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nel Nome</option>
                            <option value="Descrizione" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Descrizione" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nella Descrizione</option>
                            <option value="Marca" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Marca" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nella Marca</option>
                            <option value="Classe" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Classe" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nella Categoria</option>
                        </select></td>
                        <td><input name="Submit" type="submit" class="Stile3" value="Cerca"></td>
                      </tr>
                      <tr>
                        <td>&nbsp;</td>
                        <td>&nbsp;</td>
                        <td>&nbsp;</td>
                        <td>&nbsp;</td>
                      </tr>
                    </table>
                    <input name="az" type="hidden" id="az" value="ricerca">
                  </form></td>
            </tr>
          </table>
          <% If Not prodricer.EOF Or Not prodricer.BOF Then %>
          <table width="575" border="0" class="Stile3">
            <tr bgcolor="#CCCCCC">
              <td>Nome</td>
              <td width="350">Descrizione</td>
              <td>Prezzo</td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td width="350">&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <%
    While ((Repeat1__numRows <> 0) AND (NOT prodricer.EOF))
    %>
            <tr bgcolor="<%
    If (Repeat1__numRows Mod 2) Then
        Response.Write("#E0DFE3")
    Else
        Response.Write("#FFFFFF")
    End IF
    %>">
              <td><div align="left"><a href="?az=prod&IDpr=<%=(prodricer.Fields.Item("ID").Value)%>&fcampo=Marca&fcosa=<%=(prodricer.Fields.Item("Marca").Value)%>&cosa=<%=Request.QueryString("cosa")%>&campo=<%=Request.QueryString("campo")%>"><strong><%=(prodricer.Fields.Item("Nome").Value)%></strong></a></div></td>
              <td width="350"><div align="left"><%
              des=(prodricer.Fields.Item("Descrizione").Value)
              if len(des) > 50 then
              response.Write(mid(des,1,50)&"...")
              else
              response.Write(des)
              end if%></div></td>
              <td><div align="left"><%=formatcurrency((prodricer.Fields.Item("Prezzo").Value))%></div></td>
            </tr>
            <%
      Repeat1__index=Repeat1__index+1
      Repeat1__numRows=Repeat1__numRows-1
      prodricer.MoveNext()
            ' INCREMENTO IL VALORE DEL CONTATORE
            contatore = contatore + 1
    
    Wend
    %>
          </table>
          <% End If ' end Not prodricer.EOF Or NOT prodricer.BOF %>
        </div></td>
      </tr>
    </table>
    </body>
    </html>
    <%
    prodricer.Close()
    Set prodricer = Nothing
    %>
    <%
        ' UN PO DI PULIZIA...
        'rs.Close
        'Set rs = Nothing
        cn.Close
        Set cn = Nothing
    %>
    <%
        Wend
    %>
    ho questo errore
    Codice:
    Errore di compilazione di Microsoft VBScript error '800a0401'
    
    Prevista fine istruzione
    
    /ricerca/search.asp, riga 36
    prodricer.Source = "SELECT * FROM Prodotti WHERE "&Request.QueryString("campo")&" LIKE '%" + Request.QueryString("cosa") + "%'"& cn, 1
    -----------------------------------------------------------------------------------------------------------------------------------^
    
    poi dovrebbe andare bene, spero ...
     
  5. vatuss

    vatuss Nuovo Utente

    Registrato:
    24 Giugno 2009
    Messaggi:
    20
    Mi Piace Ricevuti:
    0
    Punteggio:
    1
    Due script presenti sullo stesso sito non possono non funzionare ... accidenti a me.
    Sono stanchissimo ... e non ha cavato un tubo.
    Forse devo cambiare script come mi hai consigliato ma non riesco a ricavare il codice.
    Hai una soluzione Paolo69?
     
  6. vatuss

    vatuss Nuovo Utente

    Registrato:
    24 Giugno 2009
    Messaggi:
    20
    Mi Piace Ricevuti:
    0
    Punteggio:
    1
    Buongiorno forum,
    allo scopo di sembrare troppo insistente sulla costruzione della pagina attraverso lo script presente sul vostro sito:

    https://www.mrwebmaster.it/asp/paginazione-risultati-query-grandi-dimensioni_6803.html

    ho proceduto, anche se non avevo dubbi, a riprodurre fedelmente l'esempio e tutto torna come un orologio svizzero.
    A questo punto mi accingo a sostituire le porzioni di codice che hanno i miei input nel caso reale.

    Riprendendo il codice dello script:
    https://www.mrwebmaster.it/script/daviduccio-commerce_2931.html

    nella cartella Ricerca si trova il file search.asp,nelle mie intenzioni la stessa cosa dovrò realizzarla per home.asp, modifico il codice come segue:

    Codice:
    <%'@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
    <!--#include file="Connections/ecommerce.asp" -->
    <%
        ' DEFINISCO LE VARIABILI CHE MI SERVONO PER L'APPLICAZIONE
        Dim MM_ecommerce_STRING, cn, rs, quanti, pag, contatore
        ' DEFINISCO LA STRINGA DI CONNESSIONE
        ' sc = ""
        ' sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
        ' sc = sc & Server.MapPath("/mdb-database/shop/e-commerce.mdb")
        ' MM_ecommerce_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/shop/E-commerce.mdb") ' la stringa è nell'include
        ' IMPOSTO LA CONNESSIONE EDIL RECORDSET
        Set cn = Server.CreateObject("ADODB.Connection")
        Set rs = Server.CreateObject("ADODB.Recordset")    ' nel mio caso prodricer? credo di si!
        ' APRO LA CONNESSIONE COL DATABASE
        cn.Open MM_ecommerce_STRING
        ' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA
        quanti = 5
        ' RECUPERO IL NUMERO DI PAGINA CORRENTE
        ' E CONTROLLO CHE NON SIA INFERIORE A 1
        pag = Request.QueryString("pag")
        If IsNumeric(pag) = False Or pag < 1 Then pag = 1
        ' IMPOSTO UN CONTATORE
        contatore = 0
    %>
    <html>
    <head>
    <title>Paginazione dei risultati di query molto lunghe in ASP</title>
    <style>a { color: blue; }</style>
    <table align="center" width="300" border="1">
    <%
    Set prodricer = Server.CreateObject("ADODB.Recordset")
    prodricer.ActiveConnection = MM_ecommerce_STRING
    prodricer.Source = "SELECT * FROM Prodotti WHERE "&Request.QueryString("campo")&" LIKE '%" + Request.QueryString("cosa") + "%'"
    prodricer.CursorType = 0
    prodricer.CursorLocation = 2
    prodricer.LockType = 1
    prodricer.Open()
    
    prodricer_numRows = 0
    %>
    <%
    Repeat1__numRows = -1
    Repeat1__index = 0
    prodricer_numRows = prodricer_numRows + Repeat1__numRows
    %>
    <%
        ' APRO IL RECORDSET
        ' rs.Open "SELECT * FROM Prodotti WHERE "&Request.QueryString("campo")&" LIKE '%" + Request.QueryString("cosa") + "%'"    ' prodricer è già aperto
        
        ' EFFETTUO MATERIALMENTE LA PAGINAZIONE
        prodricer.PageSize = quanti
        prodricer.AbsolutePage = pag
        ' ESEGUO IL CICLO
        While prodricer.EOF = False And contatore < quanti
    %>
    <script language="javascript">
    function svuota() {
    document.form1.cosa.value="";
    }
    </script>
    <table width="0%" border="0">
      <tr>
        <td><div align="center" class="Stile1">
          <table width="560" border="0">
            <tr>
              <td height="19" bgcolor="#efefef"><div align="right" class="Stile3"><strong>Pagina di ricerca </strong></div></td>
            </tr>
            <tr>
              <td><p>&nbsp;</p>
                  <form name="form1" method="get" action="">
                    <table border="0" class="Stile3">
                      <tr>
                        <td>Cerca:</td>
                        <td><input name="cosa" type="text" class="Stile3" id="cosa" onFocus="svuota()" value="<%=Request.QueryString("cosa")%>" size="30"></td>
                        <td><select name="campo" class="Stile3" id="campo">
                            <option value="Nome" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Nome" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nel Nome</option>
                            <option value="Descrizione" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Descrizione" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nella Descrizione</option>
                            <option value="Marca" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Marca" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nella Marca</option>
                            <option value="Classe" <%If (Not isNull(Request.QueryString("campo"))) Then If ("Classe" = CStr(Request.QueryString("campo"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nella Categoria</option>
                        </select></td>
                        <td><input name="Submit" type="submit" class="Stile3" value="Cerca"></td>
                      </tr>
                      <tr>
                        <td>&nbsp;</td>
                        <td>&nbsp;</td>
                        <td>&nbsp;</td>
                        <td>&nbsp;</td>
                      </tr>
                    </table>
                    <input name="az" type="hidden" id="az" value="ricerca">
                  </form></td>
            </tr>
          </table>
          <% If Not prodricer.EOF Or Not prodricer.BOF Then %>
          <table width="575" border="0" class="Stile3">
            <tr bgcolor="#CCCCCC">
              <td>Nome</td>
              <td width="350">Descrizione</td>
              <td>Prezzo</td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td width="350">&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <%
    While ((Repeat1__numRows <> 0) AND (NOT prodricer.EOF))
    %>
            <tr bgcolor="<%
    If (Repeat1__numRows Mod 2) Then
        Response.Write("#E0DFE3")
    Else
        Response.Write("#FFFFFF")
    End IF
    %>">
              <td><div align="left"><a href="?az=prod&IDpr=<%=(prodricer.Fields.Item("ID").Value)%>&fcampo=Marca&fcosa=<%=(prodricer.Fields.Item("Marca").Value)%>&cosa=<%=Request.QueryString("cosa")%>&campo=<%=Request.QueryString("campo")%>"><strong><%=(prodricer.Fields.Item("Nome").Value)%></strong></a></div></td>
              <td width="350"><div align="left"><%
              des=(prodricer.Fields.Item("Descrizione").Value)
              if len(des) > 50 then
              response.Write(mid(des,1,50)&"...")
              else
              response.Write(des)
              end if%></div></td>
              <td><div align="left"><%=formatcurrency((prodricer.Fields.Item("Prezzo").Value))%></div></td>
            </tr>
            <%
      Repeat1__index=Repeat1__index+1
      Repeat1__numRows=Repeat1__numRows-1
      prodricer.MoveNext()
    Wend
    %>
          </table>
          <% End If ' end Not prodricer.EOF Or NOT prodricer.BOF %>
        </div></td>
      </tr>
    </table>
    <%
            rs.MoveNext
            ' INCREMENTO IL VALORE DEL CONTATORE
            contatore = contatore + 1
        Wend
    %>
    </table>
    <p align="center">
    <%If pag > 1 Then%>
        <a href="test.asp?pag=<%=pag-1%>">Indietro</a>
    <%End If%>
    <%
        Dim x
        x = 1
        For x = 1 To rs.PageCount
            If CInt(pag) <> x Then
    %>
                [<a href="test.asp?pag=<%=x%>"><%=x%></a>]
    <%
            Else
    %>
                [<a href="test.asp?pag=<%=x%>"><b><%=x%></b></a>]
    <%
            End If
        Next
    %>
    <%If rs.EOF = False Then%>
        <a href="test.asp?pag=<%=pag+1%>">Avanti</a>
    <%End If%>
    </p>
    </body>
    </html>
    <%
        ' UN PO DI PULIZIA...
        rs.Close
        Set rs = Nothing
        cn.Close
        Set cn = Nothing
    %>
    <%
    prodricer.Close()
    Set prodricer = Nothing
    %>
    
    lancio la pagina in localhost e questa è la risposta:

    Codice:
    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.
    /ricerca/search.asp, riga 66
    

    non riesco a comprendere l'errore.
    Mi affido al vostro aiuto.
     
  7. Paolo69

    Paolo69 Moderatore Membro dello Staff MOD

    Registrato:
    18 Febbraio 2010
    Messaggi:
    510
    Mi Piace Ricevuti:
    12
    Punteggio:
    18
    Sesso:
    Maschio
    Occupazione:
    Administrator
    Località:
    Italy
    Home Page:
    che porzione di codice hai sulla riga 66?
     
  8. vatuss

    vatuss Nuovo Utente

    Registrato:
    24 Giugno 2009
    Messaggi:
    20
    Mi Piace Ricevuti:
    0
    Punteggio:
    1
    grazie Paolo69, questo il codice
    Codice:
        prodricer.AbsolutePage = pag
    
     
  9. vatuss

    vatuss Nuovo Utente

    Registrato:
    24 Giugno 2009
    Messaggi:
    20
    Mi Piace Ricevuti:
    0
    Punteggio:
    1
    proprio nessuna dritta?
     
Sto caricando...

Condividi questa Pagina