I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
franz79
franz79
il 5 giugno 2002 alle 19:59
11 messaggi dal 17 settembre 2001
Scusate tanto. Io ho creato un motorino di ricerca, e volevo paginare il recordset dei risultati. Ho pubblicato il tutto: il motore funzione, i risultati appaiono MA SOLTANTO NELLA PRIMA PAGINA!!!! Cliccando su aventi, infatti, mi appare "NESSUN RECORD TROVATO". Com'è possibile?
Vi prego, ditemi se voi vedete un errore nello script che segue (paginazione.asp):


<%@ LANGUAGE=VBScript%>

<!-- #INCLUDE FILE="adovbs.inc" -->
<%

Dim conn


Dim iPageSize


Dim iPageCount


Dim iPageCurrent


Dim strOrderBy


Dim strSQL


Dim RS


Dim iRecordsShown


iPageSize = 5

If Request.QueryString("page") = "" Then

iPageCurrent = 1

Else

iPageCurrent = CInt(Request.QueryString("page"))

End If

If Request.QueryString("order") = "" Then

strOrderBy = "id"

Else

strOrderBy = Request.QueryString("order")

End If

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

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("link.mdb")

Set RS = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM link WHERE Descrizione LIKE '%" & (request("page")) & "%' ORDER BY " & strOrderBy & " DESC;"

RS.Open sql, conn, adOpenKeyset

RS.PageSize = iPageSize

RS.CacheSize = iPageSize

iPageCount = RS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount

If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then

Response.Write("Nessun record visualizzato")

Else

RS.AbsolutePage = iPageCurrent

iRecordsShown = 0

Do While iRecordsShown < iPageSize And Not RS.EOF

%>

<html>

<head>
<title>Nuova pagina 1</title>
</head>

<body>

<p><% response.write(rs("descrizione")) %><br>

<a href="<% = (rs("link")) %>" target="_blank">

<% = (rs("link")) %></a>

</p>

<%

iRecordsShown = iRecordsShown + 1

RS.MoveNext

Loop

End If

RS.Close

Set RS = Nothing

Conn.Close %>

<%

If iPageCurrent <> 1 Then

%>

<a href="paginazione.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">Indietro</a>

<%

End If

%><br>

<%

If iPageCurrent < iPageCount Then

%>

<a href="paginazione.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">Avanti</a>

<%

End If

%>

Provatelo pure, all'indirizzo
www.scuolepiombino.it/cerca.asp
Come parola di ricerca inserite "sito". Vedrete che, cliccando su "avanti" vi apparirà "nessun risultato trovato". Perché?
Vi prego aiutatemi
Molte grazie
franz79





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.