ciao a tutti,
come faccio ad evidenziare la pagina in cui sono?

codice:
<%@LANGUAGE=VBScript%>
<%
' Define variables
dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter

' DB connection
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
  sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & Server.MapPath("cddatabase.mdb") & ";" & _
  "Persist Security Info=True"
Conn.Open(sConnection)

' records per page
recordsonpage = 10

' count all records
allrecords = 0
set rs = conn.Execute("SELECT * FROM cds")
do until rs.EOF
  allrecords = allrecords + 1
  rs.movenext
loop

' if offset is zero then the first page will be loaded
offset = request.querystring("offset")
if offset = 0 OR offset = "" then
  requestrecords = 0
else
  requestrecords = requestrecords + offset
end if

' opens database
set rs = conn.Execute("SELECT * FROM cds ORDER BY cdid")

' reads first records (offset) without showing them (can't find another solution!)
hiddenrecords = requestrecords
do until hiddenrecords = 0 OR rs.EOF
  hiddenrecords = hiddenrecords - 1
  rs.movenext
  if rs.EOF then
    lastrecord = 1
  end if
loop
%>

<html>
 <head>
  <title>CD Database</title>
  <meta http-equiv="author" content="Tranzity">
 </head>
<body>

<table cellspacing="2" cellpadding="2" border="1" width="400">

<%
' prints records in the table
showrecords = recordsonpage
recordcounter = requestrecords
do until showrecords = 0 OR rs.EOF
recordcounter = recordcounter + 1
%>

 <tr>
  <td><% = recordcounter %></td>
  <td><% = rs("cdid") %></td>
  <td><% = rs("title") %></td>
 </tr>

<%
  showrecords = showrecords - 1
  rs.movenext
  if rs.EOF then
    lastrecord = 1
  end if
loop
%>

</table>





<table cellspacing="2" cellpadding="2" border="1" width="400">
 <tr>
  <td><% if requestrecords <> 0 then %>Prev Page<% else %>Prev Page<% end if %></td>
  <td><% if lastrecord <> 1 then %>    Next Page<% else %>Next Page<% end if %></td>
 </tr>
 <tr>
  <td colspan="2">pagelist:
<%
pagelist = 0
pagelistcounter = 0
do until pagelist > allrecords  
  pagelistcounter = pagelistcounter + 1
%>
<% = pagelistcounter %>
<%
  pagelist = pagelist + recordsonpage
loop
%>
  </td>
 </tr>
</table>

<%
' Closes connection
rs.close
Conn.close
%>

</body>
</html>