01.
<%
Option
Explicit %>
02.
<html>
03.
<head>
04.
<title>ThaiCreate.Com ASP CDO.Message Send Mail</title>
05.
</head>
06.
<body>
07.
<%
08.
Dim
myMail,HTML,strMsg
09.
10.
Set
myMail = Server.CreateObject(
"CDO.Message"
)
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
strMsg =
""
23.
strMsg = strMsg &
"<h1>My Message</h1><br>"
24.
strMsg = strMsg &
"<table width='285' border='1'>"
25.
strMsg = strMsg &
" <tr>"
26.
strMsg = strMsg &
" <td><div align='center'><strong>My Message </strong></div></td>"
27.
strMsg = strMsg &
" <td><div align='center'><font color='red'>My Message</font></div></td>"
28.
strMsg = strMsg &
" <td><div align='center'><font size='2'>My Message</font></div></td>"
29.
strMsg = strMsg &
" </tr>"
30.
strMsg = strMsg &
" <tr>"
31.
strMsg = strMsg &
" <td><div align='center'>My Message</div></td>"
32.
strMsg = strMsg &
" <td><div align='center'>My Message</div></td>"
33.
strMsg = strMsg &
" <td><div align='center'>My Message</div></td>"
34.
strMsg = strMsg &
" </tr>"
35.
strMsg = strMsg &
" <tr>"
36.
strMsg = strMsg &
" <td><div align='center'>My Message</div></td>"
37.
strMsg = strMsg &
" <td><div align='center'>My Message</div></td>"
38.
strMsg = strMsg &
" <td><div align='center'>My Message</div></td>"
39.
strMsg = strMsg &
" </tr>"
40.
strMsg = strMsg &
"</table>"
41.
42.
43.
myMail.From =
"webmaster@thaicreate.com"
44.
myMail.ReplyTo =
"thaicreate@hotmail.com"
45.
myMail.
To
=
"member@thaicreate.com"
46.
myMail.Subject =
"My Subject"
47.
myMail.HTMLBody = strMsg
48.
49.
myMail.Send
50.
Response.write (
"Mail Sending."
)
51.
Set
myMail =
Nothing
52.
%>
53.
</body>
54.
</html>