Contact presse

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

Prénom

Nom

Rédaction

Veuillez indiquer un contact pour pouvoir vous répondre

Adresse e-mail

et/ou

numéro de téléphone

Votre message

Envoyer

Les rubriques marquées d'une * sont obligatoires

Hochland SE
Kemptener Straße 17
88178 Heimenkirch
Telefon +49 (0) 8381 502-0

<% 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") editorial_department_temp = Request.Form("editorial_department") mailrecipient_temp = "petra.berners@hochland.com" 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.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 Pressekontaktformular ausgefüllt und folgende Angaben gemacht:
Votre message	" & message_temp & "

Absender:

Titre	" & salutation_temp & "
Nom	" & lastname_temp & "
Prénom	" & firstname_temp & "
Rédaction	" & editorial_department_temp & "
numéro de téléphone	" & phone_temp & "
Adresse e-mail	" & email_temp & "

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

<% Else Set my_Mail = Nothing %>

<% End If End If %>

retour