Response.Redirect "elenco.asp"

questo redirect mi fa andare direttamente alla pagina evidenziata


questa è la pagina


<%
Dim strSQL, rec, boolFound, intPageNum, intNumRows, intCount, intLinks, intPagina
Const RECORDSPERPAGE = 100

strSQL = "SELECT * FROM utenti ORDER BY password DESC"

Set rec = Server.CreateObject("ADODB.Recordset")
rec.CursorLocation = adUseClient
rec.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
rec.PageSize = RECORDSPERPAGE

If ( Request("pn") <> "" ) Then
intPageNum = CInt(Request("pn"))
Else
intPageNum = 1
End If

'Conteggio delle righe
intNumRows = rec.RecordCount

If (intNumRows <> 0) Then
rec.AbsolutePage = intPageNum
'Esposizione dati
For intCount = 1 To rec.PageSize %>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr width="660">
<td width="50" class="normale"><div align="center">"><font color="#000000">Modifica</font></div></td>
<td width="120" class="normale"><%=rec("nome")%></td>
<td width="120" class="normale"><%=rec("cognome")%></td>
<td width="100" class="normale"><%=rec("password")%></td>
<td width="60" class="normale"><%=rec("accesso")%></td>
<td width="80" class="normale"><%=rec("docente")%></td>
<td width="80" class="normale"><%=rec("iscrizione")%></td>
<td width="50" class="normale"><%=rec("nfilescaricati")%></td>
</tr>
</table>
<% rec.MoveNext
If ( rec.EOF ) Then Exit For
Next
End If %>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr width="400">
<td width="500" height="9" class="normale"></td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td align="center"><% 'Navigazione sulle pagine
If ( intNumRows > 0 ) Then

Response.Write("<font size='1' face='Arial'>")
Response.Write "Pagina " & intPageNum & " di " & rec.PageCount & "
"

'Pagina precedente
If ( intPageNum > 1 ) Then
Response.Write "&laquo;"
End If


'Numeri di pagina
For intLinks = 1 To rec.PageCount
intPagina = intPagina + 1
If intPagina > 20 Then
intPagina = 1
Response.Write("
")
End If
If intLinks = intPageNum Then
Response.Write "<font color='black'>" & intLinks & "</font>"
Else
Response.Write "" & intLinks & ""
End If
Next

'Pagina successiva
If ( intPageNum < rec.PageCount ) Then
Response.Write "&raquo;"
End If

Response.Write("</font>")

'Fine navigazione sulle pagine

End If


'Chiusura recordset
rec.Close
Set rec = Nothing
%>


in questa pag. si evidenziano 100 ris. x pag.

dove si vuole arrivare.....

invece di tornare grazie al redirect alla prima pagina dell'elenco vorrei ritornare alla pagina riferita a quell'id preciso

come posso modificare il redirect?

fatemi sapere grazie saluti