|
 |
| |
mail Error ช่วยแนะนำที Microsoft VBScript runtime error '800a0046' Permission denied |
| |
 |
|
|
 |
 |
|
ขอดูโค๊ดหน่อยครับ
|
 |
 |
 |
 |
| Date :
6 มิ.ย. 2548 10:03:45 |
By :
nugul |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
<%
strBack=split(request.form("backcontact"),", ")
for i=0 to ubound(strBack)
strBackcontact=(strBack(i))
next
%>
<%
DIM strEmail, strName, strComments, mail, reply, objMail
Dim strTalaphone,strSubject
strName = request.form("Name")
strEmail = request.form("mail")
strTalaphone=request.form("talaphone")
strSubject=request.form("subject")
strComments = request.form("msg")
strBody=request.form("body")
mail = "[email protected]"
reply = request.form("mail")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = reply
objMail.Subject =strSubject
objMail.To = mail
objMail.Body=strbody
objMail.Send '----------------------------------------------------------------------------->line 71
Set objMail = nothing
%>
ส่งที่ host ส่งได้นะครับ แต่ที่นี้ส่งไม่ได้
www.kpg.co.th/contact.asp
|
| |
|
|
| |
| Date :
6 มิ.ย. 2548 10:19:59 |
By :
กรรมกรบริษัท |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
งานนี้ผมค่งช่วยไม่ได้ไม่ถนัดเรื่องนี้เท่าไร
แต่ผมว่า
ลองเพิ่ม
DIM strEmail, strName, strComments, mail, reply, objMail, Strbody
อีกตัว
ลองเปรียบเทียบกับโคดข่างล่างนี้ก็แล้วกันผมต้องไปเรียนแล้วถ้ามีเวลาจะหาข้อมูลมาให้ครับ
<%
Set SMTPObj = CreateObject("ThaiCreate.SMTP") ' เป็น Component ที่ใช้ส่งเมล์
SMTPObj.SMTPServer = "Mail.ThaiCreate.com" ' mail server
SMTPObj.ToAdd = "[email protected]"
SMTPObj.FromAdd = "[email protected]"
SMTPObj.Subject = "ทดสอบการส่งเมล์"
SMTPObj.Body = "ได้รับแล้วตอบเมล์ด้วยเด้อ"
SMTPObj.Connect
result = SMTPObj.EMail
Response.write "Sent " & result
SMTPObj.Quit
%>
|
| |
|
|
| |
| Date :
6 มิ.ย. 2548 10:34:37 |
By :
nugul |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองดู aspthai.net ดูนะครับ ผมลองทำดูแล้วครับ
|
| |
|
|
| |
| Date :
7 มิ.ย. 2548 12:20:11 |
By :
nay_somsak |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 01
|
