<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Library" -->
<%
' Sample ASP code to send mail using CDO for Windows 2000
' http://msdn.microsoft.com/en-us/library/ms978698.aspx
' http://msdn.microsoft.com/en-us/library/ms527525.aspx
Dim iMsg
Set iMsg = Server.CreateObject("CDO.Message")
    With iMsg
         .To       = "something@somewhere.com"
         .From     = """My Company"" <something@mydomain.com>"
         .Subject  = "Sample message using CDO for Windows 2000"
         .TextBody = "This message was sent at " & Now()
         .Send
    End With
Set iMsg = Nothing
%>