<% dim error, post, recipient, sender, subject, message dim Mail, positionAt, positionDot const errNoSender = "Es wurde keine Email-Adresse für den Absender angegeben!" const errWrongMailAddress = "Die Email-Adresse für den Absender wurde nicht korrekt angegeben!" const errNoSubject = "Es wurde kein Betreff eingegeben!" const errNoMessage = "Es wurde kein Text eingegeben!" const errGenericError = "Es ist ein Fehler aufgetreten!" error = "" post = request("post") if post = "" or post <> 1 then post = 0 end if if post = 1 then 'Get the form entries emailRecipient = request("emailRecipient") sender = request("emailSender") subject = request("subject") message = request("message") '++++++++++++++++++++++++++ 'Check recipient for validity if recipient = "" then recipient = "info@modul-e.de" end if '++++++++++++++++++++++++++ 'Check sender for validityf 'ToDo: Check for forbidden charachters positionAt = 0 positionDot = 0 lenStrBetweenAtAndDot = 0 lenStrAfterDot = 0 if sender = "" then error = errNoSender else positionAt = InStr(1, sender, "@") if positionAt > 0 then positionDot = InStr(positionAt, sender, ".") if positionDot > positionAt + 1 Then lenStrBetweenAtAndDot = len(Mid(sender, positionAt + 1, positionDot - 2 - positionAt)) lenStrAfterDot = len(Mid(sender, positionDot + 1)) end if else positionDot = 0 end if if positionAt <= 0 or positionDot <=0 or lenStrBetweenAtAndDot < 2 or lenStrAfterDot < 2 then error = errWrongMailAddress end if end if '++++++++++++++++++++++++++ 'Check subject for validity if subject = "" then error = errNoSubject end if '++++++++++++++++++++++++++ '++++++++++++++++++++++++++ 'Check subject for validity if message = "" then error = errNoMessage end if '++++++++++++++++++++++++++ if error = "" then Set Mail = CreateObject("CDONTS.Newmail") Mail.From = sender Mail.To = emailRecipient Mail.Subject = subject Mail.MailFormat = CdoMailFormatMime Mail.body = message Mail.Send set Mail = nothing end if else emailRecipient = request("rec") if emailRecipient = "" then error = errGenericError else select case emailRecipient case 1 emailRecipient = "info@modul-e.de" case 2 emailRecipient = "kontakt@modul-e.de" case 3 emailRecipient = "s.kleinhenz@modul-e.de" case 4 emailRecipient = "j.sokolovic@modul-e.de" case 5 emailRecipient = "w.kleinhenz@modul-e.de" case 6 emailRecipient = "s.spoerlein@modul-e.de" case 7 emailRecipient = "licht@gestaltungzukunft.de" case 8 emailRecipient = "info@neonwerk.de" case 9 emailRecipient = "contact@gerz.com" ' case 10 ' emailRecipient = "newsletter@modul-e.de" ' subject = "newsletter bestellen" ' case 11 ' emailRecipient = "newsletter@modul-e.de" ' subject = "newsletter abbestellen" case else emailRecipient = "info@modul-e.de" end select end if end if %> Kontakt
<% if post = 0 or len(error) > 0 then %>
<% if len(error) > 0 then %> <% end if %>

<%=error%>

Empfänger

<% =emailRecipient %>

Absender

Betreff

Text

Abschicken Löschen
<% else %>

Ihre E-Mail wurde erfolgreich verschickt!

Fenster schließen

<% end If %>