写了个CDO发送邮件的过程，但是运行不起来，请高手帮我看看

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
call sendcdomail("smtp.163.com","账号","密码","发送邮箱","接收游戏","主题","测试内容")
%>

<%
sub sendcdomail(Smtpsv,MailUser,MailPass,Frommail,Tomail,Mailtitle,Mailinfo)

'Dim Smtpserver,MailUser,MailPass,Frommail,Tomail,Mailtitle,Mailinfo
'发送代码

Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort=2
Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic=1
Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"

Dim objConfig    'As CDO.Configuration
Dim objMessage    'As CDO.Message
Dim Fields    'As ADODB.Fields

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = ""& Smtpsv &""          '外部邮件服务器域名
.Item(cdoSMTPServerPort) = 25                           'SMTP服务器端口
.Item(cdoSMTPConnectionTimeout) = 10                    '连接超时
.Item(cdoSMTPAuthenticate) = cdoBasic                   'CDO类型
.Item(cdoSendUserName) = ""& Mailuser &""         '邮箱用户名
.Item(cdoSendPassword) = ""& Mailpass &""         '邮箱密码
.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

With objMessage
.To = ""& Tomaill &""                            '接收者邮件完整地址
.From = ""& Frommail &""                 '发送人完整邮件地址
.Subject = ""& Mailtitle &""             '邮件标题
'.TextBody = ""                     '文本邮件内容
.htmlbody = ""& MailInfo &""             '超文本邮件内容
'.AddAttachment "C:\Scripts\Output.txt"         '邮件附件（虚拟主机无法使用）
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
'Response.Write "发送成功！"
end sub
%>