<% Frage = Request("Frage") Firma = Request("Firma") Vorname = Request("Vorname") Name = Request("Name") Postfach = Request("Postfach") Strasse = Request("Strasse") PLZ = Request("PLZ") Ort = Request("Ort") Telefon = Request("Telefon") Telefax = Request("Telefax") Land = Request("Land") Email = Request("Email") sw1dg = Request("sw1dg") error = "" posField = "Frage" if sw1dg="NO" then if Name="" then error = "Sie haben keinen Namen angegeben!" posField = "Name" elseif Vorname="" then error = "Sie haben keinen Vornamen angegeben!" posField = "Vorname" elseif Strasse="" then error = "Sie haben keine Strasse angegeben!" posField = "Strasse" elseif PLZ="" then error = "Sie haben keine PLZ angegeben!" posField = "PLZ" elseif Ort="" then error = "Sie haben keine Ortschaft angegeben!" posField = "Ort" elseif Land="" then error = "Sie haben kein Land angegeben!" posField = "Land" elseif InStr(Email,"@") < 2 OR InStr(Email,"@") > (len(EMail)-5) then posField = "Email" error = "Sie haben keine gültige E-Mail Adresse eingegeben!" elseif Telefon="" then error = "Sie haben keine gültige Telefonnummer angegeben!" posField = "Telefon" else Tel = Telefon if inStr(Tel,"++") > 0 then Tel = replace(Tel,"++","00") if inStr(Tel,"+") > 0 then Tel = replace(Tel,"+","00") Tel1 = "" for i = 1 to len(Tel) x = mid(Tel,i,1) ' ------ Filter Akzeptable Zeichen für Telefonnummer-Länge if inStr("0123456789",x) > 0 then Tel1 = Tel1 & x end if ' ------ Filter Akzeptable Zeichen für Telefonnummer-Darstellung if inStr(" 0123456789",x) > 0 then Tel2 = Tel2 & x end if next ' ------ Mindestlänge der Telefonnummer (9 Zeichen mit Vorwahl) if len(Tel1) < 9 then error = "Sie haben keine gültige Telefonnummer angegeben!" posField = "Telefon" else Telefon = Tel2 ' --------- Ersetze führends 00 wieder mit einem + if left(Telefon,2) = "00" then Telefon = "+"& mid(Telefon,3) end if 'Senden DateTime = FormatDateTime(now()) msgstring = "Contactwunsch mit Reim Film Produktion GmbH // " & DateTime & VbCrLF msgstring = msgstring & "----------------------------------------------------------------------" & VbCrLF msgstring = msgstring & "Geht an: info@reimfilm.tv" & VbCrLF msgstring = msgstring & "----------------------------------------------------------------------" & VbCrLF msgstring = msgstring & "Anfrage oder Offerte" & VbCrLF msgstring = msgstring & "----------------------------------------------------------------------" & VbCrLF if Land <> "" then msgstring = msgstring & "Habe folgende Frage: " & Frage & VbCrLF end if msgstring = msgstring & "----------------------------------------------------------------------" & VbCrLF msgstring = msgstring & "Absender: " & Firma & VbCrLF msgstring = msgstring & " " & Vorname &" "& Name & VbCrLF if Postfach <> "" then msgstring = msgstring & " " & Postfach & VbCrLF end if msgstring = msgstring & " " & Strasse & VbCrLF msgstring = msgstring & " " & PLZ &" "& Ort & VbCrLF if Land <> "" then msgstring = msgstring & "Land " & Land & VbCrLF end if msgstring = msgstring & VbCrLF if Telefon <> "" then msgstring = msgstring & "Tel.: " & Telefon & VbCrLF end if if Telefax <> "" then msgstring = msgstring & "Fax.: " & Telefax & VbCrLF end if msgstring = msgstring & VbCrLF msgstring = msgstring & "EMail: " & Email & VbCrLF & VbCrLF msgstring = msgstring & "----------------------------------------------------------------------" & VbCrLF msgstring = msgstring & "(C) by Reim Film Produktion GmbH Internet Services" set smtp = Server.CreateObject("Persits.MailSender") smtp.Host = "localhost" smtp.AddAddress "info@reimfilm.ch" smtp.From = Email smtp.FromName = Name &", "& Vorname smtp.Subject = "Reim Film Produktion GmbH" smtp.Body = msgstring on error resume next smtp.Send if err then error = err.Description else response.redirect("contact_danke.html") end if end if end if end if %> Reim Film Production
 
  Contact
 
" &VbCrLf) end if %>
   
Ich habe folgende Anfrage:
leer
leer
leer leer leerleer leer leer
Firma* Postfach Telefon*
Name* Vorname* Telefax
Strasse* Ort* E-mail*
PLZ* Land*  
           
<% if error <> "" then response.write("
"& error &"