Desperado !!!!!!

rico59 · 5 Feb 2004

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 · 6 Feb 2004

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 · 6 Feb 2004

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 · 6 Feb 2004

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!

rico59 · 6 Feb 2004

esatto !!

scusa ma ho letto solo dopo le regole del forum!!

Cerca

Cerca

Desperado !!!!!!

rico59

Nuovo Utente

jan267

Utente Attivo

rico59

Nuovo Utente

jan267

Utente Attivo

rico59

Nuovo Utente

Discussioni simili