porque no estás pasando el criterio de búsqueda en los enlaces de "siguiente" y "anterior". Cambiá la siguiente parte del código (marco en bold los agregados):
if PaginaActual > 1 then
Response.Write("<A HREF=./Geneticaok6.asp?pagina=" & PaginaActual-1 & "
&Criterio=" & Request("Criterio") & ">Anterior</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=./Geneticaok6.asp?pagina=" & PaginaActual+1 & "
&Criterio=" & Request("Criterio") & ">Siguiente</A>")
end if