<%@LANGUAGE="VBSCRIPT"%>
<%
'Create our email object so the server
'knows we want to send a new email message
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
'Set our from and to email addresses
objCDO.To = Request.Form("ToEmail")
objCDO.From = Request.Form("FromEmail")
'Send a BCC to ourselves, so we can tell when people are
'using our service, and what they're telling their friends
'This is also a good way to ensure that people aren't
'using your service for nefarious purposes, such as spam.
objCDO.bcc = "sendtofriend@alistapart.com"
'Create our subject
objCDO.Subject = "Check out this Send-To-Friend Tutorial!"
'Create the body of our message, what our new visitor
'will see in their email reader.
objCDO.Body = strFrom & " has recommended that you check out " _
& "this page at A List Apart:" _
& VbCrLf & VbCrLf & Request.Form("URL") _
& VbCrLf & VbCrLf & Request.Form("message") _
& VbCrLf & VbCrLf & VbCrLf _
& "This page was sent using our Send-to-Friend service." _
& "Your email address has not been added to any list of any sort, " _
& "and has not been recorded at our site."
'Finally, send our email and delete it once we're done.
objCDO.Send
Set objCDO = Nothing
%>