Ouch! Para qué dos loops??
En fin, acá intento dejarte un código aproximado:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & SERVER.MApPath("Bases de Datos\San Ignacio de Loyola.mdb"))
set rs = CreateObject("ADODB.Recordset")
rs.Open "Acceso_Personal", conn,1
do while rs.eof=false
response.write (rs("Nombre"))
response.write ("<br>")
%>
Email: <a href="Mailto:
<% = rs("cta_mail") %>"><% = rs("cta_mail") %></a>
<br><br>
<%
rs.movenext
loop
%>