[aspdebeginners] Problem mit mail-Formular

Christoph Steiner Mon, 17 Sep 2001 09:15:35 -0700
Hallo Liste!

Mein Problem ist vermutlich ganz einfach zu l�sen, ich komm nur einfach
nicht drauf.
Also:
Ich hab eine Formular, dessen Daten per ASP verschickt werden. Dabei
gibt es ein men� aus dem der User sich aussuchen kann, an wen die mail
geht. Aus irgendeinen Grund wird die mail aber immer an ALLE leute die
in der Auswahl stehen gesendet. Wo liegt der Fehler?

Hier ein Teil des Formulars:
<td width="83%">
              <select name="Empfaenger">
                <option value="[EMAIL PROTECTED]">Dr. G&uuml;nther
Pacher - Gesch&auml;ftsf&uuml;hrer</option>
                <option value="[EMAIL PROTECTED]">Mag. Axel
B&ouml;ckzelt - Verkaufsleiter</option>
                <option
value="[EMAIL PROTECTED]">[EMAIL PROTECTED]</op
tion>
                <option
value="[EMAIL PROTECTED]">[EMAIL PROTECTED]</op
tion>
                <option
value="[EMAIL PROTECTED]">[EMAIL PROTECTED]</option>
                <option
value="[EMAIL PROTECTED]">[EMAIL PROTECTED]</option>
              </select>

Und hier der ASP Code:
<%
Name = request.form("Name")
Absemail = request.form("email")
Vorname= request.form("Vorname")
Anfrage= request.form("Anfrage")
Empfaenger=request.form("Empfaenger")

IF (Name="") THEN
ErrMsg = ErrMsg+"Bitte geben Sie ihren Namen ein!<br>"
end if
IF (Vorname="") THEN
ErrMsg = ErrMsg+"Bitte geben Sie ihren Vornamen ein!<br>"
end if
IF Instr(AbsEmail,"@") = 0 or Instr(AbsEmail,".") = 0 or (Absemail="")
THEN
ErrMsg = ErrMsg+"Bitte geben Sie eine g�ltige e-mail Adresse ein!<br>"
end if
IF (Anfrage="") THEN
ErrMsg = ErrMsg+"Bitte geben Sie eine Anfrage ein!<br>"

End If


if (errmsg="") then

Set Mail = Server.CreateObject("Persits.MailSender") 
Mail.Host = "mail.utanet.at" 
Mail.From = Absemail 
Mail.FromName = Name
Mail.AddAddress  Empfaenger, "Steiner" 

Mail.Subject = "Anfrage von Homepage"


BodyMsg = BodyMsg + "Name = " & Name & Chr(10)
BodyMsg = BodyMsg + "Vorname = " & Vorname & Chr(10) 
BodyMsg = BodyMsg + "Email = " & Absemail & Chr(10)
BodyMsg = BodyMsg + "" & Chr(10)
BodyMsg = BodyMsg + Anfrage & Chr(10)


Mail.Body = BodyMsg

On Error Resume Next 
Mail.Send 
If Err <> 0 Then 
ErrMsg = "Ihre Anfrage konnt aufgrund folgenden Fehlers nicht gesendet
werden:" & Err.Description 
Else
ErrMsg = "Ihre Anfrage wurde erfolgreich gesendet!<BR>"
ErrMsg = ErrMsg + "Danke f�r Ihr Interesse!"

End If
Meldung()
else Meldung()
end if
function Meldung
end function


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
[aspdebeginners] Problem mit mail-Formular

Antwort per Email an
