請各位朋友看看,下面是代碼有問題嗎?怎么提交后總顯示:
Microsoft VBScript runtime error '800a0046'
Permission denied
/contact/titlenew.asp, line 20
-----------------------------------------------------------------------------------------------------------
下面是代碼:
<%@ Language=VBScript CODEPAGE=950 %>
<% response.buffer=true %>
<%
Set objNewMail = Server.CreateObject("CDONTS.NewMail"
objNewMail.To = "***@***.com"
objNewMail.From = "***_server@***.com"
objNewMail.Subject = "Web Page Inquiry!"
body = "你好！" & vbCrLf
body = body & "這個郵件是從**網頁寄來。"
body = body & "你有一個新的咨詢郵件！" & vbCrLf & vbCrLf
body = body & "查詢者：" & Request("name"
& vbCrLf
body = body & "職銜：" & Request("title"
& vbCrLf
body = body & "公司名稱：" & Request("company"
& vbCrLf
body = body & "地址：" & Request("address"
& vbCrLf
body = body & "電郵地址：" & Request("email"
& vbCrLf
body = body & "電話號碼：" & Request("phone_number"
& vbCrLf
body = body & "傳真號碼：" & Request("fax_number"
& vbCrLf
body = body & "查詢事：" & Request("enquiry"
& vbCrLf
objNewMail.body = body
objNewMail.Send
Response.Redirect "main_contact.htm"
%>
