Veo que ahora usas Response.Write indiscriminadamente

, ¿ya hiciste la prueba de velocidad?
por lo de tu código, veo que existan o no registros en la segunda tabla, creas el select, por lo que SIEMPRE lo generas. ¿Esto es correcto?, quiza la pregunta If Rsa.EOF Then debería ser antes de cualquier otra cosa.