26 messaggi dal 02 agosto 2001
Come faccio a far visualizzare su + pagine un recordset??

3 messaggi dal 04 giugno 2001
<b>mestolo ha scritto:</b>
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote>quote:<hr height=1 noshade id=quote>
Come faccio a far visualizzare su + pagine un recordset??


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

3 messaggi dal 04 giugno 2001
<b>mestolo ha scritto:</b>
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote>quote:<hr height=1 noshade id=quote>
Come faccio a far visualizzare su + pagine un recordset??
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Arial" size=2 id=quote>

OPS! (molti bimbi hanno le mani lunghe!)


Puoi essere più chiaro?

26 messaggi dal 02 agosto 2001
Seplice ho un RecordSet con 35 record e voglio visualizzare i Records suddivisi su + pagine.
Esempio i record dal 1 al 5 sulla pagina 1
dal 6 al 10 sulla pagina 2 .. ..
Come ad esempio questo forum che ha in basso a destra il numero di pagine.

14 messaggi dal 23 agosto 2001
Ti invio l'intero codice asp di una pagina di un mio lavoro, ti invito a non copiarla interamente ma trarne tutti i vantaggi che vuoi, spero di esserti stato utile
&lt;%@ Language=VbScript%&gt;
&lt;!-- #INCLUDE FILE="adovbs.inc" --&gt;
&lt;!-- AUTORE: ALESSANDRO SALVATORE --&gt;
&lt;html&gt;
&lt;head&gt;
&lt;meta http-equiv="Content-Type" content="text/html; charset=windows-1252"&gt;
&lt;meta name="GENERATOR" content="Microsoft FrontPage 4.0"&gt;
&lt;meta name="ProgId" content="FrontPage.Editor.Document"&gt;
&lt;title&gt;---&lt;/title&gt;
&lt;base target="inferiore"&gt;
&lt;/head&gt;

&lt;body topmargin="0" bgcolor="#535353"&gt;

&lt;%
'Mode :
' Mode = 1 se provengo da Catalogo
' Mode = 2 se 'Provengo da Ricerca

Mode = trim(Request( "Mode" ))

if Mode = "1" then
Criterio= trim(request( "Criterio" ))
else

Titolo =Trim(Request( "Titolo" ))
Genere =Trim(Request( "Genere" ))
Regista =Trim(Request( "Regista" ))
Interprete =Trim(Request( "interprete" ))

end if

'-----------------------------------------------------------------------------------------'
' REAlIZZAZIONE: ALESSANDRO SALVATORE , PASQUALE CACCIAPUOTI
'-----------------------------------------------------------------------------------------'
'Mode = 1
dim strConn 'stringa di connessione al database
dim strsql 'stringa di query
dim oCn 'oggetto di connessione
dim rs 'recorset
dim i

strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Ventiquattro.mdb")

set oCn = server.CreateObject("ADODB.Connection")
oCn.Open strconn

strsql = ""
'---------------------------------------------------------------------------------------------'
' Costruzione della stringa di query a seconda da dove provengo
if Mode = "1" then
strsql = "SELECT distinct titolo,Cregista,NRegista,anno,Cattore,NAttore,Genere,interno,Generi.Descrizione FROM CASSETTE INNER JOIN GENERI ON CASSETTE.Genere = Generi.Cod" & _
" WHERE Genere='" & Criterio & "' ORDER BY ANNO DESC"
end if

if Mode = "2" then
strsql = "SELECT distinct titolo,Cregista,NRegista,anno,Cattore,NAttore,Genere,interno,Generi.Descrizione FROM CASSETTE INNER JOIN GENERI ON CASSETTE.Genere = Generi.Cod" & _
" WHERE TITOLO LIKE '" & Titolo & "%' AND GENERE LIKE '" & Genere & "%'" & _
"AND CREGISTA like '" & Regista & "%' AND (CATTORE like '" & Interprete & "%' " & _
" OR CATTRICE LIKE '" & Interprete & "%') ORDER BY ANNO DESC"

end if
'---------------------------------------------------------------------------------------------'
set rs = server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = Ocn
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.PageSize = 3 'tre record per pagina
rs.Open strsql

if rs.EOF then%&gt;
&lt;center&gt;&lt;font face="Verdana" size="1" color="#ffffff"&gt;Siamo spiacenti la sua ricerca non è andata a buon fine!
&lt;p&gt;&lt;a href="Ricerca.asp"&gt;Torna alla ricerca&lt;/a&gt;&lt;/font&gt;&lt;/center&gt;
&lt;%Response.End
end if

