<% ' FP_ASP ASP, die von einer FrontPage-Komponente automatisch generiert wurde. Nicht Editieren. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Kann Verbindung nicht herstellen" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Kann Datensatzgruppe nicht erstellen" fp_conn.Open Application("feedback_ConnectionString") FP_DumpError strErrorUrl, "Kann Datenbank nicht öffnen" fp_rs.Open "Ergebnisse", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Kann Datensatzgruppe nicht öffnen" fp_rs.AddNew FP_DumpError strErrorUrl, "Kann keine neue Datensatzgruppe zu Datenbank hinzufügen" Dim arFormFields0(9) Dim arFormDBFields0(9) Dim arFormValues0(9) arFormFields0(0) = "NachrichtenTyp" arFormDBFields0(0) = "NachrichtenTyp" arFormValues0(0) = Request("NachrichtenTyp") arFormFields0(1) = "BenutzerEMail" arFormDBFields0(1) = "BenutzerEMail" arFormValues0(1) = Request("BenutzerEMail") arFormFields0(2) = "BenutzerName" arFormDBFields0(2) = "BenutzerName" arFormValues0(2) = Request("BenutzerName") arFormFields0(3) = "Kommentare" arFormDBFields0(3) = "Kommentare" arFormValues0(3) = Request("Kommentare") arFormFields0(4) = "BetreffAnderes" arFormDBFields0(4) = "BetreffAnderes" arFormValues0(4) = Request("BetreffAnderes") arFormFields0(5) = "KontaktaufnahmeAngefordert" arFormDBFields0(5) = "KontaktaufnahmeAngefordert" arFormValues0(5) = Request("KontaktaufnahmeAngefordert") arFormFields0(6) = "BenutzerTel" arFormDBFields0(6) = "BenutzerTel" arFormValues0(6) = Request("BenutzerTel") arFormFields0(7) = "Betreff" arFormDBFields0(7) = "Betreff" arFormValues0(7) = Request("Betreff") arFormFields0(8) = "BenutzerFAX" arFormDBFields0(8) = "BenutzerFAX" arFormValues0(8) = Request("BenutzerFAX") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Benutzername1" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Name_des_Remotecomputers" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browsertyp" End If FP_SaveFieldToDB fp_rs, Now, "Zeitmarkierung" fp_rs.Update FP_DumpError strErrorUrl, "Kann Datenbank nicht aktualisieren" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Formularbestätigung",_ "Vielen Dank für das Einsenden der folgenden Informationen:",_ "feedback.htm",_ "Zurück zum Formular" End If End If %> Bitte teilen Sie uns Ihre Meinung über unsere Website

  Haben Sie ein Anliegen oder wollen Sie gerne etwas los werden? Dann schreiben Sie uns, wir freuen uns über alle Kommentare und Vorschläge.

Welche Art von Kommentar möchten Sie uns senden?

Beschwerde Problem Vorschlag Anerkennung

Worüber möchten Sie uns etwas mitteilen?

            Anderes:

Geben Sie Ihren Kommentar in folgendes Feld ein:

Teilen Sie uns bitte mit, wie wir mit Ihnen Kontakt aufnehmen können:

Name
E-Mail
Telefon
FAX

Nehmen Sie bitte sobald wie möglich mit mir Kontakt auf.

zurück

Copyright © 2007 Landgasthof Lenderstuben. Alle Rechte vorbehalten.
Stand: 16. Februar 2011