Lo que debes hacer es enviar el mail en formato html y te enviara las imagenes tambien.....
<html>
<%@ Language=VBScript %>
<!-- #include file="conon.inc" -->
<body>
<%
'Option Explicit
'----Declaro variables
Dim sDestinatario, sAsunto, sCuerpo, emattach
Dim ObjetoCDO, emailista, I, J
Dim Ob_Conn, Ob_RS, SQL
Dim Nombre, Email, Alta, dsn, remitente, ANEXO
on error resume next
'************************************************* *********************************************
'ESCRIBIR DENTRO DE LAS COMILLAS("...") *
dsn = "mercurio" 'Nombre de la conexion DSN que hayas pedido a tu proveedor de web hosting. *
remitente = "
[email protected]" 'La direccion de Email del Remitente. *
'************************************************* *********************************************
'----Obtengo el Formulario
sAsunto = Trim(CStr(Request.Form ("asunto")))
sCuerpo = Trim(CStr(Request.Form ("mensaje")))
'----Fuerzo la ejecucion del script a 4 minutos
Server.ScriptTimeout = 999999
'----Abro la conexión
SQL="SELECT * FROM Mitabla"
'set Ob_Conn = Server.CreateObject ("ADODB.Connection")
'oConn.Open "correo" '----Nombre de la conexion DSN
'----Obtengo la tabla con las direcciones de Email en GetRows, y libero la BD.
set oRS = oConn.Execute(SQL)
'---- Le asigno los nombre a los ejes de la matriz, y empiezo a recorrerla
'para mandar cada uno de los e-mails cargados en la BD.
'Nombre = 1
'Email = 2
'Alta = 3
Response.Write(emailista)
Response.Write("<center>")
Response.Write("<table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""550"">")
Response.Write("<TR>")
Response.Write("<TD><B><p align=""center""><font size=""3"" face=""Verdana"" width=""200"">Los Emails fueron enviados con exito a :</B></TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("</center>")
Do while not oRs.EOF
sDestinatario = oRs("email").value
'--------------------------
'Creamos una instancia del objeto CDO
Set ObjetoCDO = Server.CreateObject("CDONTS.NewMail")
Anexo = Session("Anexo")
'Anexo = Server.MapPath(".") & anexo
Response.Write(anexo)
'Anexo = "c:\documentos\xx.jpg"
'Asignamos las propiedades al objeto
ObjetoCDO.From = "
[email protected]"
ObjetoCDO.To = sDestinatario
ObjetoCDO.Subject = sAsunto
ObjetoCDO.Body = sCuerpo
ObjetoCDO.BodyFormat = 1
ObjetoCDO.MailFormat = 1
ObjetoCDO.AttachFile Anexo
'Enviamos el e-mail
ObjetoCDO.Send
'-----------------------
Response.Write("<center>")
Response.Write("<table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""250"">")
Response.Write("<TR>")
Response.Write("<TD><font size=""2"" face=""Verdana"" width=""200"">"&sDestinatario&"<br></TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("</center>")
oRS.movenext
Loop
'----Cierro la conexión.
oRs.Close
oConn.Close
set oRs=nothing
set oConn=nothing
'----Cierro la conexión
Response.Write("<center>")
Response.Write("<table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""550"">")
Response.Write("<TR>")
Response.Write ("<TD><p align=""center""><a href="& Request.ServerVariables("HTTP_REFERER") & "><font size=""3"" face=""Verdana"" width=""200"" ><b><br>Volver<br></b></a></p></TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("</center>")
%>
</body>
</html>