asp的jmail的问题

<%

dim strSQL, rsObj

dim memberID, answer

memberID = RealString(Request.Form("memberID"))

answer = RealString(Request.Form("answer"))

strSQL = "SELECT * FROM member WHERE memberID = '"&memberID&"' AND answer = '"&answer&"'"

'Response.Write strSQL

'Response.End

set rsObj = conn.execute (strSQL)

if rsObj.eof or err then

%>

<script language = Javascript>

<!--

alert(" ***");

window.history.go(-1);

//-->

</script>

<%

else

Set msg = Server.CreateObject("JMail.Message") '建立发送邮件的对象

msg.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j

msg.logging = true '启用邮件日志

msg.Charset = "GB2312" '邮件的文字编码为国标

msg.ContentType = "text/html" '邮件的格式为HTML格式

msg.AddRecipient rsObj("email") '邮件收件人的地址

msg.From = "***@163.com" '发件人的E-MAIL地址

msg.MailServerUserName = "***" '登录邮件服务器所需的用户名

msg.MailServerPassword = "***" '登录邮件服务器所需的密码

msg.Subject = "***" '邮件的标题

msg.Body = "***" '邮件的内容

msg.Prority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

msg.Send("smtp.163.com") '执行邮件发送（通过邮件服务器地址）

msg.Close() '关闭对象

%>

最近写了一段代码，可是提示

ActiveX 部件不能创建对象: 'Server.CreateObject'

信也总是发不出去，请求高人解答

从错误信息能看出 服务器不支持，应该没安装Jmail组件，如果你是租用的空间，请与空间商联系，如果你有服务器权限，请安装Jmail组件

至于你的代码应该没问题，并且Jmail发信的代码，网上有许多，应该不是问题 主要是服务器要支持