Formulaire contact

<% step_temp = Request.Form("step") If step_temp = "" Then step_temp = "0" End If %> <% If step_temp = "0" Then %>









<% Elseif step_temp = "1" Then DIM sMailHost, my_Mail, sMailContent, sFile sMailHost = "mailrelay.atrivio.net" Set my_Mail = Server.CreateObject("SMTPsvg.Mailer") salutation_temp = Request.Form("salutation") firstname_temp = Request.Form("firstname") lastname_temp = Request.Form("lastname") subject_temp = Request.Form("subject") If subject_temp = "product" Then mailrecipient_temp = "standard@hochland.com " subject_text_temp = "Fragen zu Produkten" Elseif subject_temp = "promotion" Then mailrecipient_temp = "standard@hochland.com " subject_text_temp = "Aktionen/Gewinnspiele" Elseif subject_temp = "producttrade" Then mailrecipient_temp = "standard@hochland.com " subject_text_temp = "Wo bekomme ich Hochland Produkte?" Elseif subject_temp = "jobs" Then mailrecipient_temp = "standard@hochland.com " subject_text_temp = "Jobs & Karriere" Elseif subject_temp = "other" Then mailrecipient_temp = "standard@hochland.com " subject_text_temp = "Sonstiges" End If message_temp = Request.Form("message") email_temp = Request.Form("email") If email_temp = "" Then email_temp = "empty" End If phone_temp = Request.Form("phone") If phone_temp = "" Then phone_temp = "empty" End If my_Mail.CharSet = 2 my_Mail.ContentType = "text/html" my_Mail.FromName = salutation_temp & " " & lastname_temp & " " & firstname_temp my_Mail.FromAddress = email_temp my_Mail.RemoteHost = sMailHost my_Mail.Recipient = mailrecipient_temp 'my_Mail.CC = "yvonne.triebl@hochland.com" 'my_Mail.CC = "petra.berners@hochland.com;michael.ott@hochland.com;heike.kirchmann@hochland.com" my_Mail.Subject = subject_text_temp my_Mail.BodyText = "" my_Mail.BodyText = "" my_Mail.BodyText = "" my_Mail.BodyText = "" my_Mail.BodyText = "" my_Mail.BodyText = "" my_Mail.BodyText = "" my_Mail.BodyText = "" my_Mail.BodyText = "" my_Mail.BodyText = "" my_Mail.BodyText = "" my_Mail.BodyText = "" my_Mail.BodyText = "" If not phone_temp = "empty" Then my_Mail.BodyText = "" End If If not email_temp = "empty" Then my_Mail.BodyText = "" End If my_Mail.BodyText = "

Ein Besucher der Website www.hochland-group.de hat das Kontaktformular ausgefüllt und folgende Angaben gemacht:
Anliegen::	" & subject_text_temp & "
Nachricht:	" & message_temp & "
Absender:
Anrede:	" & salutation_temp & "
Nachname:	" & lastname_temp & "
Vorname:	" & firstname_temp & "
Telefon:	" & phone_temp & "
Email:	" & email_temp & "

" my_Mail.BodyText = "" 'my_Mail.AddAttachment "attachment_temp" If my_Mail.SendMail Then Set my_Mail = Nothing %>

Merci pour votre message. Nous allons immédiatement traiter votre demande et nous vous recontacterons aussi rapidement que possible. Cordialement, Fromagerie Henri Hutin S.a.r.l.

<% Else Set my_Mail = Nothing %>

Votre message n'a malheureusement pas pû être transmis. Veuillez ré-essayer s'il vous plaît.

<% End If End If %>