用ASP发邮件,出现的问题!!

[jhlgxyxl]

本人做了个类似于易趣的竞拍网站，在一口价拍下时，我想直接发信到卖方的邮箱。本人服务器支持easymail，发送的代码如下。不过显示出错在打“*”行，不知道怎么改。
怎样编辑发过去的邮件的格式，有详细的资料提供吗？
Sub Send_ASPEMail_check()
dim mailsend
****Set mailsend = Server.CreateObject("easymail.MailSend")
mailsend.From ="[e-mail]"
mailsend.To = email(从数据库中读的)
mailsend.Subject = "您好！！"
mailsend.Body = "您好！你在jhalei收藏在线的 "&title&" ，以一口价 "&price_one&"元,被 "&username&" 拍下,他期望交易的时间是: "&time1&" ，他的联系电话是："&dh&" ！"
mailsend.Send
Set mailsend = Nothing
End Sub