Desperado !!!!!!

rico59

Nuovo Utente
11 Nov 2003
6
0
0
65
PER POTER GESTIRE LA PAGINAZIONE DI RECORD DI UN DBASE ACCESS HO UTILIZZATO LE ISTRUZIONI SEGUENT

CONSIDERATO CHE NO HO UN FORM DA CUI RIPRENDERE I DATI CON REQUEST.FORM COME POSSO LUPPARE SULLA STESSA PAGINA ASP ?

L'ISTRUZIONI incriminata che non mi restituisce un cavolo è la seguente -->pagina = REQUEST("pag")

pag la imposto come di seguito riportato purtroppo non funziona


pagina = Request("pag")
....
for pag = 1 to objRS.PageCount
Response.write "<a href= 'test.asp? page=" & pag & "'>"
response.write "pagina" </a>
Next
....
 

jan267

Utente Attivo
6 Mar 2003
1.950
2
38
35
Milano
twitter.com
pagina = Request("pag")
....
for pag = 1 to objRS.PageCount
Response.write "<a href= 'test.asp?page=" & pag & "'>"
response.write pagina & "</a>"
Next
....

prova cosi`...
 

rico59

Nuovo Utente
11 Nov 2003
6
0
0
65
REDESPARADO

tks jan267 niente da fare
il problema a questo punto è di natura teorica
è possibile luppare su un modolo SENZA form e inviare i dati da un ancor <a href ...> e riceverli con il semplice comando Request("xxxx")??
il file asp è questo
<HTML>
<HEAD>
<title>Prova</title>
<%titolo="Prova pagina ASP "%>
</HEAD>
<body>
<%Response.write titolo%>
<% Dim DBConn
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open "Catalogo"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
RecordsPerPagina="5"
page = Request("pag")
if page = "" then page = 1
strSQL = "SELECT * FROM Libri"
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage= page
if objRS.EOF = "True" or objRS.BOF = "True" then
Response.write "<p> nessun risultato </p>"
response.write objRS.EOF
Else
Response.write objRS.EOF
Response.write "<center><table border=1><tr><th>Nome prodotto</th><th>Tipo prodotto</th><th>colore</th> </tr>"
for i=1 to RecordsPerPagina
if Not objRS.EOF then
Response.write("<tr><td>" & objRS.fields("Idscrittore") & "</td>")
response.write("<td>" & objRS.fields("Idlibro") & "</td>")
response.write("<td>" & objRS.fields("Idcategoria") & "</td>")
response.write("<td>" & objRS.fields("titolo") & "</td>")
objRS.MoveNext
End if
Next
response.write ("</table></center>")
End if
response.write "<p><b>pagine;</b> "
For pag = 1 to objRS.PageCount
Response.write "<a href= 'test1.asp? page=" & pag & "'>"
Response.write pag
Response.write "</a>"
Next
Response.write "</p>"
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
%>
</body>
</HTML>
 

jan267

Utente Attivo
6 Mar 2003
1.950
2
38
35
Milano
twitter.com
A te interessa semplicemente avere una paginazione dei record?
O meglio, averli suddivisi in varie pagine?

P.S. non aprire altri 3d per questo argomento! :D
 
Ultima modifica:
Discussioni simili

Discussioni simili