Upload images to send as an email attachment using ASP

Does anyone know how to upload images to send as an email attachment using ASP?

Thanks in advance

here is a scrip that attaches the file from your server

<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartMail : Sample 5</H1>
<HR>
<%

    On error resume next

    Dim mySmartMail
    Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

'   Mail Server
'   ***********
    mySmartMail.Server = "mail.yourdomain.com"
    mySmartMail.ServerPort = 25
    mySmartMail.ServerTimeOut = 35

'   From
'   ****
    mySmartMail.SenderName = "Your Name"
    mySmartMail.SenderAddress = "youremail@yourdomain.com"

'   To
'   **
    mySmartMail.Recipients.Add "yourfriend0@anydomain.com", "Friend0's name"
    mySmartMail.Recipients.Add "yourfriend1@anydomain.com", "Friend1's name"

'   Carbon copy
'   ***********
    mySmartMail.CCs.Add "yourfriend2@anydomain.com", "Friend2's name"

'   Blind carbon copy
'   *****************
    mySmartMail.BCCs.Add "yourfriend3@anydomain.com", "Friend3's name"

'   Reply To
'   ********
    mySmartMail.ReplyTos.Add "yourfriend4@anydomain.com", "Friend4's name"

'   Message
'   *******
    mySmartMail.Subject = "aspSmartMail Sample 5"
    mySmartMail.Body = "This mail which has been sent with aspSmartMail."

'   Parameters
'   **********
    mySmartMail.DateTime = "Wed, 23 febr 2000 12:00 +0600"
    mySmartMail.Organization = "your Society Inc."
    mySmartMail.XMailer = "Your Web Application"
    mySmartMail.Priority = 1
    mySmartMail.ReturnReceipt = false
    mySmartMail.ConfirmRead = true
    mySmartMail.ContentType = "text/plain"
    mySmartMail.Charset = "us-ascii"
    mySmartMail.Encoding = "base64"

'   Attached file
'   *************
    mySmartMail.Attachments.Add Server.MapPath("aspSmartMailsample.txt"), false

'   Send the message
'   ****************
    mySmartMail.SendMail

    if err.number <> 0 then

        response.write("Error n° " &  err.number - vbobjecterror & " = " & err.description  & "<br>")

    else

        Response.Write "aspSmartMail has sent your message with this file as attachment : <br>"
        Response.Write mySmartMail.Attachments.Item(1).FilePathName

    end if

    set mySmartMail = nothing

%>
</body>
</html>