<%
' change to address of your own SMTP server
strHost = "smtp.broadviewnet.net"
If Request("Send") <> "" Then
' Connect to database
strDbPath = Server.MapPath(".") & "\images.mdb"
ConnectStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strDbPath
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "images", ConnectStr, 2, 3
If rs.EOF Then
Response.Write "Recordset is empty."
Response.End
End If
' Create instance of AspEmail
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = "info@persits.com"
Mail.FromName = "Persits Software, Inc."
Mail.AddAddress Request("To")
' Attach files stored in database as blobs
While Not rs.EOF
Mail.AddAttachmentMem rs("name").Value, rs("blob").Value
rs.MoveNext
Wend
' message subject
Mail.Subject = "Memory Attachments"
' message body
Mail.Body = "To buy these paintings, visit www.oiloncanvas.com."
Mail.Send ' send message
Response.Write "Success!"
End If
%>
AspEmail: AttachBlobs.asp
AspEmail: AttachBlobs.asp
Attaching Files Stored in the Database as Blobs