<%
'发邮件给客户
	Set myMail = Server.CreateObject("CDONTS.NewMail")
	myMail.From = "webmaster@mensun.com"
	myMail.To = "mhy@1stchina.com"
	myMail.Subject = "恭喜您注册成功！美慎成人用品购物中心"
	Abody="尊敬的" & REQUEST("TRUE_NAME") & "(先生/小姐)您好 ： " & chr(13)
	Abody=Abody & "恭喜您，您已成功加入了美慎成人用品（上海）购物中心。以下是您的登陆信息" & chr(13)
	Abody=Abody & "会员名称：" & request("USER——NAME") & chr(13)
	Abody=Abody & "登录密码：" & Request("pass1") & CHR(13)
	Abody=Abody & "您可以随时通过http://www.mensun.com/member/login.asp登陆您的帐户，修改您的注册信息和查询您的订单情况" & CHR(13) 
	Abody=Abody & "如果您还有其他问题或要求，欢迎随时跟我们联系" & chr(13)
	Abody=Abody & "美慎成人用品购物中心 销售部信箱：sales@mensun.com" & chr(13)
	Abody=Abody & "电话：021-63024815" &chr(13)
	Abody=Abody & " 祝您有一个愉快的购物旅程" &chr(13)
	Abody=Abody & " 美慎成人用品购物中心" &chr(13)
	Abody=Abody & CHR(13)
	Abody=Abody & "www.mensun.com  - 促销狂潮，最低2折！！！ " & CHR(13)
	myMail.Body = ABody
	myMail.send
%>