<%
Option Explicit
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "[email protected]"
objMail.Subject = "A message TO you"
objMail.AttachFile("yourpictiure")
objMail.To = "[email protected]"
objMail.Body = "This is the body of the Message"
objMail.Send
Response.write("Mail was Sent")
'You must always do this with CDONTS.
set objMail = nothing
%>