<% Function SendMail(mTo , mFrom , mSubject , mBody) Set objCdonts = Server.CreateObject("CDONTS.NewMail") objCdonts.To = mTo objCdonts.From = mFrom objCdonts.Subject = mSubject objCdonts.Body = mBody objCdonts.Send Set objCdonts = Nothing If Err Then SendMail = False Else SendMail = True End If End Function %> and to call the function we can use something like this <% SendMail "youremail@email.com" , "myemail@email.com" , "testing" , "testing again" %>