提交数据库同时发送邮件

提交数据库同时发送邮件，我的部分代码：

提交代码：
<%
if request.QueryString("action")="reg" then
'判断用户名是否重复
Set Rs = Server.CreateObject( "ADODB.Recordset" )
Sql = "select * from Users"
Rs.Open Sql, Conn, 1, 3
Rs.addnew
Rs("Name") = trim(request.Form("Name"))
。。。。。。。。
Rs.Update
Rs.Close
Set Rs=nothing
CloseDB
response.write"<script language='javascript'>alert('添加成功，等待管理员审核！');window.location.href='reg.asp'</script>"
end if
%>

我的表单：
<form id="form1" name="Frm" method="post" action="reg.asp?action=reg" onSubmit="return check(this);">
<table width="100%">
..........
</table>
</form>

网上搜了一串代码，请问放哪里，做如何修改，谢谢！！！：
<%
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
%>

用jmail组件

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息