Classic ASP send email

sendemail.asp

sub sendemail(subject,body,sto)
 Set objMessage = CreateObject("CDO.Message") 
 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com"
 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "no-reply@brandextract.com"
 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "passwd" ' change thus
 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
 objMessage.Configuration.Fields.Update

 objMessage.Subject = subject
 objMessage.Sender = "no-reply@brandextract.com" 
 objMessage.bcc = "carter+tests@brandextract.com"
 objMessage.HtmlBody = body
 objMessage.To = sto
 
 objMessage.Send
 Set objMessage = nothing
 
end sub