pg= trim(request( "pg" )) ' richiedo come parametro la pagina, la prima volta caricata è ""
if pg = "" then pg = 1 ' e quindi la pongo ad 1
if pg = 0 then pg = 1 ' stesso discorso se è 0 la pongo ad 1
if int(pg) &gt; rs.PageCount then pg = 1' se la pagina è maggiore del numero di pagine in corrispondenza a tutti i record
rs.AbsolutePage = pg

%&gt;



&lt;div align="center"&gt;
&lt;center&gt;
&lt;table border="0" cellpadding="0" cellspacing="0" width="740"&gt;
&lt;tr&gt;
&lt;td&gt;
&lt;div align="center"&gt;
&lt;table border="0" cellpadding="0" cellspacing="0" width="740"&gt;
&lt;tr&gt;
&lt;td width="40" height="50" bgcolor="#999999"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" height="50" bgcolor="#999999"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" height="50" bgcolor="#999999"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" height="50" bgcolor="#999999"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" height="50" bgcolor="#999999"&gt;&nbsp;&lt;/td&gt;
&lt;td width="138" height="50" bgcolor="#999999"&gt;&nbsp;&lt;/td&gt;
&lt;td width="162" height="465" valign="top" bgcolor="#C0C0C0" rowspan="11"&gt;
&lt;div align="center"&gt;
&lt;table border="0" cellpadding="0" cellspacing="0" width="100%"&gt;
&lt;tr&gt;
&lt;td width="100%" colspan="2"&gt;&lt;img border="0" src="Images/VHS_TOP10.gif" width="162" height="27"&gt;&lt;/td&gt;
&lt;/tr&gt;

&lt;!-- ROUTINE DEI TOP 10 (qui si fa una select degli ultimi 10 usciti--&gt;
&lt;%
i = 0
for i = 1 to 10
' procedura per l'alternanza del colore la condizione A) ci dice se il numero è pari da un colore altrimenti da un altro colore
'A)
if (i Mod 2) = 0 then color="#C0C0C0" else color="#E5E5E5"

%&gt;
&lt;tr&gt;
&lt;td width="10%" valign="middle" align="center" height="15" bgcolor=&lt;%=Color%&gt;&gt;&lt;img border="0" src="Images/Pallino.gif" width="10" height="10"&gt;&lt;/td&gt;
&lt;td width="90%" valign="middle" height="20" bgcolor=&lt;%=Color%&gt;&gt;&lt;b&gt;&lt;font face="Verdana" size="1" color="#003366"&gt;&lt;%=session("Array")(i)%&gt;&lt;/font&gt;&lt;/b&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;%
next %&gt;

&lt;!-- TESTATA DVD I PIU' VISTI--&gt;
&lt;tr&gt;
&lt;td width="100%" colspan="2"&gt;&lt;img border="0" src="Images/DVD_TOP10.gif" width="162" height="27"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td width="13%" align="center" height="20" bgcolor="#C0C0C0"&gt;&lt;img border="0" src="Images/Pallino.gif" width="10" height="10"&gt;&lt;/td&gt;
&lt;td width="87%" height="20" bgcolor="#C0C0C0"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td width="13%" align="center" height="20" bgcolor="#E5E5E5"&gt;&lt;img border="0" src="Images/Pallino.gif" width="10" height="10"&gt;&lt;/td&gt;
&lt;td width="87%" height="20" bgcolor="#E5E5E5"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td width="13%" align="center" height="20" bgcolor="#C0C0C0"&gt;&lt;img border="0" src="Images/Pallino.gif" width="10" height="10"&gt;&lt;/td&gt;
&lt;td width="87%" height="20" bgcolor="#C0C0C0"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td width="13%" align="center" height="20" bgcolor="#E5E5E5"&gt;&lt;img border="0" src="Images/Pallino.gif" width="10" height="10"&gt;&lt;/td&gt;
&lt;td width="87%" height="20" bgcolor="#E5E5E5"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td width="13%" align="center" height="20"&gt;&lt;/td&gt;
&lt;td width="87%" height="20"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td width="13%" align="center"&gt;&lt;/td&gt;
&lt;td width="87%"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td width="13%" align="center"&gt;&lt;/td&gt;
&lt;td width="87%"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/div&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;

&lt;%

while not rs.EOF and conta &lt; rs.PageSize
conta = conta + 1

%&gt;

