<%@LANGUAGE=VBSCRIPT%>
<%Response.Expires = 0%>
<%
If Request.QueryString("typ") <> "" Then
subjectVar = Request.QueryString("typ")
Else
subjectVar = "keineangabe"
End If
Function SendEmail(message)
sender = "kontaktformular@grueter.ch"
subject = "Kontaktformular (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("betreff") <> "" Then
subjectVar = Request.Form("betreff")
If subjectVar = "sani" Then
subjectMail = "Sali Sanitär"
ElseIf subjectVar = "rotosano" Then
subjectMail = "Rotosano"
ElseIf subjectVar = "kuhfuss" Then
subjectMail = "Kuhfuss Sanitär"
ElseIf subjectVar = "aquades" Then
subjectMail = "Aquades"
ElseIf subjectVar = "iqbiotech" Then
subjectMail = "IQ Bio-Technologies"
ElseIf subjectVar = "antirutsch" Then
subjectMail = "Anti-Rutsch"
ElseIf subjectVar = "firma" Then
subjectMail = "Peter Grüter AG"
ElseIf subjectVar = "keineangabe" Then
subjectMail = "Keine Angabe"
End If
End If
If Request.Form("name") = "" OR (Request.Form("telefon") = "" AND Request.Form("telefon_direkt") = "" AND Request.Form("natel") = "" AND Request.Form("email") = "") OR Request.Form("mitteilung") = "" Then
fieldType = "_error"
Else
message = "Name: " & Request.Form("name") & vbCrLf
If Request.Form("firma") <> "" Then
message = message & "Firma: " & Request.Form("firma") & vbCrLf
End If
If Request.Form("adresse") <> "" Then
If Request.Form("plzort") <> "" Then
message = message & "Adresse/Ort: " & Request.Form("adresse") & ", " & Request.Form("plzort") & vbCrLf
Else
message = message & "Adresse: " & Request.Form("adresse") & vbCrLf
End If
Else
If Request.Form("plzort") <> "" Then
message = message & "Ort: " & Request.Form("plzort") & vbCrLf
End If
End If
If Request.Form("telefon") <> "" Then
message = message & "Telefon: " & Request.Form("telefon") & vbCrLf
End If
If Request.Form("fax") <> "" Then
message = message & "Fax: " & Request.Form("fax") & vbCrLf
End If
If Request.Form("natel") <> "" Then
message = message & "Natel: " & Request.Form("natel") & vbCrLf
End If
If Request.Form("email") <> "" Then
message = message & "E-Mail: " & Request.Form("email") & vbCrLf
End If
If Request.Form("internet") <> "" Then
message = message & "Internet: " & Request.Form("internet") & vbCrLf & vbCrLf
End If
message = message & "Betrifft: " & subjectMail & vbCrLf
message = message & "Mitteilung: " & Request.Form("mitteilung")
status = SendEmail(message)
Response.Redirect("kontakt_formular_versand.asp?status=" & status)
Response.End
End If
End If
%>
Peter Grüter AG
Peter Grüter AG | Adlikerstr. 290 | CH-8105 Regensdorf | +41 (0)44 842 33 60 | info@grueter.ch
«Für Ihre Fragen und Anliegen stehen wir Ihnen gerne zur Verfügung»
Haben Sie Fragen oder suchen Sie nach Informationen zu einzelnen Produkten? Wir stehen
Ihnen jederzeit gerne zur Verfügung. Rufen Sie uns an oder schicken Sie uns untenstehendes Kontaktformular mit Ihren Anliegen zu.
Für einen Serviceauftrag benutzen Sie untenstehenden Link. Sie haben dann die Möglichkeit, den Auftrag sogleich online
auszufüllen und uns zu senden.
