18 messaggi dal 21 ottobre 2001
il codice è il seguente:
<%

on error resume next
RecordsPerPagina= 5

page = Request("interroga_produttore.asp")
if page="" then page=1
'connessione db
Set objRS = Server.CreateObject("ADODB.Recordset")
'questo perchè la stringa di ricerca arriva da un form incluso in un'altra pagina
strRicerca = Request.Form("Cerca")
strSQL = "SELECT foto,marca,descrizione,lire,euro FROM tbl_Anagrafica_Prodotti WHERE marca LIKE '" &strRicerca & "%'ORDER BY marca"
objRS.Open strSQL,objConn,1,3

'inizia la paginazione del risultato della qry
objRS.PageSize=RecordsPerPagina
objRS.AbsolutePage=page



if objRS.EOF=true or objRS.BOF=True then
Response.Write "<P><center><font face='Arial'size='3' color='white'>Nessun risultato trovato per il termine immesso"&"<font color='red'><b>"&" " &strRicerca& " "&"</b></font>"&"riprova con un altro termine"&"<font></center></P>"

Else
'i valori sono stati trovati
Response.Write "<b><center><font color=white>"&"Sono disponibili i seguenti articoli con il termine immesso:"&"</font>"&"<br>"&"<font color=red>" &strRicerca& "</font>"&":</b></center><br>"

For i=1 to RecordsPerPagina
if Not objRS.EOF then
'mostra i record GLI DO GLI INPUT PER TIRARE FUORI I RECORD DALLA TABELLA
'APRO LA TABELLA IN HTML
%>
<table height="100" height="100" border="0" align="center">
<!--IMPOSTO L'INTESTAZIONE DELLA TABELLA-->
<tr>
<!--'riga dell'immagine-->
<td align="center" bgcolor="#993333"><b><font face="Century Gothic" size="2" color="white">Foto</font></b></td>
<td align="center" bgcolor="#993333"><b><font face="Century Gothic" size="2" color="white">Marca</font></b></td>
<td align="center" bgcolor="#993333"><b><font face="Century Gothic" size="2" color="white">Descrizione</font></b></td>
<td align="center" bgcolor="#993333"><b><font face="Century Gothic" size="2" color="white">Prezzo ITL iva esclusa</font></b></td>
<td align="center" bgcolor="#993333"><b><font face="Century Gothic" size="2" color="white">Prezzo Euro</font></b></td>
</tr>
<tr>
<td bgcolor="#99CCFF" align="center"><img src="<%=images_prodotti/objRS("foto")%>"></td>
<td bgcolor="#FFFF99"><font face="Century Gothic" size="3"><%=objRS("marca")%></font></td>
<td bgcolor="#FFFF99"><font face="Century Gothic" size="3"><%=objRS("descrizione")%></font></td>
<td bgcolor="#FFFF99" align="center"><font face="Century Gothic" size="3"><%=objRS("lire")%></font></td>
<td bgcolor="#FFFF99"><font face="Century Gothic" size="3"><%=objRS("euro")%></font></td>
</tr>
</table>
<%
objRS.MoveNext
end if

Next
'Response.Write
End if

%>

<%
'testo da visualizzare
Response.Write "<center><P><B><font face='Century Gothic' color='white' size='2'>Pagine da Sfogliare:</font></B> "
'inizio il ciclo per contare le pagine che ci sono con quella stringa di ricerca
For pag=1 to objRS.PageCount
Response.Write "<a href='interroga_produttore.asp?pag="&pag
Response.Write "&ricerca="&Server.UrlEncode(strRicerca)&"'>" &_
"<b><font color='white'>"& pag & " | "&"</b></font></a>"

Next
'objRS.Close
'Set objRS = nothing
%>

<!--include file="../connessione/chiudiconndb.asp"-->



Allora il problema è il seguente: impostando il nr di record da tirare su dal db, riesco a farlo per la prima pagina. mi spiego meglio se ci sono 10 record e decido di impaginare 2 alla volta, per la prima pagina questo succede e il contatore mi da anche il nr giusto di pagine che in seguito dovranno essere visualizzate dall'utente. il problema nasce quando vado sulla seconda pagina. Innanzitutto non mi tiene in memoria la stringa di ricerca anche se nella status bar la stringa compare, poi mi tira su dei record che non centrano nulla con sta benedetta stringa e in ultimo tira su per ipotesi 50 pg gli stessi record! MAREMMA BBONA!!!!!
Se qualcuno mi potrebbe dare una mano a capire dove sbaglio gli sarei molto grato
Grazie in anticipo a chi può aiutarmi!!!
Janus

Se porti il valore così strRicerca = Request.Form("Cerca") lo conservi solo nella prima pagina e non nelle altre.Prova a fare queste modifiche:
nella prima pagina (dove sta il form):
<form action="interroga_produttore.asp?page=" method="POST">

Nella 2° pagina( interroga_produttore.asp) modifica:
page = Request("interroga_produttore.asp") cambia in:
page = Request("page")

strRicerca = Request.Form("Cerca") cambia in:
strRicerca = Request("Cerca")

Response.Write "<a href='interroga_produttore.asp?pag="&pag
Response.Write "&ricerca="&Server.UrlEncode(strRicerca)&"'>" &_
"<b><font color='white'>"& pag & " | "&"</b></font></a>" cambia in:
Response.Write "<a href='interroga_produttore.asp?page="&pag
Response.Write "&ricerca="&Server.UrlEncode(strRicerca)&"'>" &_
"<b><font color='white'>"& pag & " | "&"</b></font></a>"

Così dovrebbe andare,fammi sapere.
Ciao da biank








Alberto Biancardo
18 messaggi dal 21 ottobre 2001
Innanzitutto, grazie per la risposta!
Allora questi cambiamenti li ho fatti, e non succede nulla!!!1 MAREMMA BBBONA!. allora la prima pagina di ricerca me la tira su bene, nel senso che nel db mi trova in modo corretti i recordi totali che sono presenti. quando vado a cliccare sulla seconda pagina......maremma......è qui che casca l'asino! Nel senso che dalla seconda in poi mi tira su tutto il database....infatti mi vengono visualizzate 100 pg e +! Se ti può essere d'aiuto nella seconda pagina scompare il termine immesso usato nella stringa di ricerca nel form precedente...Secondo te cosa può essere????? A questo punto inizio a pensare che ci sono casini sulla qry o addirittura come mi hanno posizionato i dati nel db!!!!
Grazie ancora per la risposta
Janus Keen

18 messaggi dal 21 ottobre 2001
ho capito dove era lo sbaglio....10 secondi dopo......che VOLPE che sono...nel campo cerca...a href....avevo messo un altro valore....Grazie e a buon rendere per l'interessamento
Janus Keen

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.