Impaginare i risultati di un recordset

[snakefrancesco]

Seguendo la guida: http://asp.html.it/script/vedi/884/i...-un-recordset/
ho cercato di adattarla al mio sito però purtroppo qualcosa non va:

<%
page = Request.QueryString("page")
perpage = 45

Set RSa = Server.CreateObject("ADODB.Recordset")
RSa.ActiveConnection = con
sqlString = "select id from console where lcase(nome) = '" & lcase(idx) & "'"
RSa.open sqlString
idr = rsa("id")
ok = -1
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = con
sqlString = "SELECT * from articoli WHERE attivo = " & ok & " AND console = " & idr & " order by articoli.titolo asc"
RS.open sqlString, con, 1, 3
foto = rs("foto11")
if foto = "" or isnull(foto) then
foto = "vuota.jpg"
end if

If page = "" then
page = (rs.PageCount)
End if

Rs.PageSize = perpage
Rs.AbsolutePage = page

For i = 1 to perpage
If Not Rs.EOF then
Response.Write ("<table width=""580""><tr><td width=""60"">[img][/img]</td><td><font size=""2"" face=""Verdana"">" & rs("titolo") & "
Pubblicato il " & rs("data") & "
Letto " & rs("click") & " volte</font></td></tr></table>")
Rs.MoveNext
end if
next

Response.Write "

Pagine:"

For pag= 1 to rs.PageCount
if page = pag then

Response.Write ""
Response.Write "<A href='consoleall2.asp?id=" & idx & "&page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Response.Write ""
else
Response.Write "<A href='consoleall2.asp?id=" & idx & "&page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
end if
Next

Response.Write "</P>"

Rs.Close
Set Rs = Nothing
Con.Close
Set Con = Nothing
%>

Il numero della pagina corrente dovrebbe essere in grassetto invece resta normale, tutto il resto funziona benissimo, dove sbaglio? :master:

[fulviolo58]

Ciao,

se non ho capito male la tua richiesta puoi provare così:

<%
For pag= 1 to rs.PageCount 
    if page = pag then 
        Response.Write("[url=""]" & pag & "[/url]")
    else 
        Response.Write "<A href='consoleall2.asp?id=" & idx & "&page=" & pag 
        Response.write "'>" 
        Response.Write pag 
        Response.Write "</A> " 
    end if 
Next 
%> 

fulvio

[snakefrancesco]

Niente da fare... non riesco proprio a capire dove sia l'errore, sto pensando che forse l'errore stia qui:

-page = Request.QueryString("page")

Il "page" dove lo prende? perchè qui poi dice:

-if page = pag then

Ho provato a non mettere nessun numero finale nell'indirizzo ed ha funzionato perchè:

-If page = "" then
page = (rs.PageCount)
End if

che devo fare?

[cavicchiandrea]

Prova a cambiare questa riga
if page = pag then
con questa:
if Cint(page) = pag then

[snakefrancesco]

Ottimo consiglio, sembra funzionare, in che consiste il Cint(page)?

Grazie a tutti

[cavicchiandrea]

Originariamente inviato da snakefrancesco
Ottimo consiglio, sembra funzionare, in che consiste il Cint(page)?

Grazie a tutti

Converte una variabile stringa in numero (credo)