<% Response.AddHeader "cache-control", "no-store" Response.AddHeader "Pragma","no-cache" Response.Expires=0 name = request.form("name") email = request.form("email") firma = request.form("firma") tel = request.form("tel") fax = request.form("fax") anschrift = request.form("adresse") meng1 = request.form("meng1") meng2 = request.form("meng2") meng3 = request.form("meng3") meng4 = request.form("meng4") meng5 = request.form("meng5") meng6 = request.form("meng6") meng7 = request.form("meng7") meldung = request.form("meldung") if not name = "" and not anschrift = "" then sentmsg = "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf sentmsg = sentmsg & "Sie haben einen neuen Kontakt von Ihrer Website!" & vbCrLf & vbCrLf if not meldung = "" then sentmsg = sentmsg & "Der Kunde bittet um " & meldung & vbCrLf & vbCrLf end if sentmsg = sentmsg & "Besonderes Interesse hat der Kunde an:" & vbCrLf & vbCrLf if not meng1 = "" then sentmsg = sentmsg & "Euro-Pool-Paletten, Abgabemenge " & meng1 & vbCrLf end if if not meng2 = "" then sentmsg = sentmsg & "CP1 Paletten, Abgabemenge " & meng2 & vbCrLf end if if not meng3 = "" then sentmsg = sentmsg & "CP2 Paletten, Abgabemenge " & meng3 & vbCrLf end if if not meng4 = "" then sentmsg = sentmsg & "CP3 Paletten, Abgabemenge " & meng4 & vbCrLf end if if not meng5 = "" then sentmsg = sentmsg & "CP5 Paletten, Abgabemenge " & meng5 & vbCrLf end if if not meng6 = "" then sentmsg = sentmsg & "Einwegpaletten, Abgabemenge " & meng6 & vbCrLf end if if not meng7 = "" then sentmsg = sentmsg & "Sonderpaletten, Abgabemenge " & meng7 & vbCrLf end if sentmsg = sentmsg & vbCrLf & "Kontaktdaten:" & vbCrLf sentmsg = sentmsg & "Name: " & name & vbCrLf sentmsg = sentmsg & "Firma: " & firma & vbCrLf sentmsg = sentmsg & "Anschrift: " & vbCrLf & anschrift & vbCrLf sentmsg = sentmsg & "Telefon: " & tel & vbCrLf sentmsg = sentmsg & "Fax: " & fax & vbCrLf sentmsg = sentmsg & "Email: " & email & vbCrLf sentmsg = sentmsg & vbCrLf sentmsg = sentmsg & "Wir wünschen Ihnen noch einen schönen Tag!" 'Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'objCDOMail.From = "info@meissner-import-export.de" 'objCDOMail.To = "info@meissner-import-export.de" 'objCDOMail.Subject = "Neuer Kundenkontakt von Ihrer Internetseite" 'objCDOMail.Body = sentmsg 'objCDOMail.Send 'set objCDOMail = Nothing Dim objSendMail Set objSendMail = server.CreateObject("CDO.Message") With objSendMail .From = "info@meissner-import-export.de" .To = "info@meissner-import-export.de" .Subject = "Neuer Kundenkontakt von Ihrer Internetseite" .textBody = sentmsg .Send End With Set objSendMail = Nothing userip = request.servervariables("REMOTE_ADDR") 'Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'objCDOMail.From = "info@meissner-import-export.de" 'objCDOMail.To = "info@meissner-import-export.de" 'objCDOMail.Subject = "Neuer Kundenkontakt Meissner Export" 'sentmsg = sentmsg & vbCrLf & "Userip: " & userip 'objCDOMail.Body = sentmsg 'objCDOMail.Send 'set objCDOMail = Nothing end if %> Meissner Import Export
   
ÜBER UNS UNSERE PRODUKTPALETTE SO FINDEN SIE UNS KONTAKT HOME
s5.gif (127 Byte)
 

Import & Export
Holzerzeugnisse, Paletten, Kisten, handel und Vermittlungen

Meissner
Import - Export GmbH
Rosenhoferstrasse 18
92655 Grafenwöhr

Telefon: 0049 (0)9641 - 457
Telefax: 0049 (0)9641 - 3895
E-Mail: kontakt@meissner-import-export.de
http://www.meissner-import-export.de/

Handelsregister HRB 3507, Gerichtsstand Weiden
USt-ID-Nr: DE 265562120