Does anyone know of a better alternative to this running on the server for sending mail

Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = sEmail
objCDO.From = sAuctionEmail
objCDO.Subject = "Your Auction Password!"
objCDO.Body = sBody
objCDO.Send