01.<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
02.<HTML>
03.<HEAD>
04.<TITLE> New Document </TITLE>
05.<META NAME="Generator" CONTENT="EditPlus">
06.<META NAME="Author" CONTENT="">
07.<META NAME="Keywords" CONTENT="">
08.<META NAME="Description" CONTENT="">
09.</HEAD>
10.
11.<BODY>
12.<%
13.
14.
15.Dim strBody
16.Dim CDONTSMail
17.Set CDONTSMail = CreateObject("CDONTS.NewMail")
18.CDONTSMail.From= "soontareeporn@moderndyestuffs.com"
19.CDONTSMail.To= "soontareeporn@moderndyestuffs.com"
20.CDONTSMail.Subject="This is a Test email"
21.strBody = "This is a test message." & vbCrLf
22.CDONTSMail.Body= strBody
23.CDONTSMail.Send
24.set CDONTSMail=nothing
25.
26.
27.%>
28.
29.
30.</BODY>
31.</HTML>