&lt;tr&gt;
&lt;td valign="middle" width="21" height="18" bgcolor="#666666" style="border-top: 1 solid #808080"&gt;
&lt;p align="center"&gt;&lt;font face="Verdana" size="2"&gt;&lt;img border="0" src="images/bullet.gif" width="10" height="10"&gt;&lt;/font&gt;&lt;/td&gt;
&lt;td valign="top" width="556" height="18" colspan="2" bgcolor="#666666" style="border-top: 1 solid #808080"&gt;
&lt;p style="margin-left: 3"&gt;&lt;font face="Verdana" size="2" color="#ffffff"&gt;Titolo: &lt;b&gt;&lt;%=rs("Titolo")%&gt;&lt;/b&gt;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height="23" valign="top" width="23"&gt;
&lt;p style="margin-left: 3"&gt;&lt;/td&gt;
&lt;td height="1" valign="top" width="280"&gt;
&lt;p style="margin-left: 3"&gt;&lt;font face="Verdana" size="1" color="#ffffff"&gt;Regista
:
&lt;/font&gt;&lt;b&gt;&lt;font face="Verdana" size="1" color="#ffffff"&gt;&lt;%=rs("NRegista") & " " & rs("Cregista")%&gt; &lt;/font&gt;&lt;font face="Verdana" size="2"&gt;
&lt;/font&gt;&lt;/b&gt;&lt;/td&gt;
&lt;td height="1" valign="top" width="280" style="margin-left: 3"&gt;&lt;font face="Verdana" size="1" color="#ffffff"&gt;Anno
:
&lt;b&gt;&lt;%=rs("Anno")%&gt;&lt;/b&gt;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height="27" valign="top" width="23" style="border-bottom: 1 solid #808080"&gt;
&lt;p style="margin-left: 3"&gt;&nbsp;&lt;/td&gt;
&lt;td height="1" valign="top" width="280" style="border-bottom: 1 solid #808080"&gt;
&lt;p style="margin-left: 3"&gt;&lt;font face="Verdana" size="1" color="#ffffff"&gt;Attore
: &lt;b&gt;&lt;%=rs("nattore") & " " & rs("cattore") %&gt;&lt;/b&gt; &lt;b&gt;
&lt;/b&gt;&lt;/font&gt;&lt;/td&gt;
&lt;td height="1" valign="top" width="280" style="border-bottom: 1 solid #808080"&gt;&lt;font face="Verdana" size="1" color="#ffffff"&gt;&nbsp;Genere
:
&lt;b&gt;&lt;%=rs("Descrizione")%&gt;&lt;/b&gt;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/center&gt;
&lt;tr&gt;
&lt;td valign="top" width="575" colspan="3" height="21" style="border-bottom: 1 solid #808080"&gt;
&lt;p align="right"&gt;&lt;font face="Verdana" size="2"&gt;&nbsp;&lt;/font&gt;&lt;font face="Verdana" size="1" color="#666666"&gt;
&lt;a href="scheda.asp?interno=&lt;%=rs("interno")%&gt;&Mode=&lt;%=Mode%&gt;&pg=&lt;%=pg%&gt;&Criterio=&lt;%=criterio%&gt;&Titolo=&lt;%=Titolo%&gt;&Genere=&lt;%=Genere%&gt;&Regista=&lt;%=Regista%&gt;&Interprete=&lt;%=Interprete%&gt;"&gt;scheda completa&lt;/a&gt;&lt;/font&gt;&lt;/p&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;center&gt;
&lt;% rs.MoveNext
wend %&gt;




&lt;/tr&gt;




&lt;tr&gt;
&lt;td width="40" height="100" bgcolor="#CC9900" style="border-top: 1 solid #535353"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" align="center" height="100" bgcolor="#CC9900" valign="top" style="border-top: 1 solid #535353"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" align="center" height="100" bgcolor="#CC9900" style="border-top: 1 solid #535353"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" align="center" height="100" bgcolor="#CC9900" style="border-top: 1 solid #535353"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" align="center" height="100" bgcolor="#CC9900" style="border-top: 1 solid #535353"&gt;&nbsp;&lt;/td&gt;
&lt;td width="138" align="center" height="100" bgcolor="#CC9900" style="border-top: 1 solid #535353"&gt;&nbsp;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td width="40" height="5" bgcolor="#CC9900"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" align="center" height="5" bgcolor="#CC9900"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" align="center" height="5" bgcolor="#CC9900"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" align="center" height="5" bgcolor="#CC9900"&gt;&nbsp;&lt;/td&gt;
&lt;td width="100" align="center" height="5" bgcolor="#CC9900"&gt;&nbsp;&lt;/td&gt;
&lt;td width="138" align="center" height="5" bgcolor="#CC9900"&gt;&nbsp;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/div&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/center&gt;
&lt;/div&gt;

&lt;/body&gt;

&lt;/html&gt;



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.