128 messaggi dal 06 settembre 2002
Eccolo qui:
<%

if cerca="" or len(cerca)<3 OR ERRORE=1 then
response.write("La chiave di ricerca è mancante o errata")
else
trova=cerca + " & #filename *.asp or *.htm or *.html or *.doc"

'ORDINO PER RAGGIUNGIBILITA' DISCENDENTE
Q.SortBy = "rank[d]"

'SPECIFICO LE COLONNE DA VISUALIZZARE
Q.Columns = "filename, vpath, rank, characterization"


'SPECIFICO IL CATALOGO
Q.catalog="entiria"

'SPECIFICO IL PARAMETRO DI RICERCA
Q.Query =trova


'CREO UN MASSIMO DI RECORD ESTARIBILI
Q.MaxRecords = 100


'CREO UN OGGETTO RECORDSET ORDINABILE
Set RS = Q.CreateRecordSet("nonsequential")


'INIZIALIZZO NEXTRECORDNUMBER
Nextrecordnumber=request.querystring("Nextrecordnumber")

if nextrecordnumber="" then
Nextrecordnumber=1
end if%>
...
<%
if rs.eof=false then

'LUNGHEZZA PAGINA=10
Pagesize=10
Rs.Pagesize=Pagesize

'ULTIMO RECORD DELLA PAGINA= RECORD CORRENTE + LUNGHEZZA PAGINA -1
LastRecordOnpage=nextrecordNumber+rs.pagesize-1

'PAGINA CORRENTE=PAGINA ASSOLUTA
currentPage=rs.Absolutepage

nr=RS.RECORDCOUNT

'SE I RECORD SONO MINORI DI 10
if nr<lastrecordonpage then
Lastrecordonpage=rs.recordcount
end if%>
<tr>
<TD colspan="3">
<%Response.write "Documenti da " & Nextrecordnumber & " a "& Lastrecordonpage

Response.write" di " & nr
prima=prima+1
%> </TD>
</tr>
<%
'VIENE SETTATA IL NEXTRECORDNUMBER
rs.move((nextrecordnumber)-1)
if nr>=(nextrecordnumber+9) then
fine=(nextrecordnumber+9)
else
fine=nr
end if
FOR I=(nextrecordnumber) TO fine
%>
<tr valign="top" >
<TD > <%=NEXTRECORDNUMBER%></TD>
<TD >
<a href="<%=RS("vPATH")%>"><img src="IMAGES/GO.GIF" border="0" width="23" height="20"></a> </TD>
<TD >
<A HREF="<%=RS("VPATH")%>"><%=RS("filename")%>
</TD>
</tr>
<tr >
<td width="34" height="32" > </td>
<td width="40" height="32" >   </td>
<TD width="565" height="32" valign="top" >
<%=RS("characterization")%>...
</TD>
</tr>
<%
rs.movenext
nextrecordnumber=nextrecordnumber+1
NEXT
%>

<tr>
<td colspan="4" align="center"><%
if nextrecordnumber>11 then %>
<%
precedente=nextrecordnumber-10
trovato=false
for i=1 to 100
precedente=precedente-1
resto=precedente mod 10

if resto=1 then
trovato=true
exit for
else
trovato=false
end if
next

%> <a href="main_ricerca.asp?nextrecordnumber=<%=precedente%>&textfield=<%=cerca%>"><img src="images/precedente.gif" width="85" height="16" border="0"></a>
<%end if%>
      <%
if LastRecordonPage<nr then
%> <a href="main_ricerca.asp?nextrecordnumber=<%=nextrecordnumber%>&textfield=<%=cerca%>"><img src="images/prossimo.gif" border=0 width="73" height="16"></a>
<%end if%>
<%
else%></tr>
<tr>
<td width="34"><%
response.write("Nessun elemento trovato")%>
</tr>
<td width="418" height="2"></td>
<%
end if
rs.close
end if

%>

Questo è stato il primo a darmi problemi, ciò perso la notte! Ora in tutte le pagine che costruisco sono costretta a fare =True altrimenti non ne vuole sapere!!!

Ciao
A parte che ti avevo chiesto un pezzo di codice e non tutto il listato...  , poi mi hai tagliato la parte con l'apertura del recordset e del database...  .

A me sembra molto molto strana la cosa. Non ha assolutamente senso che un IF non entri in un ciclo nè per vero nè per falso... che cavolo di IF è?!?! mah..

Comunque io oogi pom. cerco di dare uno sguardo + approfondito dato che ora non ho a portata i miei attrezzi di lavoro
Ma non ti preoccupare che ti faccio sapere al più presto. Se puoi comunque (magari via e-mail) mandami il codice completo che vedo di darci un'occhiata.

Saluti

Andrea Palmatè
webmaster di:
http://www.sandrotoffi.it

--
Andrea Palmatè
128 messaggi dal 06 settembre 2002
L'unica parte che riguarda il recordset è questa frase
Set RS = Q.CreateRecordSet("nonsequential")

Ho utilizzato index server in questa pagina.
Cmq ti ho postato tutta la pagina.
Grazie )

Questo è quello che ho trovato su un sito. Prova con la prima opzione:

<pre id=code><font face=courier size=2 id=code>
&lt;%

' EXAMPLE 1
' LOOP THROUGH SOME RECORDS
' AND WRITE THEIR VALUES TO THE
' BROWSER. The not RS.EOF MEANS
' NOT YET AT THE END OF FILE

do while not RS.EOF
response.write RS("fieldName")
loop

' EXAMPLE 2

if RS.EOF then
response.write "No records were returned"
else
' DO SOMETHING WITH THE RECORDS
end if

%&gt;
</font id=code></pre id=code>

Comunque la seconda che è quella che utilizzi(amo) tu(tti) è quella che dovrebbe funzionare.. sei proprio sicura che non funziona?

Ciao

Andrea Palmatè
webmaster di:
http://www.sandrotoffi.it

--
Andrea Palmatè
128 messaggi dal 06 settembre 2002
Questo funziona, lo uso sempre
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote>quote:<hr height=1 noshade id=quote>
do while not RS.EOF
response.write RS("fieldName")
loop

<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Arial" size=2 id=quote>

ma questo no
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote>quote:<hr height=1 noshade id=quote>
if RS.EOF then response.write "No records were returned"else
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Arial" size=2 id=quote>

Che mistero!!!

è una questione di versione dei motori di scripting.

mettendo = True è certo che funzioni sempre

--
Ciao! .db

Daniele Bochicchio
<b>Content manager di http://www.aspitalia.com</b>
La più grande community italiana di sviluppatori!

Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
Ah.. eh beh.. che c'era da aspettarsi dalla microsfot...

Fine del Topic..

Andrea Palmatè
webmaster di:
http://www.sandrotoffi.it

--
Andrea Palmatè
128 messaggi dal 06 settembre 2002
Grazie a tutti e due,
ciao )

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.