我在看小正正的”加入会员系统”,到了最后添加完CDO组件之后本应如教程说得大功告成,但是在本地访问时总是报告500错误,
技术信息（适用于支持人员）
·    错误类型：
Microsoft VBScript 编译器错误 (0x800A0411)
/9911/html/signUp/signUp.asp, 第 162 行, 第 4 列
Dim objCDO
---^
·    浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0; MyIE 3.0)
·    页：
GET /9911/html/signUp/signUp.asp
我已经安装了Win2000全套的IIS组件,还缺什么吗??

<%
Dim rsNewMember__MMColParam
rsNewMember__MMColParam = "1"
if (Session("email") <> "") then rsNewMember__MMColParam = Session("email")
%>
<%
set rsNewMember = Server.CreateObject("ADODB.Recordset")
rsNewMember.ActiveConnection = MM_Member_STRING
rsNewMember.Source = "SELECT ID, loginName, password FROM tbMembers WHERE email = '" + Replace(rsNewMember__MMColParam, "'", "''") + "'"
rsNewMember.CursorType = 0
rsNewMember.CursorLocation = 2
rsNewMember.LockType = 3
rsNewMember.Open()
rsNewMember_numRows = 0
%>
<%
' *** Set Session Var To value Of Form Element
' *** MagicBeat Server Behavior - 2007 - by Jag S. Sidhu - www.magicbeat.com
Session("Email") = cStr(Request("Email"))
%>
<% if Not rsNewMember.EOF Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "coolbee1121@sohu.com"
objCDO.To = rsNewMember("Email")
objCDO.CC = ""
objCDO.Subject = "Class9911欢迎您!"
objCDO.Body = rsNewMember("NickName") & "您好：" & vbCrLf & vbCrLf & _
"您已经成为我们的会员，会员密码是：" & rsNewMember("Password") & vbCrLf & _
"请使用这个密码和您所注册的 Email 帐号登入会员系统，谢谢！"
objCDO.Send()
Set objCDO = Nothing
Response.Redirect("sendOk.asp")
End If
%>
<% if (cStr(Request("Submit")) <> "") Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "coolbee1121@sohu.com"
objCDO.To = rsNewMember("Email")
objCDO.CC = ""
objCDO.Subject = "Class9911欢迎您!"
objCDO.Body = rsNewMember("NickName") & "您好：" & vbCrLf & vbCrLf & _
"您已经成为我们的会员，会员密码是：" & rsNewMember("Password") & vbCrLf & _
"请使用这个密码和您所注册的 Email 帐号登入会员系统，谢谢！"

objCDO.Send()
Set objCDO = Nothing
Response.Redirect("sendOk.asp")
End If
%>
<% if (cStr(Request("Submit")) <> "") Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "coolbee1121@sohu.com"
objCDO.To = rsNewMember("Email")
objCDO.CC = ""
objCDO.Subject = "9911欢迎您!"
objCDO.Body = "rsNewMember("loginName") & "您好：" & vbCrLf & vbCrLf & _
"您已经成为我们的一员，密码是：" & rsNewMember("Password") & vbCrLf & _
"请使用这个密码和您所注册的 Email 帐号登入我们的9911同学录，谢谢！""
objCDO.Send()
Set objCDO = Nothing
Response.Redirect("sendOk.asp")
End If
%>
:confused:
和objCDO有关的代码都贴出来了~

如果你上面这一大堆代码是一个文件里的，那么还要把下面的几处Dim objCDO也给删掉。不然会有同样的错误发生。