hhmmm..el error puede estar en varias partes...por ke mejor no lo troceas y ves donde se te cae
set em = Server.CreateObject("CDONTS.NewMail")
em.From = "
[email protected]"
em.To = "
[email protected]"
'em.Cc = "
[email protected]"
em.Subject = "Información desde " & titulo
on error resume next
em.AttachFile Server.Mappath("adjunto/"&Session("filename"))
if err.number<>0 then
response.write err.number &"<br>"
response.write err.description &"<br>"
response.write "se cayo al atachar"
response.end
end if
em.bodyformat = 0
em.mailformat = 0
em.Body = text
on error resume next
em.Send
if err.number<>0 then
response.write err.number &"<br>"
response.write err.description &"<br>"
response.write "se cayo al enviar"
response.end
end if
'Eliminando el fichero.
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
oFSO.Deletefile(Server.Mappath("adjunto/"&Session("filename"))
Set oFSO = Nothing