Ciao a tutti, ho un problema con delle modifiche di una paginazione.

Allora, attualmente mi vengono mostrati in paginazione i campi del database che mi interessano.
Ora vorrei che cliccando su uno dei campi (associazione) mi si rimandi ad una pagina scheda.asp che richiami ulteriori dati aggiuntivi (dell'associazione)

Questo è il codice dove ho anche cercato di fare il link nel punto specifico.
Come creo correttamente il link e come posso impostare la pagina che deve visualizzare i risultati?
Grazie mille


codice:
<%
option explicit

function excess(argValue)
	if not (int(argValue) = argValue) then argValue = int(argValue)+1	
	excess = argValue
end function


function cleanLong(argValue)
	on error resume next
	if argValue = "" then : cleanLong = clng(0) : else : cleanLong = clng(trim(argValue)) : end if
	if err.number <> 0 then cleanLong = 0
	on error goto 0
end function

dim conn, rs, SQL, SQLwhere
Set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/database.mdb") & " ; Persist Security Info = False"

dim wbp_recordPerPage, wbp_totalRecords, wbp_totalPages, wbp_currentRecord, wbp_currentPage, wbp_lastcurrentRecord
dim wbp_isEmpty
dim wbp_baseQuerystring, wbp_basePage
dim argPage

'*** EDIT *** impostare quanti record in ogni pagina
wbp_recordPerPage = 2

argPage = cleanLong(request.QueryString("page"))
if argPage < 1 then argPage = 1

'* 1. selezionare SOLO gli id
'* 2. applicare in questa query gli eventuali filtri di selezione
SQL = "SELECT id FROM tabella_ricerca"
rs.open SQL, Conn, 3, 3

'* impostazione variabili di navigazione (pagine)
wbp_totalRecords = cint(rs.recordcount)
wbp_totalPages = excess(wbp_totalRecords / wbp_recordPerPage)
wbp_currentRecord = ((argPage - 1) * wbp_recordPerPage) + 1
if wbp_currentRecord > wbp_totalRecords then
	wbp_currentPage = 1
	wbp_currentRecord = ((wbp_currentPage - 1) * wbp_recordPerPage) + 1
else
	wbp_currentPage = argPage
end if
wbp_lastcurrentRecord = wbp_currentRecord + wbp_recordPerPage - 1
if wbp_lastcurrentRecord > wbp_totalRecords then wbp_lastcurrentRecord = wbp_totalRecords

SQLwhere = ""

wbp_isEmpty = true

if not rs.eof then
	'* spostamento nel recordset
	rs.pagesize = wbp_recordPerPage
	rs.absolutepage = wbp_currentPage

	wbp_isEmpty = false
	
	'* creazione seconda query (recordset completo, solo per gli ID selezionati nella prima query)
	dim ii
	for ii=0 to wbp_recordPerPage-1
		'*** EDIT *** al posto di ID mettere il nome del campo ID della vostra tabella
		SQLwhere = SQLwhere & " or id = " & rs("id") & ""
		rs.movenext
		if rs.eof then exit for
	next
	set ii = nothing
	rs.close
	SQLwhere = right(SQLwhere,len(SQLwhere)-3)
end if

if not wbp_isEmpty then

	'*** EDIT *** selezionare TUTTI i campi necessari
	SQL = "SELECT id, fuoriprovincia, denominazione, associazione, indirizzo, SitoInternet, Telefono, DisciplinePraticate, logo FROM tabella_ricerca WHERE " & SQLwhere & " ORDER BY associazione ASC"

	set rs = conn.execute(SQL)
	while not rs.eof
		'*** EDIT *** STAMPA DEL RECORDSET (da personalizzare secondo le esigenze)

Response.Write "<table border='1' width='100%' cellspacing='0' cellpadding='0'>" & "<tr>" 
Response.Write "<td width='70%' valign='top'>" & "<p align='center'>" 
Response.Write "<p align='center'>" & "<font face='verdana' size='2' color='#FF0000'>" & rs("FuoriProvincia") &"    " & "</font>"
Response.Write rs("denominazione")  &"    " & "" & "<font face='Verdana' color='#008080'>" &  rs("associazione") & "</font>" & "</p>" & ""
Response.Write "<p align='center'>" & "<font face='verdana' size='2'>" & rs("indirizzo")
Response.Write "<p align='left'>" & "" &"<font face='verdana' size='2'>" & "Discipline Praticate:" & "" & rs("DisciplinePraticate") 
Response.Write "<p align='center'>" & "<font face='verdana'>"
Response.Write ""& rs("SitoInternet") & ""
'Response.Write ""& rs("E-Mail") & ""
Response.Write "<p align='center'>" & "<font face='verdana'>" & rs("Telefono")
Response.Write "</td>"

' Seconda cella
Response.Write  "<td align='center'>"
Response.Write "[img][/img]"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
               









		rs.movenext
	wend
	%>
	<div class="page_navigator">
	<span class="page_view"><%
	
		'*** EDIT *** pagina a cui puntare
		wbp_basePage = "index.asp"
		'*** EDIT *** querystring aggiuntiva ( es: "&sort=date" )
		wbp_baseQuerystring = ""
		
		%></span>
<span class="topic-pages"><%
		if wbp_totalPages > 1 then
			%><span class="page_pagesnav"><%=wbp_totalPages%> pagine [ <%
			if wbp_currentPage > 1 then
				if wbp_currentPage > 2 then
					%>&lt;&lt; <%
				end if
			%>&lt; <%
				if wbp_currentPage - 3 > 0 then%><%=wbp_currentPage-3%> <% end if
				if wbp_currentPage - 2 > 0 then%><%=wbp_currentPage-2%> <% end if
				if wbp_currentPage - 1 > 0 then%><%=wbp_currentPage-1%> <% end if
			end if
			%><%=wbp_currentPage%> <%
			if wbp_currentPage < wbp_totalPages then
				if wbp_currentPage + 1 < wbp_totalPages + 1 then%><%=wbp_currentPage+1%> <% end if
				if wbp_currentPage + 2 < wbp_totalPages + 1 then%><%=wbp_currentPage+2%> <% end if
				if wbp_currentPage + 3 < wbp_totalPages + 1 then%><%=wbp_currentPage+3%> <% end if
				%>&gt; <%
				if wbp_currentPage < wbp_totalPages - 1 then
					%>&gt;&gt; <% 
				end if
			end if
		%> ]</span><%
		else
		%>1 pagina<%
		end if%>
	</span>
	</div><%
	
else
	'*** EDIT *** se il recordset è vuoto...
	response.write "nessun record"
	
end if


%>