Paginazione database.... ma come si fa???!!!

**max1966** · 18-08-2005, 23:16

Ragazzi, sono nuovo di questo forum vi saluto a tutti e vi chiedo gentilmente di aiutarmi a risolvere questo mio problema:
sono un dilettante allo sbaraglio che a forza di attaccare pezzi di codice carpiti qua e la sulla rete è riuscito a far funzionare un database con i relativi file asp di connessione. Il file motor.asp del quale allego il codice funziona regolarmente e visualizza i dati richiesti ma ho un problema... non riesco a implementare un sistema di impaginazione che mi visualizzi non più di 10 records per volta. Qualcuno mi può aiutare??? Allego il codice del file motor.asp

<HTML>
<HEAD>
<TITLE>miosito</TITLE>
</HEAD>

<BODY BGCOLOR="#FFFFFF"
TEXT="#000099" LINK="#000099"
ALINK="#000099" VLINK="#000099">
<%
modello=request.form("modello")
if modello="" then%>
<center>
..

ATTENZIONE

Il campo modello è obbligatorio
Torna indietro e inserisci parte del nome del modello al quale sei interessato
<% else
rem legge dal form le var titolo,autore, cat ed editrice e rimpiazza eventuali apostrofi
rem contenuti nelle variabili con un doppio apostrofo per non interrompere la stringa sql in seguito
scheda=replace(request.form("scheda"),"'","''")
marca= replace(request.form("marca"),"'","''")
modello= replace(request.form("modello"),"'","''")
anno= replace(request.form("anno"),"'","''")
anno1= replace(request.form("anno1"),"'","''")
anno2= replace(request.form("anno2"),"'","''")
ID= replace(request.form("ID"),"'","''")
cat= replace(request.form("cat"),"'","''")
carburante= replace(request.form("carburante"),"'","''")
if scheda="" then scheda="%"
if marca="" then marca="%"
if cat="tutte" then cat="%"
if carburante="tutte" then carburante="%"
if ID="" then ID="%"
if modello="" then modello="%"
if anno="" then anno="%"
if anno1="" then anno1="%"
if anno2="" then anno2="%"
sql= "select * from tablibri where scheda like '%"&scheda&"%' and cat like '%"&cat&"%' and carburante like '%"&carburante&"%' and marca like '%"&marca&"%' and ID like '%"&ID&"%' and modello like '%"&modello&"%' and anno like '%"&anno&"%' ORDER BY anno"
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open"driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("/mdb-database/auto.mdb")
Set RS=OBJdbConnection.Execute(sql)
response.write ("<center>
Il vostro criterio di selezione è stato:<td> AUTO "&cat&" "&marca&" "&modello&" "&carburante&" dell'anno "&anno&"</td><form method=post action='http://www.autopartner.it/public/annunci/motor.asp'><td><input type='hidden' name='marca' size=9 value='"&marca&"'>..</td><td><input type='hidden' name='modello' size=9 value='"&modello&"'>..</td><td><input type='hidden' name='cat' size=9 value='"&cat&"'>..</td><td><input type='hidden' name='carburante' size=9 value='"&carburante&"'>..</td><td>Cambia l'anno di immatricolazione:..</td><td><select size='1' name='anno' size='20' style='background-color: #ffffff; border-color: #666666'><option>2005</option><option>2004</option><option>2003</option><option>2002</option><option>2001</option><option>2000</option><option>1999</option><option>1998</option><option>1997</option><option>1996</option><option>1995</option><option>1994</option><option>1993</option><option>1992</option><option>1991</option><option>1990</option><option>1989</option><option>1988</option><option>1987</option><option>1986</option><option>1985</option><option>1984</option><option>1983</option><option>1982</option><option>1981</option><option>1980</option></select>..</td><td><input type='submit' name='Aggiorna' value='Nuova ricerca'></td></form>Auto disponibili

<table border=0 WIDTH='95%'><tr><td WIDTH='1%' ALIGN='CENTER' BGCOLOR='#f7f7f7'>Foto</td><td WIDTH='1%' ALIGN='CENTER' BGCOLOR='#f7f7f7'>MARCA</td><td WIDTH='95%' ALIGN='CENTER' BGCOLOR='#f7f7f7'>MODELLO</td><td WIDTH='1' ALIGN='CENTER' BGCOLOR='#f7f7f7'>Immatr.</td><td WIDTH='1%' ALIGN='CENTER' BGCOLOR='#f7f7f7'>Alim.</td><td WIDTH='1%' ALIGN='CENTER' BGCOLOR='#f7f7f7'>Prezzo</td><td WIDTH='1%' ALIGN='CENTE' BGCOLOR='#f7f7f7'>Scheda</td><td WIDTH='1%' ALIGN='CENTER' BGCOLOR='#FFFFFF'></td><td WIDTH='1%' ALIGN='right' BGCOLOR='#FFffff'>[b]Area</td><td WIDTH='1%' ALIGN='left' BGCOLOR='#FFffff'>partner</td></tr>")
i=0
Do while NOT RS.EOF
i=i+1
%>
<TR>
<td BGCOLOR='#f7f7f7' ALIGN='CENTER'>
<% id=rs("id")
scheda=rs("scheda")%><a href="libro.asp?ID=<%=id%>" TARGET="centrale">
[img]<%response.write(RS([/img]" widht=80 height=60 border=0>
</td>
<td BGCOLOR='#f7f7f7' ALIGN='RIGHT'>[b] <%response.write(RS("marca"))
marca=rs("marca")%> </td>
<td BGCOLOR='#f7f7f7'> <%response.write(RS("modello"))
modello=rs("modello")%> </td>
<td BGCOLOR='#f7f7f7' ALIGN='RIGHT'> <%response.write(RS("anno"))
anno=rs("anno")%> </td>
<td BGCOLOR='#f7f7f7' ALIGN='CENTER'> <%response.write(RS("carburante"))
carburante=rs("carburante")%> </td>
<td BGCOLOR='#ffffcc' ALIGN='RIGHT'> <%response.write(RS("prezzo"))
prezzo=rs("prezzo")%> </td>
<td BGCOLOR='#f7f7f7' ALIGN='CENTER'> <% id=rs("id")
scheda=rs("scheda")%>
<a href="libro.asp?ID=<%=id%>">
<%=scheda%></a>
</td>
<form method=post action="libro2.asp?ID=<%=id%>">
<td></td>
<td BGCOLOR='#ededeb'><input type="password" name="partner" size=9></td>
<td BGCOLOR='#ededeb' ALIGN='RIGHT'><input type="submit" name="Aggiorna" value="Entra"></td>
</form>
</TR>
<%
imm=rs("imm")
RS.MoveNext
Loop
RS.Close
OBJdbConnection.Close
end if
%>

</table>
</BODY>
</HTML>

Qualcuno mi aiuti... grazie mille in aticipo!!!!

Discussione: Paginazione database.... ma come si fa???!!!

Strumenti discussione

Ricerca discussione

Visualizza

Visualizzazione discussione

Paginazione database.... ma come si fa???!!!

Permessi di invio