<%
Sub SendMail(sFrom,sTo,sCC,sSubject,sBody)
' รับค่าที่ส่งจาก Form ได้แก่ From, To, CC, Subject, Body
Dim sm
Set sm = Server.CreateObject("CDONTS.Newmail")
sm.SetLocaleIDs "874" ' กำหนด Code Page ให้แสดงผลภาษาไทย
sm.MailFormat = 0 ' กำหนดให้ส่งอีเมล์ในรูปแบบ MIME
sm.BodyFormat = 0 ' กำหนดให้ข้อความในอีเมล์เป็น HTML
sm.From = sFrom
sm.To = sTo
sm.CC = sCC
sm.Subject = sSubject
sm.Body = sBody
sm.Send
Set sm = Nothing
End Sub
%>