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
