求助。。邮件发送问题。。
不知道错哪??就是发送不成功。。
<%
if Request("BtnVal")="发送" then
dim objCDOMail
body="公司名:"&request.form("company")
body=body+chr(13)+chr(10)+"部门名:"+request.form("department")
body=body+chr(13)+chr(10)+"姓名:"+request.form("xingming")
body=body+chr(13)+chr(10)+"电子邮件:"+request.form("youjian")
body=body+chr(13)+chr(10)+"通讯地址:"&request.form("address")
body=body+chr(13)+chr(10)+"邮编:"&request.form("youbian")
body=body+chr(13)+chr(10)+"住址:"&request.form("zhuzhi")
body=body+chr(13)+chr(10)+"电话:"&request.form("tel")
body=body+chr(13)+chr(10)+"传真:"&request.form("fax")
message=replace(replace(replace(replace(request.form("message")," "," "),"<","<"),">",">"),vbCr,"<br>")
body=body+chr(13)+chr(10)+"来信内容:"&message
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =request.form("youjian") '发信人的EMAIL
objCDOMail.To = "huj0797_cn@sina.com" '收信人的EMAIL
objCDOMail.Subject ="信息咨询" 'EMAIL的标题
objCDOMail.Body=body 'EMAL的内容
objCDOMail.Send '发送
Set objCDOMail = Nothing
response.write "<center><br><br><br>谢谢,邮件发送成功!</center>"
else
response.write "<center><br><br><br>对不起,邮件发送失败!</center>"
%>
编译后。。就是提示:对不起,邮件发送失败!。。