paginazione

[pablomare]

Mi si apre di default la pagina 3. 1 2 3 4 . Nel db ci sono
22 record e li ho ordinati 7 per pagina.

Vorrei fare apparire di default la pag 1 2 3 4


=========================================
<%

'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 7

'connessione al db
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "provider=microsoft.jet.oledb.4.0; data source="& Server.MapPath("asp/db/pablomare.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
sql =" select * from prodotti ORDER BY prezzo ASC "
Rs.Open sql, Conn, 1, 2

'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = (rs.PageCount)
End if

'imposto la dimensione della pagina
Rs.PageSize = perpage
' mi sposto all'ultima pagina
Rs.AbsolutePage = page
%>


<%
'scrivo i link ai 10 record
For i = 1 to perpage
If Not Rs.EOF then
if Rs("idprodotto") < 7 then
Response.Write "<table width='580' border='0' cellspacing='0' cellpadding='0'><tr> <td colspan='5' > </td></tr><tr>"
Response.Write "<td colspan='5' >[img]../img/icn/pixel.gif[/img]" & Rs("linea") & "</td>"
Response.Write "</tr>"
Response.Write "<tr><td colspan='5' class='tdDottet'> </td></tr>"
Response.Write "<tr bgcolor='#f7f7f7'>"
Response.Write "<td width='1%' >[img] " & Rs("immagine") & " [/img]</td>"
Response.Write "<td width='98' class='tdOffer'>" & Rs("prodotto") & "</td>"
Response.Write "<td width='150' valign='middle' class='tdOffer'>" & Rs("descrizione") & "</td>"
Response.Write "<td width='57' valign='middle' class='tdOffer'>" & Rs("durata") & "</td>"
Response.Write "<td width='95' valign='middle' class='tdOffer'><div align='center'>€ " & Rs("prezzo") & ",00</div></td>"
Response.Write "</tr>"
Response.Write "<tr><td colspan='5' class='tdDottet'> </td> </tr>"
Response.Write "<tr align='right'> <td colspan='5' class='tdOffer'>Dettaglio offerta[img]img/icn/arrow_go.gif[/img]</a></td></tr>"
Response.Write "<tr align='right'><td colspan='5' class='tdfiletto'> </td></tr>"
Response.Write "</table>"
else
Response.Write "<table width='580' border='0' cellspacing='0' cellpadding='0'><tr> <td colspan='5' > </td></tr><tr>"
Response.Write "<td colspan='5' >[img]../img/icn/pixel.gif[/img]" & Rs("linea") & "</td>"
Response.Write "</tr>"
Response.Write "<tr><td colspan='5' class='tdDottet'> </td></tr>"
Response.Write "<tr bgcolor='#f7f7f7'>"
Response.Write "<td width='1%' >[img] " & Rs("immagine") & " [/img]</td>"
Response.Write "<td width='98' class='tdOffer'>" & Rs("prodotto") & "</td>"
Response.Write "<td width='150' valign='middle' class='tdOffer'>" & Rs("descrizione") & "</td>"
Response.Write "<td width='57' valign='middle' class='tdOffer'>" & Rs("durata") & "</td>"
Response.Write "<td width='95' valign='middle' class='tdOffer'><div align='center'>€ " & Rs("prezzo") & ",00</div></td>"
Response.Write "</tr>"
Response.Write "<tr><td colspan='5' class='tdDottet'> </td> </tr>"
Response.Write "<tr align='right'> <td colspan='5' class='tdOffer'>Dettaglio offerta[img]img/icn/arrow_go.gif[/img]</a></td></tr>"
Response.Write "<tr align='right'><td colspan='5' class='tdfiletto'> </td></tr>"
Response.Write "</table>"
end if
Rs.MoveNext
end if
next
%>


<%

'scrivo i numeri delle pagine
Response.Write "<div align='right'>Pagine: "

For pag= 1 to rs.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write ""
Response.Write "<A href='offerte.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Response.Write ""
else
'normale per le altre pagine
Response.Write "<A href='offerte.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
end if
Next

Response.Write "</div>"

rs.close
set rs = nothing
conn.close
set conn = nothing
%>

[santino83]

'imposto la variabile in modo da ottenere LA PRIMA se non ne viene specificata un'altra 
If page = "" then 
page = 1
End if

[pablomare]

Ok, funziona. Però mi rimane bold solo la pagina 1

[santino83]

evidentemente

page = Request.QueryString("page")

non si riempie e rimane sempre a valore 1

[pablomare]

No le pagine compaiono 1 2 3 4 però se vado sulla 2 ad esempio
questa non rimane bold

[maximum]

Quando clicci sulla seconda pagina e questa compare, cosa hai sulla URL?

Posta la URL.

[pablomare]

offerte.asp?page=2

[F84]

prova così

if CStr(page) = CStr(pag) then

[pablomare]

Grazie funziona!

[F84]

questione di tipi di variabili