0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: 
0007: <%
0008: Set myMail=CreateObject("CDO.Message")
0009: myMail.Subject="Sending email with CDO - Testing"
0010: myMail.From="joetoledo@yahoo.com"
0011: myMail.To="joeatoledo@gmail.com"
0012: myMail.TextBody="This is a message."
0013: myMail.Send
0014: set myMail=nothing
0015: 
0016: Response.Write("Email Sent")
0017: 
0018: %>
0019: