Ho fatto questa pagina asp cercando dal forum...
http://forum.html.it/forum/showthrea...e&pagenumber=2
devo prendere i risultati e metterli in una pagina (al max10/15 per pagina) e fare gli indicatori di pagina per scorrere. (tipo pagina << 1-2-3-4-5 >> )
Questo è il codice della pagina alla quale viene passato il campo key per la ricerca:
<% DIM keyok
IF request.querystring("key") <> "" THEN
keyok = request.querystring("key")
ELSE
keyok = "1"
END IF %>
<%
'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 10
%>
<%
Dim Ricerca_news_cronaca
Dim Ricerca_news_cronaca_numRows
Set Ricerca_news_cronaca = Server.CreateObject("ADODB.Recordset")
Ricerca_news_cronaca.ActiveConnection = stringaconnessione
Ricerca_news_cronaca.Source = "SELECT * FROM dbo.VISTA_TBL_NOTIZIE_AG_RN WHERE (titolo LIKE '%" + Replace(keyok, "'", "''") + "%' OR descrizione LIKE '%" + Replace(keyok, "'", "''") + "%') ORDER BY data DESC "
Ricerca_news_cronaca.CursorType = 0
Ricerca_news_cronaca.CursorLocation = 2
Ricerca_news_cronaca.LockType = 1
Ricerca_news_cronaca.Open()
Ricerca_news_cronaca_numRows = 0
%>
<%
'imposto la dimensione della pagina
Ricerca_news_cronaca.PageSize = perpage
'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = (Ricerca_news_cronaca.PageCount)
End if
%>
<%
' mi sposto all'ultima pagina
Ricerca_news_cronaca.AbsolutePage = page
%>
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr>
<td>[img]../images/inc_news_searchresult/inc_news_searchresult_r1_c1.gif[/img]</td>
<td>[img]../images/inc_news_searchresult/inc_news_searchresult_r1_c2.gif[/img]</td>
<td>[img]../images/inc_news_searchresult/inc_news_searchresult_r1_c3.gif[/img]</td>
<td>[img]../images/inc_news_searchresult/inc_news_searchresult_r1_c20.gif[/img]</td>
</tr>
<tr>
<td background="../images/inc_news_searchresult/inc_news_searchresult_r2_c1.gif"></td>
<td colspan="2" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="3" cellpadding="0">
<tr>
<td>
<% while not Ricerca_news_cronaca.eof %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td nowrap><font color="#FF6600"><%=(Ricerca_news_cronaca.Fields.It em("DATA").Value)%></font></td>
<td width="100%"><div align="left"><font color="#FF6600">-
Fonte
<% IF Ricerca_news_cronaca.Fields.Item("PROVENIENZA").Va lue = "r" THEN response.write("Redazione ") Else response.write("Redazione ") END IF%>
</font></div>
</td>
</tr>
<tr>
<td colspan="2"><font color="#2d4b9b"><%=(Ricerca_news_cronaca.Fields.It em("TITOLO").Value)%></font></td>
</tr>
<tr>
<td colspan="2"><div align="justify"> <a href="newsdetails.asp?id=<%=(Ricerca_news_cronaca. fields.item("id").value)%>&fonte=<%=(Ricerca_news_ cronaca.fields.item("provenienza").value)%>">
<% response.write left ((Ricerca_news_cronaca.Fields.Item("DESCRIZIONE"). Value),190)%>
...</a>
</div>
</td>
</tr>
<tr>
<td colspan="2"><div align="center">
<% If Ricerca_news_cronaca.EOF And Ricerca_news_cronaca.BOF Then %>
Nessuna corrispondenza trovata.
Provare a modificare
il testo della ricerca.
<% End If %>
</div></td>
</tr>
</table>
<%
Ricerca_news_cronaca.movenext
wend
%>
<%
'scrivo i numeri delle pagine
Response.Write "
Pagine: "
For pag= 1 to Ricerca_news_cronaca.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write ""
Response.Write "<A href='../news/searchresult.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Response.Write ""
else
'normale per le altre pagine
Response.Write "<A href='../news/searchresult.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
end if
Next
Response.Write "</P>"
%>
</td>
</tr>
</table></td>
<td background="../images/inc_news_searchresult/inc_news_searchresult_r2_c20.gif"></td>
</tr>
<tr>
<td>[img]../images/inc_news_searchresult/inc_news_searchresult_r3_c1.gif[/img]</td>
<td colspan="2">[img]../images/inc_news_searchresult/inc_news_searchresult_r3_c2.gif[/img]</td>
<td>[img]../images/inc_news_searchresult/inc_news_searchresult_r3_c20.gif[/img]</td>
</tr>
</table>
<%=page%>
<%
Ricerca_news_cronaca.Close()
Set Ricerca_news_cronaca = Nothing
%>
Mi torna il seguante errore quando testo la pagina
ADODB.Recordset error '800a0bb9'
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
..news/inc_news_searchresult.asp, line 41
Premetto che la pagina di ricerca funziona bene senza il codice in piu per la visualizzazione in pagine (ovviamente ho tolto l'area ripetuta per mostrare tutti i record)
Se qualcuno ha idee....grazie!!!
Rispondi quotando
