<!--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/library/en-us/dncdsys/html/cdo_roadmap.asp
Dim iMsg, iConf
Set iMsg = Server.CreateObject("CDO.Message")

Set iConf = iMsg.Configuration
With iConf.Fields
     .Item(cdoSendUsingMethod) = cdoSendUsingPort    ' http://msdn.microsoft.com/library/en-us/cdosys/html/bb2a4e60-080f-49bf-be71-e2a7e52ce5ad.asp
     .Item(cdoSMTPServer)      = "smtp.mydomain.com" ' http://msdn.microsoft.com/library/en-us/cdosys/html/d1c332e6-a675-47be-9c13-8f612169a5d2.asp
     .Update
End With

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
Set iConf = Nothing
%>