<%
If Request.Form("send") <> "" Then
msgBody = "------------------ Absender ------------------" & Chr(13) & Chr(13)
msgBody = msgBody & "Name, Vorname: " & Request.Form("nachname") & ", " & Request.Form("vorname")& Chr(13)
msgBody = msgBody & "Straße: " & Request.Form("strasse") & Chr(13)
msgBody = msgBody & "PLZ, Ort: " & Request.Form("plz") & ", " & Request.Form("ort") & Chr(13)
msgBody = msgBody & "E-Mail: " & Request.Form("mail") & Chr(13) & Chr(13) & Chr(13)
msgBody = msgBody & "Produktinformationen" & Chr(13)
msgBody = msgBody & "--------------------" & Chr(13)
msgBody = msgBody & Request.Form("bad") & Chr(13)
SendMail Request.Form("mail"), _
Request.Form("vorname") & " " & Request.Form("nachname"), _
"info@bdh-koeln.de", _
"", _
"entwicklung@conception.cc", _
"Produktinformationen", _
msgBody
End If
Sub SendMail(Sender, SenderName, Recipient, RecipientCC, RecipientBCC, Subject, Body)
' Letze Änderung vorgenommen
' am: 12.10.2007
' von: martin hölzemann
' Status: MailSkript komplett geändert wg. Umstellung auf Event 2007
' -----------------------------------------------------
'ASPEmail Objekt erzeugen:
Set objMail = Server.CreateObject("Persits.MailSender")
'Absender Email/Name
email=Sender
sAbsender = Sender
sAbsenderName = SenderName
if(email="" or email=" ")then
email="keineEMAILangegeben@domainxyz.de"
end if
'aufbrechen der email-adresse
var_split = split(email,"@")
' prüfung ob vor dem @-zeichen etwas eingegeben wurde
if(len(var_split(0))>0)then
' prüfung ob das @-zeichen vorhanden UND keine umlaute oder sonderzeichen vorhanden sind
' falls doch, wird ein allgemeiner fehler angezeigt bzw. eine definerte "absendeadresse" wird eingesetzt
if(instr(email,"@")<>0 and instr(email,"ä")=0 and instr(email,"ö")=0 and instr(email,"ü")=0 and instr(email,"ß")=0 and instr(email,"?")=0 and instr(email,"^")=0 and instr(email,",")=0 and instr(email,":")=0 and instr(email,"'")=0)then
'prüfung auf vorhandene dots im teil NACH dem @-zeichen
if(instr(var_split(1),".")<>0)then
var_split_2= split(var_split(1),".")
'prüfung auf länge des domainnamens sowie der länderkennung
if(len(var_split_2(0))>=3 and len(var_split_2(1))>=2 and len(var_split_2(1))<=4)then
'response.write "'keine fehler, mail kann mit der email-adressw des absenders versehen werden"
sAbsender=email
else
'response.write "'domainfehler, mail wird mit einer gültigen email-adresse versehen"
sAbsender = "keineEMAILangegeben@domainxyz.de"
end if
else
'response.write "'punktfehler, mail wird mit einer gültigen email-adresse versehen"
sAbsender = "keineEMAILangegeben@domainxyz.de"
end if
else
'response.write "'allgemeinerfehler, mail wird mit einer gültigen email-adresse versehen"
sAbsender = "keineEMAILangegeben@domainxyz.de"
end if
else
'response.write "'keine zeichen vor dem @-zeichen, mail wird mit einer gültigen email-adresse versehen"
sAbsender = "keineEMAILangegeben@domainxyz.de"
end if
' Empfänger
if(Sender="test@conception.cc")then
'TEST Empfänger
sEmpfaenger = "entwicklung@conception.cc"
else
sEmpfaenger= Recipient
end if
'gross wird durch klein ersetzt
email = lcase(email)
' Versenden
'e-mail Nachricht:
sBody = Body
'ASPEmail Objekt erzeugen:
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.Subject = Subject
objMail.Host = "smtp.domainxyz.de"
objMail.From = sAbsender
objMail.FromName = sAbsenderName
objMail.AddAddress sEmpfaenger
If RecipientCC <> "" Then
'objMail.AddCC (RecipientCC)
End If
If RecipientBCC <> "" Then
'objMail.AddBcc (RecipientBCC)
End If
objMail.Body = Body
On Error Resume Next
'Mail jetzt verschicken
objMail.Queue = True
objMail.Send
If Err <> 0 Then
Response.write "Es ist ein technischer Fehler aufgetreten. Versuchen Sie es bitte zu einem späteren Zeitpunkt noch einmal."
Else
Response.write "
Vielen Dank für Ihre Anfrage.
"
err.clear
End If
on error goto 0
End Sub
%>
Informationen
einfach per Post nach Hause
Name:
Nachname:
Straße:
Postleitzahl:
Ort:
E-Mail: