Hallo Liste!
Also ich hatte ein formular, das echt gut lief. Leider musste ich den
Provieder wechseln.
Der neue sage mir, dass Von der Firma persits leider kein Objekt
installiert ist und schickte mir diesen Code:
set objNewMail=server.CreateObject("prjemail.email")
objNewMail.senden empfaenger,absender,subject,body,[cc]
Set objNewMail = Nothing
Leider komm ich damit gar nicht zurecht, weil ich prjemail noch nie
geh�rt habe. Weis jemand wie man das konfiguriert? Hier ist der alte
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
