<%@LANGUAGE=VBSCRIPT%> <%Response.Expires = 0%> <% Function SendEmail(message) sender = "serviceauftrag@grueter.ch" subject = "Serviceauftrag (grueter.ch)" on error resume next Set email = Server.CreateObject("CDONTS.Newmail") email.from = sender email.to = "info@grueter.ch" email.subject = subject email.body = message email.send If err.number <> 0 Then SendEmail = 0 Else SendEmail = 1 End If Set email = Nothing End Function fieldType = "" If Request.Form("action") = "send" Then If Request.Form("name_auftraggeber") = "" OR Request.Form("adresse_auftraggeber") = "" OR Request.Form("plzort_auftraggeber") = "" OR (Request.Form("telefon_auftraggeber") = "" AND Request.Form("natel_auftraggeber") = "") OR Request.Form("mitteilung") = "" Then fieldType = "_error" Else message = "AUFTRAGGEBER:" & vbCrLf message = message & "Name: " & Request.Form("name_auftraggeber") & vbCrLf If Request.Form("firma_auftraggeber") <> "" Then message = message & "Firma: " & Request.Form("firma_auftraggeber") & vbCrLf End If message = message & "Adresse/Ort: " & Request.Form("adresse_auftraggeber") & ", " & Request.Form("plzort_auftraggeber") & vbCrLf If Request.Form("telefon_auftraggeber") <> "" Then message = message & "Telefon: " & Request.Form("telefon_auftraggeber") & vbCrLf End If If Request.Form("fax_auftraggeber") <> "" Then message = message & "Fax: " & Request.Form("fax_auftraggeber") & vbCrLf End If If Request.Form("natel_auftraggeber") <> "" Then message = message & "Natel: " & Request.Form("natel_auftraggeber") & vbCrLf End If If Request.Form("email_auftraggeber") <> "" Then message = message & "E-Mail: " & Request.Form("email_auftraggeber") & vbCrLf & vbCrLf End If message = message & "AUSFÜHRUNGSORT (Sofern vom Auftraggeber abweichend):" & vbCrLf If Request.Form("name_ansprechperson") <> "" Then message = message & "Ansprechperson: " & Request.Form("name_ansprechperson") & vbCrLf End If If Request.Form("adresse_ansprechperson") <> "" Then If Request.Form("plzort_ansprechperson") <> "" Then message = message & "Adresse/Ort: " & Request.Form("adresse_ansprechperson") & ", " & Request.Form("plzort_ansprechperson") & vbCrLf Else message = message & "Adresse: " & Request.Form("adresse_ansprechperson") & vbCrLf End If Else If Request.Form("plzort_ansprechperson") <> "" Then message = message & "Ort: " & Request.Form("plzort_auftraggeber") & vbCrLf End If End If If Request.Form("telefon_ansprechperson") <> "" Then message = message & "Telefon: " & Request.Form("telefon_ansprechperson") & vbCrLf End If If Request.Form("fax_ansprechperson") <> "" Then message = message & "Fax: " & Request.Form("fax_ansprechperson") & vbCrLf End If If Request.Form("natel_ansprechperson") <> "" Then message = message & "Natel: " & Request.Form("natel_ansprechperson") & vbCrLf & vbCrLf End If message = message & "KURZER ARBEITSBESCHRIEB:" & vbCrLf message = message & Request.Form("mitteilung") & vbCrLf & vbCrLf If Request.Form("termin") <> "" Then message = message & "WUNSCHTERMIN:" & vbCrLf message = message & Request.Form("termin") & vbCrLf & vbCrLf End If message = message & "RECHNUNGSADRESSE (Sofern vom Auftraggeber abweichend):" & vbCrLf If Request.Form("name_rechnung") <> "" Then message = message & "Name: " & Request.Form("name_rechnung") & vbCrLf End If If Request.Form("firma_rechnung") <> "" Then message = message & "Firma: " & Request.Form("firma_rechnung") & vbCrLf End If If Request.Form("adresse_rechnung") <> "" Then If Request.Form("plzort_rechnung") <> "" Then message = message & "Adresse/Ort: " & Request.Form("adresse_rechnung") & ", " & Request.Form("plzort_rechnung") & vbCrLf Else message = message & "Adresse: " & Request.Form("adresse_rechnung") & vbCrLf End If Else If Request.Form("plzort_rechnung") <> "" Then message = message & "Ort: " & Request.Form("plzort_rechnung") & vbCrLf End If End If If Request.Form("telefon_rechnung") <> "" Then message = message & "Telefon: " & Request.Form("telefon_rechnung") & vbCrLf End If If Request.Form("fax_rechnung") <> "" Then message = message & "Fax: " & Request.Form("fax_rechnung") & vbCrLf End If If Request.Form("natel_rechnung") <> "" Then message = message & "Natel: " & Request.Form("natel_rechnung") & vbCrLf & vbCrLf End If message = message & "EIGENTÜMER (Sofern vom Auftraggeber abweichend):" & vbCrLf If Request.Form("name_eigentuemer") <> "" Then message = message & "Name: " & Request.Form("name_eigentuemer") & vbCrLf End If If Request.Form("firma_eigentuemer") <> "" Then message = message & "Firma: " & Request.Form("firma_eigentuemer") & vbCrLf End If If Request.Form("adresse_eigentuemer") <> "" Then If Request.Form("plzort_eigentuemer") <> "" Then message = message & "Adresse/Ort: " & Request.Form("adresse_eigentuemer") & ", " & Request.Form("plzort_eigentuemer") & vbCrLf Else message = message & "Adresse: " & Request.Form("adresse_eigentuemer") & vbCrLf End If Else If Request.Form("plzort_eigentuemer") <> "" Then message = message & "Ort: " & Request.Form("plzort_eigentuemer") & vbCrLf End If End If If Request.Form("telefon_eigentuemer") <> "" Then message = message & "Telefon: " & Request.Form("telefon_eigentuemer") & vbCrLf End If If Request.Form("fax_eigentuemer") <> "" Then message = message & "Fax: " & Request.Form("fax_eigentuemer") & vbCrLf End If If Request.Form("natel_eigentuemer") <> "" Then message = message & "Natel: " & Request.Form("natel_eigentuemer") & vbCrLf & vbCrLf End If If Request.Form("datum") <> "" Then message = message & "ORT/DATUM:" & vbCrLf message = message & Request.Form("datum") End If status = SendEmail(message) Response.Redirect("serviceauftrag_versand.asp?status=" & status) Response.End End If End If %> Peter Grüter AG
Peter Grüter AG Serviceauftrag
Serviceauftrag
Wir bitten Sie, alle mit * markierten Felder auszufüllen. Für die Detailabsprache werden wir, nach Erhalt dieses Formulars, umgehend mit Ihnen Kontakt aufnehmen. Sie können dieses Formular mit der Druckoption Ihres Browsers auch ausdrucken und faxen.
Auftraggeber
 Vorname, Name * " value="<%=Request.Form("name_auftraggeber")%>">  Firma ">
 Adresse * " value="<%=Request.Form("adresse_auftraggeber")%>">  PLZ/Ort * " value="<%=Request.Form("plzort_auftraggeber")%>">
 Telefon (*) " value="<%=Request.Form("telefon_auftraggeber")%>">  Fax ">
 Natel (*) " value="<%=Request.Form("natel_auftraggeber")%>">  E-Mail ">
Ausführungsort
(Sofern vom Auftraggeber abweichend)
 Ansprechperson ">    
 Adresse ">  PLZ/Ort ">
 Telefon ">  Fax ">
 Natel ">    
Kurzer Arbeitsbeschrieb *
 Wunschtermin, Zeit ">    
Rechnungsadresse
(Sofern vom Auftraggeber abweichend)
 Vorname, Name ">  Firma ">
 Adresse ">  PLZ/Ort ">
 Telefon ">  Fax ">
 Natel ">    
Eigentümer
(Sofern vom Auftraggeber abweichend)
 Vorname, Name ">  Firma ">
 Adresse ">  PLZ/Ort ">
 Telefon ">  Fax ">
 Natel ">    
 Ort, Datum ">