%@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 %>