<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% strSMTPHost = "213.183.85.4" strError="" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strSMTPHost Mail.From = Request("Email") Mail.AddAddress "newsletter@lutz-elektronik.de" Mail.Subject = "NEWSLETTER" Mail.Body = "Newsletter beantragt: " & Chr(13) & Request("Name") & Chr(13) & "Email-Adresse: " & Request ("Email") On Error Resume Next Mail.Send If Err <> 0 Then strError = Err.Description End If End If Set Mail = Nothing %> <% If strError <> "" Then %>

Error: <% = strError %>

<% End If %> Unbenanntes Dokument

Anfragen
TestandOrder
Service
Bonus
Newsletter

       

Beantragen Sie unseren Newsletter damit Sie auch künftig über unsere Produkte und Serviceleistungen informiert werden
*Felder die ausgefüllt werden müssen, sind mit einem roten Sternchen gekennzeichnet.

*Name, Vorname
*E-Mail:



Ihre Daten werden vertraulich behandelt und nicht an Dritte weitergegeben.

Newsletter-Archiv:

12/2003
03/2004
12/2004