<% ''''''''''''''''''''''''''''' 'functions Function getByteString(StringStr) For i = 1 to Len(StringStr) char = Mid(StringStr,i,1) getByteString = getByteString & chrB(AscB(char)) Next End Function Function getString(StringBin) getString ="" For intCount = 1 to LenB(StringBin) getString = getString & chr(AscB(MidB(StringBin,intCount,1))) Next End Function '''''''''''''''''''''''''''' %> <% Function sendmail(fromadr, toadr, fromname, toname, mailserver, subject, body, component) Select case component ' For ASPEmail Component Case "ASPEMAIL" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = mailserver Mail.From = fromadr Mail.FromName = fromname Mail.AddAddress toadr, toname Mail.Subject = subject Mail.Body = body Mail.Send If Err <> 0 Then sendmail = Err.Description else sendmail = "sent" End If Set mail = nothing ' For ASPMail Component Case "ASPMAIL" Set Mail = Server.CreateObject("SMTPsvg.Mailer") Mail.FromName = fromname Mail.FromAddress = fromadr Mail.RemoteHost = mailserver Mail.AddRecipient toname, toadr Mail.Subject = subject Mail.BodyText = body if Mail.SendMail then sendmail = "sent" else sendmail = Mail.Response End If Set mail = nothing ' For CDONTS Component Case "CDONTS" Set mail = Server.CreateObject("CDONTS.NewMail") Mail.To = toadr Mail.From = fromadr Mail.Subject = subject Mail.Body = body Mail.Send if Err then SendMail = "Error" else SendMail = "sent" end if Set mail = nothing ' For JMAIL Component Case "JMAIL" Set mail = Server.CreateOBject( "JMail.Message" ) Mail.Logging = true Mail.silent = true Mail.From = fromadr Mail.FromName = fromname Mail.AddRecipient toadr, toname Mail.Subject = subject Mail.Body = body if not mail.Send(mailserver) then sendmail = mail.log else sendmail = "sent" end if Set mail = nothing ' For OCXMAIL Component Case "OCXMAIL" Set Mail = Server.CreateObject("ASPMail.ASPMailCtrl.1") recipient = toadr sender = fromadr subject = subject message = body mailserver = mailserver result = Mail.SendMail(mailserver, recipient, sender, subject, message) If "" = result Then sendmail = "sent" Else sendmail = result End If Set mail = nothing ' For Simplemail Component Case "SIMPLEMAIL" Set mail = Server.CreateObject("ADISCON.SimpleMail.1") ' create mailer! Mail.mailserver = mailserver Mail.Sender = fromadr Mail.Recipient = toadr Mail.Subject = subject Mail.MessageText = body if Mail.Send = 0 then sendmail = "sent" else sendmail = Mail.laststatus End If Set mail = Nothing End Select End Function %>