100分，由cdonts转为jmail

[cnlee]

http://www.sino-granite.com/contact.htm
里面是个返馈的表单，我以前是用cdonts写的，现在想用jmail，空间支持jmail,我不想费那么多脑子了，哪位大侠把<%>内的程序帮我改一下，贴出来，调通了立即给分，一共没几行，谢了。

[a_zhe_20]

Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.ContentType="text/html"
msg.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
msg.Priority = 1
msg.MailServerUserName = "" '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerPassword = "" '输入smtp服务器验证密码 （用户Email帐号对应的密码）



msg.From = strFromEmailAddress '发件人Email
msg.FromName =strFromEmailName '发件人姓名
msg.AddRecipient strRecipientEmailAddress '收件人Email
msg.Subject = strSubject '信件主题
msg.Send ("211.167.74.107") 'smtp服务器地址（企业邮局地址）
set msg = nothing


楼主对比一下改改吧。。

[cnlee]

msg.AddRecipient strRecipientEmailAddress 这里怎么写？
msg.from="[e-mail]" 加引号吗？

[cnlee]

<%
If Request("sub_mit") <> Empty Then
Set mail = Server.CreateObject( "CDONTS.NewMail" )
mail.To = "[e-mail]"
mail.bcc="[e-mail]"
mail.From = "[e-mail]"
mail.Subject = "aaaaaaaaaa"
mail.Body = "**name**:"+trim(request("name"))+"**address**:"+trim(request("address"))+"**country**:"+trim(request("country"))+"**contact**:"+trim(request("contact"))+"**email**"+trim(request("email"))+"**FAX**"+trim(request("fax"))+"**phone**"+trim(request("phone"))+"**subject**"+trim(request("subject"))+"**description"+trim(Request("DESCRIPTION"))
mail.Send
Response.Write "ok "
Else
mail = request("mail")
%>
这一小块怎么改成jmail????