Code (ASP) Code (ASP) [asp] [/asp] <% Option Explicit %> <html> <head> <title>www.test.com</title> </head> <body> <% Dim myMail,HTML,strMSg Set myMail = Server.CreateObject("CDONTS.NewMail") strMsg = "" strMsg = strMsg &"Facebook username<br>" strMsg = strMsg & request.form("txtInput1") strMsg = strMsg &"<br><br>" strMsg = strMsg &"My email<br>" strMsg = strMsg & request.form("txtInput2") strMsg = strMsg &"<br><br>" strMsg = strMsg &"mobile number<br>" strMsg = strMsg & request.form("txtInput3") strMsg = strMsg &"<br><br>" strMsg = strMsg &"Address<br>" strMsg = strMsg & request.form("txtInput5") strMsg = strMsg &"<br><br>" strMsg = strMsg &"Detail<br>" strMsg = strMsg & request.form("txtInput6") strMsg = strMsg &"<br><br>" strMsg = strMsg &"Comment<br>" strMsg = strMsg & request.form("txtInput7") strMsg = strMsg &"<br><br>" myMail.From = request.form("txtInput2") myMail.To = "[email protected]" myMail.Subject = request.form("txtInput4") myMail.MailFormat = 0 myMail.BodyFormat = 0 myMail.Body = strMsg myMail.Send Response.write ("Mail Sending.") Set myMail = Nothing %> </body> </html>Tag : ASP
Quote:Server.CreateObject Failed
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง