asp 发送邮件

Set rs = conn.Execute("select * from a_shop_skin where id=2") 
jmail=rs("jmail")
adm_mail=rs("adm_mail")
mailyesorno=rs("mailyesorno")
mailserver=rs("mailserver")
mailname=rs("mailname")
mailpassword=rs("mailpassword")
rs.close
set rs=nothing
if mailyesorno=1 then '判断后台是否开通了订单生成同时发邮件到用户邮箱
dim msg
CLStr=Chr(13) & Chr(10)
if jmail=0 then
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = adm_mail
objMail.From =mailname
objMail.Subject ="订单通知("&inBillNo&")"
objMail.Body = Name&"("&RecName&")在"&sitename&"("&siteurl&")提交新订单，订单号："&inBillNo&"，订单金额："&Total
objMail.Send
Set objMail = Nothing
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = Recmail
objMail.From =mailname
objMail.Subject ="订单通知("&inBillNo&")"
objMail.Body = Name&"("&RecName&")在"&sitename&"("&siteurl&")提交新订单，订单号："&inBillNo&"，订单金额："&Total
objMail.Send
Set objMail = Nothing

'========================================================
 '参数说明
 'Subject     : 邮件标题
 'MailAddress : 发件服务器的地址,如smtp.163.com
 'LoginName     ----登录用户名(不需要请填写"")
 'LoginPass     ----用户密码(不需要请填写"")
 'Email       : 收件人邮件地址
 'Sender      : 发件人姓名
 'Content     : 邮件内容
 'Fromer      : 发件人的邮件地址
 '========================================================
 Public Function SendMail(MailAddress, LoginName, LoginPass, Subject, Email, Sender, Content, Fromer)
  On Error Resume Next
  Dim JMail
  Set JMail = Server.CreateObject("JMAIL.Message")
  JMail.silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值
  JMail.Charset = "GB2312"   '邮件的文字编码为国标
  JMail.ContentType = "text/html" '邮件的格式为HTML格式
  JMail.AddRecipient Email  '邮件收件人的地址
  JMail.From = Fromer    '发件人的E-MAIL地址
  JMail.FromName = Sender
  If LoginName <> "" And LoginPass <> "" Then
   JMail.MailServerUserName = LoginName  '邮件服务器登录名
   JMail.MailServerPassword = LoginPass  '登录密码
  End If
  
  JMail.Subject = Subject '邮件的标题 
  JMail.Body = Content
  JMail.Priority = 1  '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
  JMail.Send(MailAddress)
  JMail.Close()
  Set JMail = Nothing
  If Err Then
   SendMail = Err.Description
   Err.Clear
  Else
   SendMail = "OK"
  End If
 End Function