Example of a Function to Send Emails With CDO In ASP

I made this function to constantly send emails from the forms of my pages in ASP, so I only have to create a file and include it to send emails in ASP.

SendMail function (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
ON ERROR RESUME NEXT

 'Send a text mail using authentication on an SMTP server

 Const cdoSendUsingPickup = 1 'Send message using SMTP local directory pickup service
Const cdoSendUsingPort = 2 'Send using network, SMTP over network

 Const cdoAnonymous = 0 'Do not authenticate
 Const cdoBasic = 1 'Authenticate basic (plain text)
 Const cdoNTLM = 2 'NTLM

 Set objMessage = CreateObject ("CDO.Message")
 objMessage. Subject = issue
 objMessage. From = f sendername & ""
 objMessage. To = femailpara
 objMessage. Bcc = fbcc
 objMessage. TextBody = fmessage
 IF fadjoint <> "" THEN
 objMessage. AddAttachment fadjoint
 END IF

 '== The SMTP server is configured here.

 objMessage. Configuration. Fields. Item _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 'Name or IP of Remote SMTP Server
 objMessage. Configuration. Fields. Item _
 ("

 SendEmail = femailpara & ","

End Function
%>