<% Select case lcase(strMailMode) case "aspmail" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = strFromName Mailer.FromAddress = strSender 'Mailer.AddReplyTo = strSender Mailer.RemoteHost = strMailServer Mailer.AddRecipient strRecipientsName, strRecipients Mailer.Subject = strSubject Mailer.BodyText = strMessage on error resume next SendOk = Mailer.SendMail If not(SendOk) <> 0 Then message = message & "Mailer: " & Mailer.Response case "aspemail" Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.FromName = strFromName Mailer.From = strSender Mailer.AddReplyTo strSender Mailer.Host = strMailServer Mailer.AddAddress strRecipients, strRecipientsName Mailer.Subject = strSubject Mailer.Body = strMessage on error resume next Mailer.Send If Err <> 0 Then message = message & "Mailer: " & Err.Description case "aspqmail" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.QMessage = 1 Mailer.FromName = strFromName Mailer.FromAddress = strSender Mailer.RemoteHost = strMailServer Mailer.AddRecipient strRecipientsName, strRecipients Mailer.Subject = strSubject Mailer.BodyText = strMessage on error resume next Mailer.SendMail If Err <> 0 Then message = message & "Mailer: " & Err.Description case "cdonts" Set Mailer = Server.CreateObject ("CDONTS.NewMail") Mailer.BodyFormat = 1 Mailer.MailFormat = 0 on error resume next Mailer.Send strSender, strRecipients, strSubject, strMessage If Err <> 0 Then message = message & "Mailer: " & Err.Description on error resume next case "chilicdonts" Set Mailer = Server.CreateObject ("CDONTS.NewMail") on error resume next Mailer.Host = strMailServer Mailer.To = strRecipients Mailer.From = strSender Mailer.Subject = strSubject Mailer.Body = strMessage Mailer.Send If Err <> 0 Then message = message & "Mailer: " & Err.Description on error resume next case "dkqmail" Set Mailer = Server.CreateObject("dkQmail.Qmail") Mailer.FromEmail = strSender Mailer.ToEmail = strRecipients Mailer.Subject = strSubject Mailer.Body = strMessage Mailer.CC = "" Mailer.MessageType = "TEXT" on error resume next Mailer.SendMail() If Err <> 0 Then message = message & "Mailer: " & Err.Description case "geocel" set Mailer = Server.CreateObject("Geocel.Mailer") Mailer.AddServer strMailServer, 25 Mailer.AddRecipient strRecipients, strRecipientsName Mailer.FromName = strFromName Mailer.FromAddress = strFrom Mailer.Subject = strSubject Mailer.Body = strMessage on error resume next Mailer.Send() if Err <> 0 then message = Err.Description case "iismail" Set Mailer = Server.CreateObject("iismail.iismail.1") MailServer = strMailServer Mailer.Server = strMailServer Mailer.addRecipient(strRecipients) Mailer.From = strSender Mailer.Subject = strSubject Mailer.body = strMessage on error resume next Mailer.Send If Err <> 0 Then message = message & "Mailer: " & Err.Description case "jmail" Set Mailer = Server.CreateObject("Jmail.smtpmail") Mailer.ServerAddress = strMailServer Mailer.AddRecipient strRecipients Mailer.Sender = strSender Mailer.Subject = strSubject Mailer.body = strMessage Mailer.priority = 3 on error resume next Mailer.execute If Err <> 0 Then message = message & "Mailer: " & Err.Description case "smtp" Set Mailer = Server.CreateObject("SmtpMail.SmtpMail.1") Mailer.MailServer = strMailServer Mailer.Recipients = strRecipients Mailer.Sender = strSender Mailer.Subject = strSubject Mailer.Message = strMessage on error resume next Mailer.SendMail2 If Err <> 0 Then message = message & "Mailer: " & Err.Description case "ocxmail" Set Mailer = Server.CreateObject("ASPMail.ASPMailCtrl.1") recipient = strRecipients sender = strSender subject = strSubject message = strMessage mailserver = strMailServer on error resume next result = Mailer.SendMail(mailserver, recipient, sender, subject, message) If Err <> 0 Then message = message & "Mailer: " & Err.Description case "ocxqmail" Set Mailer = Server.CreateObject("ocxQmail.ocxQmailCtrl.1") mailServer = strMailServer FromName = strFromName FromAddress = strSender priority = "" returnReceipt = "" toAddressList = strRecipients ccAddressList = "" bccAddressList = "" attachmentList = "" messageSubject = strSubject messageText = strMessage on error resume next Mailer.Q mailServer, _ fromName, _ fromAddress, _ priority, _ returnReceipt, _ toAddressList, _ ccAddressList, _ bccAddressList, _ attachmentList, _ messageSubject, _ messageText If Err <> 0 Then message = message & "Mailer: " & Err.Description case "sa-smtp" Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail") Mailer.FromName = strFromName Mailer.FromAddress = strSender Mailer.AddRecipient strRecipientsName, strRecipients 'Mailer.AddReplyTo strSender Mailer.BodyText = strMessage Mailer.organization = strForumTitle Mailer.Subject = strSubject Mailer.RemoteHost = strMailServer on error resume next SendOk = Mailer.SendMail If not(SendOk) <> 0 Then message = message & "Mailer: " & Mailer.Response case "smtp" Set Mailer = Server.CreateObject("SmtpMail.SmtpMail.1") Mailer.MailServer = strMailServer Mailer.Recipients = strRecipients Mailer.Sender = strSender Mailer.Subject = strSubject Mailer.Message = strMessage on error resume next Mailer.SendMail2 If Err <> 0 Then message = message & "Mailer: " & Err.Description End select Set Mailer = Nothing %>