Individuare la pagina corrente

[Rob2002]

Buogiorno,
ho trovato questo semplice script per la paginazione dei record.

<% 
RecordsPerPagina = 5 
page = Request("page") 
if page="" then page=1 
' STRINGA SQL 
strRicerca = Request("ricerca") 
SQL = "SELECT * FROM Ricerca WHERE Descrizione LIKE '%" & strRicerca & "%'" 
'apri recordset 
' paginazione 
rs.PageSize = RecordsPerPagina 
rs.AbsolutePage = page 
If rs.Eof=True or rs.Bof=True then 
  Response.Write "

Nessun risultato trovato</P>" 
Else 
  For i=1 to RecordsPerPagina 
     if Not rs.EOF then 
        'mostra record 
        rs.MoveNext 
     end if 
  Next 
End if 
%>



' script di fine pagina
<% 
Response.Write "

Pagine: " 
For pag=1 to rs.PageCount 
Response.Write "<A href='pagina.asp?page=" & pag 
Response.Write "&" & Server.UrlEncode(strRicerca) 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Next 
Response.Write "</P>" 
%>

Non so però come identificare la pagina corrente e renderla di un altro colore o più grande.
Potreste darmi una dritta?
Grazie

[Cream]

la pagina corrente è quella che recuperi con il request

page = Request("page")

mentre per creare i link delle pagine usi un for con la variabile pag che si incrementa.

quindi fai i controlli se sono uguali del tipo:


For pag=1 to rs.PageCount
if pag = page then
response.write pag
else
%><%=pag%><%
end if
Next

[Rob2002]

Grazie Crems
ho provato come da tuo consiglio:

<% 
Response.Write "

Pageina: " 
For pag=1 to rec.PageCount
Response.Write "<A href='test.asp?page=" & pag 
Response.Write "&" & Server.UrlEncode(strRicerca)
Response.write "'>"
if pag = page then 
Response.Write ("<font size='3' face='Verdana, Arial, Helvetica, sans-serif'>") & pag
Response.Write ("</font>")
else
Response.Write pag 
Response.Write "</A> "
end if
Next
Response.Write "</P>" 
%>

il numero della pagina lo intercetto, ma non me lo scrive in bianco come da script. Dove sbaglio?