% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. 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, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("Bestell-Formular_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Ergebnisse", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(34) Dim arFormDBFields0(34) Dim arFormValues0(34) arFormFields0(0) = "Bestellung_Telefon" arFormDBFields0(0) = "Bestellung_Telefon" arFormValues0(0) = Request("Bestellung_Telefon") arFormFields0(1) = "Bestellung_Ansprechsperson_Vorname" arFormDBFields0(1) = "Bestellung_Ansprechsperson_Vorname" arFormValues0(1) = Request("Bestellung_Ansprechsperson_Vorname") arFormFields0(2) = "Bestellung_Adresse2_Rechnung" arFormDBFields0(2) = "Bestellung_Adresse2_Rechnung" arFormValues0(2) = Request("Bestellung_Adresse2_Rechnung") arFormFields0(3) = "Bestellung_ArtNr02" arFormDBFields0(3) = "Bestellung_ArtNr02" arFormValues0(3) = Request("Bestellung_ArtNr02") arFormFields0(4) = "Bestellung_Adresse2_Lieferung" arFormDBFields0(4) = "Bestellung_Adresse2_Lieferung" arFormValues0(4) = Request("Bestellung_Adresse2_Lieferung") arFormFields0(5) = "Bestellung_Rechnungsadresse1" arFormDBFields0(5) = "Bestellung_Rechnungsadresse1" arFormValues0(5) = Request("Bestellung_Rechnungsadresse1") arFormFields0(6) = "Bestellung_Ort_Lieferung" arFormDBFields0(6) = "Bestellung_Ort_Lieferung" arFormValues0(6) = Request("Bestellung_Ort_Lieferung") arFormFields0(7) = "Bestellung_PLZ_Lieferung" arFormDBFields0(7) = "Bestellung_PLZ_Lieferung" arFormValues0(7) = Request("Bestellung_PLZ_Lieferung") arFormFields0(8) = "Bestellung_Hersteller1" arFormDBFields0(8) = "Bestellung_Hersteller1" arFormValues0(8) = Request("Bestellung_Hersteller1") arFormFields0(9) = "Bestellung_Ort_Rechnung" arFormDBFields0(9) = "Bestellung_Ort_Rechnung" arFormValues0(9) = Request("Bestellung_Ort_Rechnung") arFormFields0(10) = "Bestellung_PLZ_Rechnung" arFormDBFields0(10) = "Bestellung_PLZ_Rechnung" arFormValues0(10) = Request("Bestellung_PLZ_Rechnung") arFormFields0(11) = "Bestellung_Bemerkung" arFormDBFields0(11) = "Bestellung_Bemerkung" arFormValues0(11) = Request("Bestellung_Bemerkung") arFormFields0(12) = "Bestellung_Hersteller2" arFormDBFields0(12) = "Bestellung_Hersteller2" arFormValues0(12) = Request("Bestellung_Hersteller2") arFormFields0(13) = "Bestellung_Bestellbeschr1" arFormDBFields0(13) = "Bestellung_Bestellbeschr1" arFormValues0(13) = Request("Bestellung_Bestellbeschr1") arFormFields0(14) = "Bestellung_Bestellmenge1" arFormDBFields0(14) = "Bestellung_Bestellmenge1" arFormValues0(14) = Request("Bestellung_Bestellmenge1") arFormFields0(15) = "Bestellung_Hersteller3" arFormDBFields0(15) = "Bestellung_Hersteller3" arFormValues0(15) = Request("Bestellung_Hersteller3") arFormFields0(16) = "Bestellung_Bestellbeschr2" arFormDBFields0(16) = "Bestellung_Bestellbeschr2" arFormValues0(16) = Request("Bestellung_Bestellbeschr2") arFormFields0(17) = "Bestellung_Bestellmenge2" arFormDBFields0(17) = "Bestellung_Bestellmenge2" arFormValues0(17) = Request("Bestellung_Bestellmenge2") arFormFields0(18) = "Bestellung_ArtNr1" arFormDBFields0(18) = "Bestellung_ArtNr1" arFormValues0(18) = Request("Bestellung_ArtNr1") arFormFields0(19) = "Bestellung_Hersteller4" arFormDBFields0(19) = "Bestellung_Hersteller4" arFormValues0(19) = Request("Bestellung_Hersteller4") arFormFields0(20) = "Bestellung_Bestellmenge3" arFormDBFields0(20) = "Bestellung_Bestellmenge3" arFormValues0(20) = Request("Bestellung_Bestellmenge3") arFormFields0(21) = "Bestellung_Hersteller5" arFormDBFields0(21) = "Bestellung_Hersteller5" arFormValues0(21) = Request("Bestellung_Hersteller5") arFormFields0(22) = "Bestellung_Bestellmenge4" arFormDBFields0(22) = "Bestellung_Bestellmenge4" arFormValues0(22) = Request("Bestellung_Bestellmenge4") arFormFields0(23) = "Bestellung_ArtNr3" arFormDBFields0(23) = "Bestellung_ArtNr3" arFormValues0(23) = Request("Bestellung_ArtNr3") arFormFields0(24) = "Bestellung_Adresse_Rechnung" arFormDBFields0(24) = "Bestellung_Adresse_Rechnung" arFormValues0(24) = Request("Bestellung_Adresse_Rechnung") arFormFields0(25) = "Bestellung_Bestellmenge5" arFormDBFields0(25) = "Bestellung_Bestellmenge5" arFormValues0(25) = Request("Bestellung_Bestellmenge5") arFormFields0(26) = "Bestellung_ArtNr4" arFormDBFields0(26) = "Bestellung_ArtNr4" arFormValues0(26) = Request("Bestellung_ArtNr4") arFormFields0(27) = "Bestellung_Bestellbeschr5" arFormDBFields0(27) = "Bestellung_Bestellbeschr5" arFormValues0(27) = Request("Bestellung_Bestellbeschr5") arFormFields0(28) = "Bestellung_ArtNr5" arFormDBFields0(28) = "Bestellung_ArtNr5" arFormValues0(28) = Request("Bestellung_ArtNr5") arFormFields0(29) = "Bestellung_Bestellbeschr6" arFormDBFields0(29) = "Bestellung_Bestellbeschr6" arFormValues0(29) = Request("Bestellung_Bestellbeschr6") arFormFields0(30) = "Bestellung_Ansprechsperson_Name" arFormDBFields0(30) = "Bestellung_Ansprechsperson_Name" arFormValues0(30) = Request("Bestellung_Ansprechsperson_Name") arFormFields0(31) = "Bestellung_Bestellbeschr7" arFormDBFields0(31) = "Bestellung_Bestellbeschr7" arFormValues0(31) = Request("Bestellung_Bestellbeschr7") arFormFields0(32) = "Bestellung_Adresse_Lieferung" arFormDBFields0(32) = "Bestellung_Adresse_Lieferung" arFormValues0(32) = Request("Bestellung_Adresse_Lieferung") arFormFields0(33) = "Bestellung_Email" arFormDBFields0(33) = "Bestellung_Email" arFormValues0(33) = Request("Bestellung_Email") 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, "Zeitmarkierung" fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" 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 "Bestell-Bestaetigung.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>
| Menge | Art-Nr. | Hersteller | Artikelbezeichnung |
| Bemerkungen: | |||
| Rechnungsadresse | Lieferadresse | |||
| Firma | (nur wenn abweichend) | |||
| Name | Vorname | |||
| Adresse | ||||
| Adresse2 | ||||
| PLZ, Ort | ||||
| Land | Schweiz (Lieferung nur in der Schweiz) | |||
| Telefon | ||||
Zahlungskonditionen: 10 Tage netto / Vorauszahlung (bei Neukunden)
ACHTUNG: DIE
BESTELLUNG IST NUR ABGESENDET WENN SIE AUF DIE BESTÄTIGUNGSSEITE KOMMEN
BEI PROBLEMEN RUFEN SIE UNS AN: Tel. 032/331 22 82 oder Fax 032/331 22 52
ODER SENDEN SIE DIE BESTELLUNG PER E-MAIL info@classicline.ch
![]()