<%
' 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
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("kreuze1_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(10)
Dim arFormDBFields0(10)
Dim arFormValues0(10)
arFormFields0(0) = "WandkreuzNr1gross"
arFormDBFields0(0) = "WandkreuzNr1gross"
arFormValues0(0) = Request("WandkreuzNr1gross")
arFormFields0(1) = "WandkreuzNr2klein"
arFormDBFields0(1) = "WandkreuzNr2klein"
arFormValues0(1) = Request("WandkreuzNr2klein")
arFormFields0(2) = "KreuzanhaengerNr3Mondstein"
arFormDBFields0(2) = "KreuzanhaengerNr3Mondstein"
arFormValues0(2) = Request("KreuzanhaengerNr3Mondstein")
arFormFields0(3) = "Strasse"
arFormDBFields0(3) = "Strasse"
arFormValues0(3) = Request("Strasse")
arFormFields0(4) = "Vorname"
arFormDBFields0(4) = "Vorname"
arFormValues0(4) = Request("Vorname")
arFormFields0(5) = "KreuzanhaengerNr4Lapislazuli"
arFormDBFields0(5) = "KreuzanhaengerNr4Lapislazuli"
arFormValues0(5) = Request("KreuzanhaengerNr4Lapislazuli")
arFormFields0(6) = "KreuzkleindiverseSteine"
arFormDBFields0(6) = "KreuzkleindiverseSteine"
arFormValues0(6) = Request("KreuzkleindiverseSteine")
arFormFields0(7) = "Ort"
arFormDBFields0(7) = "Ort"
arFormValues0(7) = Request("Ort")
arFormFields0(8) = "Telefon"
arFormDBFields0(8) = "Telefon"
arFormValues0(8) = Request("Telefon")
arFormFields0(9) = "Nachname"
arFormDBFields0(9) = "Nachname"
arFormValues0(9) = Request("Nachname")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Benutzername"
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, "Timestamp"
fp_rs.Update
FP_DumpError strErrorUrl, "Kann Datenbank nicht aktualisieren"
fp_rs.Close
fp_conn.Close
Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
Response.Redirect "bestellung.asp"
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
New Page 1
Tsunami Wirtschaftsprojekt
Zusammen
mit der Caritas Sed Galle gibt das Projekt Waldkraiburg in Galle/Sri Lanka nach
dem Tsunami Menschen wieder Arbeit.
In
einer Golschmiede entstehen Kreuze aus 925 Silber, teilweise mit Gold verziert.
Diese
sind nach dem Entwurf der Künstlerin Irmgard Seidl dem Kreuz der Christkönig
Kirche Waldkraiburg nachempfunden.
Sie
können wählen zwischen dem geheimnisvollen Schimmern des Mondsteins und dem
tiefen, goldgesprenkelten Blau des Lapislazuli.
Auch
die Verarbeitung mit anderen Steinen ist möglich.
Füllen
Sie folgendes Formular aus und bestellen Sie Ihr Kreuz bei uns.
Die
Kreuze werden auch zum Kauf angeboten bei "Monika-Sinnliche Geschenke und
mehr", Waldkraiburg, Berlinerstr. 4
Bestellformular