Sending Email (ASP 3.0 code)

<!-- 
    METADATA 
    TYPE="typelib" 
    UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"  
    NAME="CDO for Windows 2000 Library" 
-->  
<%  
    Set cdoConfig = CreateObject("CDO.Configuration")  
 
    With cdoConfig.Fields  
        .Item(cdoSendUsingMethod) = 2  
        .Item(cdoSMTPServer) = "smtp.gmail.com"  
        .Item(cdoSMTPServerPort) = 465
        .Item(cdoSMTPAuthenticate) = 1  
        .Item(cdoSendUsername) = "YOUR_USERNAME"  
        .Item(cdoSendPassword) = "YOUR_PASSWORD"  
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
        .Update  
    End With 
 
    Set cdoMessage = CreateObject("CDO.Message")  
    With cdoMessage 
        Set .Configuration = cdoConfig 
        .From = "YOUR_EMAIL" 
        .To = "RECIPIENT_EMAIL"
        .Subject = "YOUR_SUBJECT" 
        .TextBody = "YOUR_MESSAGE"
        .Send 
    End With 
 
    Set cdoMessage = Nothing  
    Set cdoConfig = Nothing  
%>