呛拌莴苣丝的做法:asp发邮件问题

我用以下程序发邮件时出现错误

HTTP 500 - 内部服务器错误
Internet Explorer

‘------------------------------------------
<%
inputMailTo = Trim(Request.Form("inputMailTo"))
inputMailFrom = Trim(Request.Form("inputMailFrom"))
inputMailSubject = Trim(Request.Form("inputMailSubject"))
textBoxMailBody = Trim(Request.Form("textBoxMailBody"))

dim ErrMsgInputMailTo,ErrMsgInputMailFrom,ErrMsgInputMailSubject,ErrMsgTextBoxMailBody,MsgSendResult

sendMail

sub sendMail()
if inputMailTo = "" then
ErrMsgInputMailTo = "不能为空"
exit sub
end if
'if ValidateEmail(inputMailTo) = false then
'ErrMsgInputMailTo = "E-Mail Address Error"
'exit sub
'end if
if inputMailFrom = "" then
ErrMsgInputMailFrom = "不能为空"
exit sub
end if
'if ValidateEmail(inputMailFrom) = false then
'ErrMsgInputMailFrom = "E-Mail Address Error"
'exit sub
'end if
if inputMailSubject = "" then
ErrMsgInputMailSubject = "不能为空"
exit sub
end if
if textBoxMailBody = "" then
ErrMsgTextBoxMailBody = "不能为空"
exit sub
end if

Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = inputMailTo
mail.From = inputMailFrom
mail.Subject = inputMailSubject
mail.Body = textBoxMailBody
mail.Send

MsgSendResult = "发送成功！From: " + inputMailFrom + "; To: " + inputMailTo

end sub
%>
有没有比较好的asp发邮件源代码,无组件的