<% ' ======================================================================= ' ===================== Konfiguration =================================== ' ======================================================================= ' Geben Sie die Adresse Ihres SMTP-Servers ein SMTPServer = "auth.smtp.kundenserver.de" ' Geben Sie die E-Mail Adresse Ihres speziellen POP3 Postfachs ein Recipient = "newsletter@bayernzeitung.de" ' Geben Sie die Seite an, die angezeigt werden soll, wenn eine ANmeldung erfolgte SubscribeOKPage = "http://www.bayernzeitung.de/newsletter/ok_anmeldung.htm" ' Geben Sie die Seite an, die angezeigt werden soll, wenn eine ABmeldung erfolgte UnsubscribeOKPage = "http://www.bayernzeitung.de/newsletter/ok_abmeldung.htm" ' Geben Sie die Seite an, die angezeigt werden soll, wenn die E-Mail Adresse aeusserlich nicht korrekt ist = Fehlerseite ErrorPage = "http://www.bayernzeitung.de/newsletter/fehler_anmeldung.htm" ' ======================================================================= ' ===================== Ab hier nichts mehr aendern ===================== ' ======================================================================= Action = request.form("Action") EMail = request.form("EMail") ' ---> Korrekte Mailadresse if InStr(EMail,"@") = 0 then Response.Redirect(ErrorPage) else ' ---> An-/Abmeldung senden Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = SMTPServer JMail.Sender = EMail JMail.Subject = Action JMail.AddRecipient Recipient JMail.Body = "EMail: " & EMail JMail.ContentTransferEncoding = "text" JMail.Execute ' ---> Weiterleitung if Action = "subscribe" then Response.Redirect(SubscribeOKPage) end if if Action = "unsubscribe" then Response.Redirect(UnsubscribeOKPage) end if end if %>