<% 
dim  objCDOMail 
Set  objCDOMail  =  Server.CreateObject("CDONTS.NewMail") 
objCDOMail.From  ="xxx@hotmail.com"         
objCDOMail.To  =xxx@hotmail.com  '接收人的邮箱(将表单内容发邮件到一固定地址)     
objCDOMail.Subject  ="邮件发送测试" 
body=request.Form("cont")    '获取表单内容 
objCDOMail.Body  =body   
objCDOMail.BodyFormat=1    '设置为HTML格式             
objCDOMail.Send 
Set  objCDOMail  =  Nothing 
%> 

--------------------------------------------------------------- 

在存入数据库前加上以上的代码， 
所有存入数据库的值再赋给Mail.Body  就是发送邮件的内容了!