attachfile + Base de datos

[MauroViale]

¡Hola amigos :)!

Les comento lo que me pasa:
- Mi idea es enviar e-mails con archivos adjuntos.
- Las direcciones de los archivos las tengo almacenadas en una base de datos.
- Luego de realizar un filtro en la base de datos, guardo la direccion del archivo a enviar en una variable:

"v_archivo=rs("archivo")"

- Les aclaro que esta direccion no es la direccion fisica completa sino que es algo asi: "\archivos\archivo_1.zip" y la carpeta "archivos" esta adentro de wwwroot

- Luego el contenido de esta variable la envio por un formulario oculto llamado "archivo".

- finalmente quiero adjuntar el archivo, entonces hago...
MyMail.attachfile server.MapPath (Request.form("archivo"))

Aqui es donde comienza el problema ya que me tira un error (desconocido) en esta linea. Para verificar lo que puse dentro de MapPath sea correcto puse

response.write(server.mappath(Request.form("a rchivo"))

y el resultado es que se imprime en pantalla la direccion correcta del archivo.
de esta forma he comprobado que el argumento se Server.MapPath es correcto.

Alguien me puede ayudar o darme alguna otra forma de hacer esto

Gracias

[AlZuwaga]

te respondo sólo porque me llamaste en el mensaje que cerré... pero no tengo idea de lo que puede estar pasando

[Yoston]

Hola mira prueba algo parecido a esto a mi me funciona tanto con CDONTS como JMAIL

set msg = Server.CreateObject( "CDONTS.NewMail" )

msg.BodyFormat = 1 ' PlainText (0 = HTML)
msg.MailFormat = 0 ' MIME format (1 = Plain Text)

Dim numAttachments
numAttachments = 0

Dim strAttachments
strAttachments = Session("ATTACHMENTS")
'en Session("ATTACHMENTS") estarian los archivos separados por ; ejemplo a.txt; b.algo;... etc

If strAttachments <> "" Then
numAttachments = 1
End If

Dim arrAttachments
If Instr(strAttachments, ";") Then
arrAttachments = split( strAttachments, "; " )
numAttachments = uBound(arrAttachments)+1
End If

If Session("ATTACHMENTS") <> "" Then
Set fso = CreateObject("Scripting.FileSystemObject&quot ;)
If numAttachments > 1 Then
If VarType(arrAttachments) <> 0 Then
For i = 0 To uBound(arrAttachments)
attachedFile = Tu_Directorio& "\" & arrAttachments(i)
If fso.FileExists( attachedFile ) Then
msg.AttachFile( attachedFile )
End If
Next
End If
Else
attachedFile = Tu_Directorio & "\" & Session("ATTACHMENTS")
If fso.FileExists( attachedFile ) Then
msg.AttachFile( attachedFile )
End If
End If
Set fso=nothing
End If
.
.
.
msg.send

espero que te sirva chausito...