<% ' FP_ASP ASP, die von einer FrontPage-Komponente automatisch generiert wurde. Nicht Editieren. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1031 Err.Clear 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("_ConnectionString") FP_DumpError strErrorUrl, "Kann Datenbank nicht öffnen" fp_rs.Open "", 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(0) Dim arFormDBFields0(0) Dim arFormValues0(0) FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 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 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> JPHeizung Feedback

 

             Meister - Innungsbetrieb                

- NOTDIENST -

Home Feedback Inhalt

 Feedback
 

 

 

 

  - weishaupt -

Bitte teilen Sie uns mit, was Sie von unserer Website, unserer Organisation, sowie von unseren Produkten und Serviceangeboten halten. Bitte sagen Sie uns auch, wie wir Sie erreichen können, falls wir Fragen haben.

Kommentar

Kategorie

Kontaktinformation

Name
Organisation
Telefon
Fax
E-Mail

 

Senden Sie E-Mail mit Fragen oder Kommentaren zu dieser Website an:  
Copyright © 2003 Jörg Peters Heizungsbau
Stand: 03. Februar 2003