artgalerie

<% ' FP_ASP ASP-Code, der von einer FrontPage-Komponente automatisch generiert wurde. Nicht verändern. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 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:",_ "artgalerie.htm",_ "Zurück zum Formular" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> artgalerie

      ars vivendi - die Kunst zu leben


	sport		stadtansichten		lebenskunst		...and more

~ Preise auf Anfrage ~

Mein Service für Sie:

Gerne bringe ich eine von Ihnen gewünschte Auswahl meiner Werke zu Ihnen nach Hause.
    Ob in ihren Wohnräumen oder in ihrem Büro, Sie können in Ruhe vor Ort entscheiden
    welches Bild Ihren Wünschen entspricht.
    Natürlich unverbindlich!