Si el problema es que tu consulta recupera muchos registros, te recomendaría que usases paginación. Me explico. La paginación es un método para dividir una consuta en páginas con un determinado número de registros, así cuando lanzas la consulta sólo recupera la primera página, con lo cual no sobrecargas con trabajo extra al servidor y por tanto consigues una aplicación más rápida.
La obtención de un recordset paginado se haría de la siguiente manera:
dim bd
dim registros
set bd = server.createobject("ADODB.Connection")
bd.open("DSN=nombre_DSN") 'En el caso de que uses una DSN, si no tu correspondiente cadena de conexión
SQL="select ..." 'Tu consulta SQL
set registros = server.createobject("ADODB.Recordset")
registros.PageSize=25 'Número de registros que deseas obtener por página
registros.Open SQL, bd, 3, 3 'Obtenemos el recordset
'Obtenemos el número de página que vamos a mostrar
'este dato lo pasamos en la URL
if request.QueryString("pag") = "" then
registros.AbsolutePage=1
else
registros.AbsolutePage=CInt(request.QueryString("p ag"))
end if
'El recordset queda situado en el primer registro de la página seleccionada
dim cont 'Contaremos los registros mostrados para no pasarnos de número de registros de la página
cont = 1
do while not registros.eof and cont <=25
<proceso>
cont = cont +1
registros.movenext
loop
Luego tendrás que poner unos botones con página siguiente y página anterior. Simplemente tendrás que poner como vínculo a esos botones algo así:
Página siguiente:
pagina.asp?pag=<%=registros.AbsolutePage+1%>
Página anterior:
pagina.asp?pag=<%=registros.AbsolutePage-1%>
Te mucho cuidado con no pasarte del número máximo de página (registros.PageCount), y no ir a ninguna página menor que la 1.
Espero que te sirva, es muy aconsejable cuando se trabaja con un gran número de registros.