<% If Request.Form("FormMode") = "senden" Then strFirma = Request.Form("firma") strName = Request.Form("name") strAdresse = Request.Form("adresse") strOrtLand = Request.Form("ort") strPlz = Request.Form("plz") strTelefon = Request.Form("telefon") strEmail = Request.Form("mail") strFax = Request.Form("fax") strWebpage = Request.Form("webpage") strNewsletter = Request.Form("news") strNachricht = Request.Form("nachricht") strBodyText = strBodyText & vbcrlf strBodyText = strBodyText & "Firma : " & strFirma & vbcrlf strBodyText = strBodyText & "Name : " & strName & vbcrlf strBodyText = strBodyText & "Adresse : " & strAdresse & vbcrlf strBodyText = strBodyText & "Ort : " & strOrtLand & vbcrlf strBodyText = strBodyText & "Plz : " & strPlz & vbcrlf strBodyText = strBodyText & "Telefon : " & strTelefon & vbcrlf strBodyText = strBodyText & "Fax : " & strFax & vbcrlf strBodyText = strBodyText & "E-Mail : " & strEmail & vbcrlf strBodyText = strBodyText & "Webpage : " & strWebpage & vbcrlf strBodyText = strBodyText & "Newsletter : " & strNewsletter & vbcrlf strBodyText = strBodyText & "Nachricht : " & vbcrlf & strNachricht & vbcrlf & vbcrlf & vbcrlf strBodyText = strBodyText & "Diese Formulardaten wurden am: " & Now & " gesendet." & vbcrlf Set Mailer = Server.CreateObject("SMTPsvg.Mailer") ' --- Da ASPMail standardmaessig 7 Bit Ascii verwendet, werden ' --- Umlaute normalerweise nicht korrekt angezeigt. Um dies ' --- zu umgehen, wird CharSet auf 2 gestellt. Mailer.CharSet = 2 ' --- Absender und Mailserverangaben zuweisen Mailer.Organization = "NET GmbH" Mailer.FromName = "www.net-gmbh.com" Mailer.FromAddress = "info@net-gmbh.com" Mailer.RemoteHost = "wewewe.de" ' --- Empfaenger initialisieren (muss bei mehrfachem Aufruf ' --- in Schleifen auf jeden Fall gemacht werden) Mailer.ClearAllRecipients ' --- Empfaenger hinzufuegen Mailer.AddRecipient "NET", "m.grafe@net-gmbh.com" Mailer.Subject = "Kontakt Internet (E)" ' --- Den eigentlichen Mailtext initialisieren (muss bei mehrfachem ' --- Aufruf in Schleifen auf jeden Fall gemacht werden) Mailer.ClearBodyText Mailer.BodyText = strBodyText ' --- Mit diesem Aufruf wird die Mail versendet. Der Rueckgabewert True ' --- besagt, die Mail wurde versendet. Bei False ist ein Fehler (kann mit ' --- Mailer.Response ausgelesen werden) aufgetreten. If Mailer.SendMail Then SendMail = True m_errortext = "Die eMail wurde erfolgreich versendet." Else SendMail = False m_errortext = Mailer.Response End if Set Mailer = Nothing %>

Company Profile Products Download Area Sales & Support EU Sales & Support USA Sales & Support ASIA FAQs News Trade Shows Contact   The way to Finning QM/QA Terms and Conditions		NEW ELECTRONIC TECHNOLOGY      Contact Form   Thank you very much for your mail. Your message has been sent to our office. We will respond to your inquiry within the next 24 hours. Kindest regards. Your NET-team

<%Else%>

Company Profile Products Download Area Sales & Support EU Sales & Support USA Sales & Support ASIA FAQs News Trade Shows Contact   The way to Finning QM/QA Terms and Conditions		NEW ELECTRONIC TECHNOLOGY      Contact Form   Company: *Name: *Address: *City & State: *Postal Code (Zip): Telephone: Fax: *E-mail: Webpage: *Mandatory Fields   Please keep me informed of any new developments.   Message:     Data protection statement: In order for your E-mail to be processed, you must agree to the following data protection statement: I hereby declare that I agree to my data being stored and analysed electronically by NET-GmbH. I understand that my data will not be passed to third parties without my consent. All data shall be treated as confidential.        Contact Addresses   NET Vertriebsgesellschaft mbH Lerchenberg 7 D-86923 Finning, Germany Fon: +49 (0)88 06 - 92 34 - 0 Fax: +49 (0)88 06 - 92 34 -77 E-mail: info@net-gmbh.com NET USA, Inc. 3037 ­ 45th Street Highland IN 46322, USA Telephone: (219) 934-9042 Fax: (219) 934-9047 Toll-free: 800 266 5906 E-mail: info@net-usa-inc.com NET Japan Co., Ltd. 8F Shin-Yokohama Meguro Bldg, 3-22-5 Shin-Yokohama, Kohoku-ku, Yokohama ­ shi 222-0033, JAPAN Phone: +81(0) 45 / 478 - 1020 Fax: +81(0) 45 / 476 - 2423 e -mail: s.takei@net-japan.com

<%End If%>