Mail to

[Fabian olmos]

tengo una bd. la cual tiene los siguientes campos:
nombre y cta_mail. este ultimo campo contiene la cta de email de una persona.
estoy mostrando los datos de estos campos en pagina asp. y quiero que los datos del campo cta_mail se combiertan en links que permitan enviarle un correo a esa direccion. yo lo hago con la propiedad mailto pero no me toma la direccion que eligo para destinatario del outlook.


aquí esta el codigo para la persona que se interese

<%
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
rs.movefirst
do while rs.eof=false
response.write (rs("Nombre"))
response.write ("<br>")

rs.movenext
loop
%> </td>
<td>&nbsp;</td>
<td valign="top">&nbsp; <a href="Mailto: ">
<%
rs.movefirst
do while rs.eof=false
response.write ("<br>")
response.write (rs("Cta_Mail"))
response.write ("<br>")
%>



gracias de antemano

[AlZuwaga]

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
%>

[webpedaler]

Prueba con esta modificacion


do while rs.eof=false
response.write (rs("Nombre"))
response.write ("<br>")


%> </td>
<td> </td>
<td valign="top">
<%

response.write( "<a href='Mailto: "
response.write (rs("Cta_Mail") & " '>")
response.write(rs("Cta_Mail") & "</a>")
response.write ("<br>")
rs.movenext
loop

%>