<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True %> <% Const Preis_Knobli = 2 Const Preis_Peperoncini = 2 Const Preis_Zwiebeln = 1 Const Preis_Oliven = 2 Const Preis_Champignons = 2 Const Preis_Ananas = 3 Const Preis_FrenchDressing = 0 Const Preis_ItalianDressing = 0 Const Kurzzeichen_Knobli = "+ Knoblauch" Const Kurzzeichen_Peperoncini = "+ Peperoncini" Const Kurzzeichen_Zwiebeln = "+ Zwiebeln" Const Kurzzeichen_Oliven = "+ Oliven" Const Kurzzeichen_Champignons = "+ Pilze" Const Kurzzeichen_Ananas = "+ Ananas" Const Kurzzeichen_FrenchDressing = "+ französische Sauce" Const Kurzzeichen_ItalianDressing = "+ italienische Sauce" %> <% If Session("RetrieveAdresse") = 0 then Session("StoreKundenName") = Request.Cookies("KundenAdresse")("KundenName") Session("StoreKundenVorname") = Request.Cookies("KundenAdresse")("KundenVorname") Session("StoreKundenStrasse") = Request.Cookies("KundenAdresse")("KundenStrasse") Session("StoreKundenPLZ") = Request.Cookies("KundenAdresse")("KundenPLZ") Session("StoreKundenOrt") = Request.Cookies("KundenAdresse")("KundenOrt") Session("StoreKundenTelefon") = Request.Cookies("KundenAdresse")("KundenTelefon") Session("StoreKundenEMail") = Request.Cookies("KundenAdresse")("KundenEMail") Session("StoreKundenBemerkung") = Request.Cookies("KundenAdresse")("KundenBemerkung") Session("RetrieveAdresse")=1 else If Request.QueryString("Answer") = "Bestellung" then Response.Cookies("KundenAdresse")("KundenName") = Request.Form("KundeName") Response.Cookies("KundenAdresse")("KundenVorname") = Request.Form("KundeVorname") Response.Cookies("KundenAdresse")("KundenStrasse") = Request.Form("KundeStrasse") Response.Cookies("KundenAdresse")("KundenPLZ") = Request.Form("KundePLZ") Response.Cookies("KundenAdresse")("KundenOrt") = Request.Form("KundeOrt") Response.Cookies("KundenAdresse")("KundenTelefon") = Request.Form("KundeTelefon") Response.Cookies("KundenAdresse")("KundenEMail") = Request.Form("KundeEMail") Response.Cookies("KundenAdresse")("KundenBemerkung") = Request.Form("KundeBemerkung") Response.Cookies("KundenAdresse").Expires = Date()+30 Session("StoreKundenName") = Request.Form("KundeName") Session("StoreKundenVorname") = Request.Form("KundeVorname") Session("StoreKundenStrasse") = Request.Form("KundeStrasse") Session("StoreKundenPLZ") = Request.Form("KundePLZ") Session("StoreKundenOrt") = Request.Form("KundeOrt") Session("StoreKundenTelefon") = Request.Form("KundeTelefon") Session("StoreKundenEMail") = Request.Form("KundeEMail") Session("StoreKundenBemerkung") = Request.Form("KundeBemerkung") end if end if %> Document Title


my order

<% Session("TotalBetrag")=0 Session("TotalZusatz")=0 %> <% Set databaseConnection = Server.CreateObject("ADODB.Connection") databaseConnection.Open "Driver={Microsoft Access Driver (*.mdb)};" &_ "DBQ=PizzaWebJanni.mdb;" &_ "DefaultDir=" & server.mappath("../database") & ";" &_ "Uid=Admin;Pwd=;" %> <% Dim Iterate Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'pizza_gru' ORDER BY ArtikelOrder" RS.Open SQLString, DatabaseConnection %> <% '------------------ Show Pizza Orderings --------------------------------------- Do Until RS.EOF Iterate = Iterate + 1 If (Request.Form(RS("FeldName") & Iterate))<>"" then If Isnumeric(Request.Form(RS("FeldName") & Iterate)) then If Request.Form(RS("FeldName") & Iterate) > 0 then Session("PZAAnzahl" & Iterate) = Request.Form(RS("FeldName") & Iterate) Session("PZAText" & Iterate) = RS("Bezeichnung") Session("PZABetrag" & Iterate) = FormatNumber(RS("Betrag")) Session("PZAKurzzeichen" & Iterate) = RS("Kurzzeichen") End If End If End If IF IsNumeric(Session("PZAAnzahl" & Iterate)) then IF Session("PZAAnzahl" & Iterate) > 0 then IF Request.Form("PZACheck" & Iterate)<>"1" then IF Request.Form("PZAKommentar" & Iterate)<>"" then Session("PZAKommentar" & Iterate) = Request.Form("PZAKommentar" & Iterate) END IF %>
<%=Session("PZAAnzahl" & Iterate)%> <%=Session("PZAText" & Iterate)%> chf <%=FormatNumber(Session("PZABetrag" & Iterate))%> chf <%=FormatNumber(Session("PZABetrag" & Iterate)*Session("PZAAnzahl" & Iterate))%>
" size="2"> " size="25"> " size="7"> " size="7">
+/-

<% Session("TotalBetrag")=Session("TotalBetrag") + (Session("PZAAnzahl" & Iterate) * Session("PZABetrag" & Iterate)) else Session("PZAAnzahl" & Iterate) = 0 end if end if end if RS.MoveNext Loop %>

<% '------------------ Show Pasta Orderings --------------------------------------- Iterate = 0 Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'tre_e_pasta_gru' ORDER BY ArtikelOrder" RS.Open SQLString, DatabaseConnection Do Until RS.EOF Iterate = Iterate + 1 If (Request.Form(RS("FeldName") & Iterate))<>"" then If Isnumeric(Request.Form(RS("FeldName") & Iterate)) then If Request.Form(RS("FeldName") & Iterate) > 0 then Session("PTAAnzahl" & Iterate) = Request.Form(RS("FeldName") & Iterate) Session("PTAText" & Iterate) = RS("Bezeichnung") Session("PTABetrag" & Iterate) = FormatNumber(RS("Betrag")) Session("PTAKurzzeichen" & Iterate) = RS("Kurzzeichen") End If End If End If If isnumeric(Session("PTAAnzahl" & Iterate)) then if Session("PTAAnzahl" & Iterate) > 0 then if Request.Form("PTACheck" & Iterate)<>"1" then If Request.Form("PTAKommentar" & Iterate)<>"" then Session("PTAKommentar" & Iterate) = Request.Form("PTAKommentar" & Iterate) end if %>
<%=Session("PTAAnzahl" & Iterate)%> <%=Session("PTAText" & Iterate)%> chf <%=FormatNumber(Session("PTABetrag" & Iterate))%> chf <%=FormatNumber(Session("PTABetrag" & Iterate)*Session("PTAAnzahl" & Iterate))%>
" size="2"> " size="25"> " size="7"> " size="7">
" OnFocus="this.select()" style="font-family: Arial">

<% Session("TotalBetrag")=Session("TotalBetrag") + (Session("PTAAnzahl" & Iterate) * Session("PTABetrag" & Iterate)) else Session("PTAAnzahl" & Iterate) = 0 end if end if end if RS.MoveNext Loop %>

<% '------------------ Show Salate Orderings --------------------------------------- Iterate = 0 Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'salad_gru' ORDER BY ArtikelOrder" RS.Open SQLString, DatabaseConnection Do Until RS.EOF Iterate = Iterate + 1 If (Request.Form(RS("FeldName") & Iterate))<>"" then If Isnumeric(Request.Form(RS("FeldName") & Iterate)) then If Request.Form(RS("FeldName") & Iterate) > 0 then Session("SALAnzahl" & Iterate) = Request.Form(RS("FeldName") & Iterate) Session("SALText" & Iterate) = RS("Bezeichnung") Session("SALBetrag" & Iterate) = FormatNumber(RS("Betrag")) Session("SALKurzzeichen" & Iterate) = RS("Kurzzeichen") End If End If End If If isnumeric(Session("SALAnzahl" & Iterate)) then if Session("SALAnzahl" & Iterate) > 0 then if Request.Form("SALCheck" & Iterate)<>"1" then If Request.Form("SALKommentar" & Iterate)<>"" then Session("SALKommentar" & Iterate) = Request.Form("SALKommentar" & Iterate) end if %>
<%=Session("SALAnzahl" & Iterate)%> <%=Session("SALText" & Iterate)%> chf <%=FormatNumber(Session("SALBetrag" & Iterate))%> chf <%=FormatNumber(Session("SALBetrag" & Iterate)*Session("SALAnzahl" & Iterate))%>
" size="2"> " size="25"> " size="7"> " size="7">
+/-

<% Session("TotalBetrag")=Session("TotalBetrag") + (Session("SALAnzahl" & Iterate) * Session("SALBetrag" & Iterate)) else Session("SALAnzahl" & Iterate) = 0 end if end if end if RS.MoveNext Loop %>

<% '------------------ Show Desserts Orderings --------------------------------------- Iterate = 0 Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'dessert_gru' ORDER BY ArtikelOrder" RS.Open SQLString, DatabaseConnection Do Until RS.EOF Iterate = Iterate + 1 If (Request.Form(RS("FeldName") & Iterate))<>"" then If Isnumeric(Request.Form(RS("FeldName") & Iterate)) then If Request.Form(RS("FeldName") & Iterate) > 0 then Session("DESAnzahl" & Iterate) = Request.Form(RS("FeldName") & Iterate) Session("DESText" & Iterate) = RS("Bezeichnung") Session("DESBetrag" & Iterate) = FormatNumber(RS("Betrag")) Session("DESKurzzeichen" & Iterate) = RS("Kurzzeichen") End If End If End If If isnumeric(Session("DESAnzahl" & Iterate)) then if Session("DESAnzahl" & Iterate) > 0 then if Request.Form("DESCheck" & Iterate)<>"1" then If Request.Form("DESKommentar" & Iterate)<>"" then Session("DESKommentar" & Iterate) = Request.Form("DESKommentar" & Iterate) end if %>
<%=Session("DESAnzahl" & Iterate)%> <%=Session("DESText" & Iterate)%> chf <%=FormatNumber(Session("DESBetrag" & Iterate))%> chf <%=FormatNumber(Session("DESBetrag" & Iterate)*Session("DESAnzahl" & Iterate))%>
" size="2"> " size="25"> " size="7"> " size="7">
" OnFocus="this.select()" style="font-family: Arial">

<% Session("TotalBetrag")=Session("TotalBetrag") + (Session("DESAnzahl" & Iterate) * Session("DESBetrag" & Iterate)) else Session("DESAnzahl" & Iterate) = 0 end if end if end if RS.MoveNext Loop %>

<% '------------------ Show Getränke Orderings --------------------------------------- Iterate = 0 Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'getränk_gru' ORDER BY ArtikelOrder" RS.Open SQLString, DatabaseConnection Do Until RS.EOF Iterate = Iterate + 1 If (Request.Form(RS("FeldName") & Iterate))<>"" then If Isnumeric(Request.Form(RS("FeldName") & Iterate)) then If Request.Form(RS("FeldName") & Iterate) > 0 then Session("GETAnzahl" & Iterate) = Request.Form(RS("FeldName") & Iterate) Session("GETText" & Iterate) = RS("Bezeichnung") Session("GETBetrag" & Iterate) = FormatNumber(RS("Betrag")) Session("GETKurzzeichen" & Iterate) = RS("Kurzzeichen") End If End If End If If isnumeric(Session("GETAnzahl" & Iterate)) then if Session("GETAnzahl" & Iterate) > 0 then if Request.Form("GETCheck" & Iterate)<>"1" then If Request.Form("GETKommentar" & Iterate)<>"" then Session("GETKommentar" & Iterate) = Request.Form("GETKommentar" & Iterate) end if %>
<%=Session("GETAnzahl" & Iterate)%> <%=Session("GETText" & Iterate)%> chf <%=FormatNumber(Session("GETBetrag" & Iterate))%> chf <%=FormatNumber(Session("GETBetrag" & Iterate)*Session("GETAnzahl" & Iterate))%>
" size="2"> " size="25"> " size="7"> " size="7">
" OnFocus="this.select()" style="font-family: Arial">
<% Session("TotalBetrag")=Session("TotalBetrag") + (Session("GETAnzahl" & Iterate) * Session("GETBetrag" & Iterate)) else Session("GETAnzahl" & Iterate) = 0 end if end if end if RS.MoveNext Loop %>

<% '------------------ Show Zigaretten Orderings --------------------------------------- Iterate = 0 Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'smo_king_gru' ORDER BY ArtikelOrder" RS.Open SQLString, DatabaseConnection Do Until RS.EOF Iterate = Iterate + 1 If (Request.Form(RS("FeldName") & Iterate))<>"" then If Isnumeric(Request.Form(RS("FeldName") & Iterate)) then If Request.Form(RS("FeldName") & Iterate) > 0 then Session("ZIGAnzahl" & Iterate) = Request.Form(RS("FeldName") & Iterate) Session("ZIGText" & Iterate) = RS("Bezeichnung") Session("ZIGBetrag" & Iterate) = FormatNumber(RS("Betrag")) Session("ZIGKurzzeichen" & Iterate) = RS("Kurzzeichen") End If End If End If If isnumeric(Session("ZIGAnzahl" & Iterate)) then if Session("ZIGAnzahl" & Iterate) > 0 then if Request.Form("ZIGCheck" & Iterate)<>"1" then If Request.Form("ZIGKommentar" & Iterate)<>"" then Session("ZIGKommentar" & Iterate) = Request.Form("ZIGKommentar" & Iterate) end if %>
<%=Session("ZIGAnzahl" & Iterate)%> <%=Session("ZIGText" & Iterate)%> chf <%=FormatNumber(Session("ZIGBetrag" & Iterate))%> chf <%=FormatNumber(Session("ZIGBetrag" & Iterate)*Session("ZIGAnzahl" & Iterate))%>
" size="2"> " size="25"> " size="7"> " size="7">
" OnFocus="this.select()" style="font-family: Arial">
<% Session("TotalBetrag")=Session("TotalBetrag") + (Session("ZIGAnzahl" & Iterate) * Session("ZIGBetrag" & Iterate)) else Session("ZIGAnzahl" & Iterate) = 0 end if end if end if RS.MoveNext Loop %>

total zusätze chf <%=FormatNumber(Session("TotalZusatz"))%>

total betrag chf <%=FormatNumber(Session("TotalBetrag")+Session("TotalZusatz"))%>
"

name " OnFocus="this.select()" style="font-family: Arial">
vorname " OnFocus="this.select()" style="font-family: Arial">
strasse " OnFocus="this.select()" style="font-family: Arial">
plz / ort " OnFocus="this.select()" style="font-family: Arial"> - " OnFocus="this.select()" style="font-family: Arial">
telefon " OnFocus="this.select()" style="font-family: Arial">
e-mail " OnFocus="this.select()" style="font-family: Arial">
bemerkung
     


<% If Request.QueryString("Answer") = "Bestellung" then If Session("StoreKundenName") = "" then Response.Redirect "FalscheAdresse.asp" end if If Session("StoreKundenVorname") = "" then Response.Redirect "FalscheAdresse.asp" end if If Session("StoreKundenStrasse") = "" then Response.Redirect "FalscheAdresse.asp" end if If Session("StoreKundenPLZ") = "" then Response.Redirect "FalscheAdresse.asp" end if If Session("StoreKundenOrt") = "" then Response.Redirect "FalscheAdresse.asp" end if If Session("StoreKundenTelefon") = "" then Response.Redirect "FalscheAdresse.asp" end if If Session("StoreKundenEMail") = "" then Response.Redirect "FalscheAdresse.asp" end if Session("StoreKundenBemerkung")=Replace(Session("StoreKundenBemerkung"),CHR(13)&CHR(10)," ") '------------------ Retrieve Customers Adress --------------------------------------- MyOwnString = Session("StoreKundenName") & " " & Session("StoreKundenVorname") & "
" MyOwnString = MyOwnString & Session("StoreKundenStrasse") & "
" MyOwnString = MyOwnString & Session("StoreKundenPLZ") & " " & Session("StoreKundenOrt") & "
" MyOwnString = MyOwnString & Session("StoreKundenTelefon") & "
" MyOwnString = MyOwnString & Session("StoreKundenEMail") & "
" MyOwnString = MyOwnString & Session("StoreKundenBemerkung") & "
" MyOwnString = MyOwnString & "
" MyOwnString = MyOwnString & "
" MyOwnCookyString = CHR(13) & CHR(10) & "A;" & Session("StoreKundenName") & CHR(13) & CHR(10) MyOwnCookyString = MyOwnCookyString & "A;" & Session("StoreKundenVorname") & CHR(13) & CHR(10) MyOwnCookyString = MyOwnCookyString & "A;" & Session("StoreKundenStrasse") & CHR(13) & CHR(10) MyOwnCookyString = MyOwnCookyString & "A;" & Session("StoreKundenPLZ") & CHR(13) & CHR(10) MyOwnCookyString = MyOwnCookyString & "A;" & Session("StoreKundenOrt") & CHR(13) & CHR(10) MyOwnCookyString = MyOwnCookyString & "A;" & Session("StoreKundenTelefon") & CHR(13) & CHR(10) MyOwnCookyString = MyOwnCookyString & "A;" & Session("StoreKundenEMail") & CHR(13) & CHR(10) MyOwnCookyString = MyOwnCookyString & "K;" & Session("StoreKundenBemerkung") & CHR(13) & CHR(10) MyOwnCookyString = MyOwnCookyString & "D;" & CDbl(Now) & CHR(13) & CHR(10) '------------------ Retrieve Pizza Orderings --------------------------------------- Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'pizza_gru' " RS.Open SQLString, DatabaseConnection Iterate=0 Do Until RS.EOF Iterate = Iterate + 1 If isnumeric(Session("PZAAnzahl" & Iterate)) then if Session("PZAAnzahl" & Iterate) > 0 then MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "
" & Session("PZAAnzahl" & Iterate) & "" & Session("PZAText" & Iterate) & "SFr. " & FormatNumber(Session("PZABetrag" & Iterate)) & "SFr. " & FormatNumber(Session("PZABetrag" & Iterate)*Session("PZAAnzahl" & Iterate)) & "
" & " " & "" & Session("PZAKommentar" & Iterate) & "
" MyOwnString = MyOwnString & "
" MyOwnCookyString = MyOwnCookyString & "B;" & Session("PZAAnzahl" & Iterate) & ";" & Session("PZAKurzzeichen" & Iterate) & ";" & FormatNumber(Session("PZABetrag" & Iterate)*Session("PZAAnzahl" & Iterate)) & CHR(13) & CHR(10) MyOwnCookyString = MyOwnCookyString & "Z;" & Session("PZAZusatzAnzahl" & Iterate) & ";" & Session("PZAZusatzKurzzeichen" & Iterate) & ";" & Session("PZAZusatzBetrag" & Iterate) & CHR(13) & CHR(10) end if end if RS.MoveNext Loop '------------------ Retrieve Pasta Orderings --------------------------------------- Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'tre_e_pasta_gru' " RS.Open SQLString, DatabaseConnection Iterate=0 Do Until RS.EOF Iterate = Iterate + 1 If isnumeric(Session("PTAAnzahl" & Iterate)) then if Session("PTAAnzahl" & Iterate) > 0 then MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "
" & Session("PTAAnzahl" & Iterate) & "" & Session("PTAText" & Iterate) & "SFr. " & FormatNumber(Session("PTABetrag" & Iterate)) & "SFr. " & FormatNumber(Session("PTABetrag" & Iterate)*Session("PTAAnzahl" & Iterate)) & "
" & " " & "" & Session("PTAKommentar" & Iterate) & "
" MyOwnString = MyOwnString & "
" MyOwnCookyString = MyOwnCookyString & "B;" & Session("PTAAnzahl" & Iterate) & ";" & Session("PTAKurzzeichen" & Iterate) & ";" & FormatNumber(Session("PTABetrag" & Iterate)*Session("PTAAnzahl" & Iterate)) & CHR(13) & CHR(10) end if end if RS.MoveNext Loop '------------------ Retrieve Salate Orderings --------------------------------------- Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'salad_gru' " RS.Open SQLString, DatabaseConnection Iterate=0 Do Until RS.EOF Iterate = Iterate + 1 If isnumeric(Session("SALAnzahl" & Iterate)) then if Session("SALAnzahl" & Iterate) > 0 then MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "
" & Session("SALAnzahl" & Iterate) & "" & Session("SALText" & Iterate) & "SFr. " & FormatNumber(Session("SALBetrag" & Iterate)) & "SFr. " & FormatNumber(Session("SALBetrag" & Iterate)*Session("SALAnzahl" & Iterate)) & "
" & " " & "" & Session("SALKommentar" & Iterate) & "
" MyOwnString = MyOwnString & "
" MyOwnCookyString = MyOwnCookyString & "B;" & Session("SALAnzahl" & Iterate) & ";" & Session("SALKurzzeichen" & Iterate) & ";" & FormatNumber(Session("SALBetrag" & Iterate)*Session("SALAnzahl" & Iterate)) & CHR(13) & CHR(10) MyOwnCookyString = MyOwnCookyString & "Z;" & Session("SALZusatzAnzahl" & Iterate) & ";" & Session("SALZusatzKurzzeichen" & Iterate) & ";" & Session("SALZusatzBetrag" & Iterate) & CHR(13) & CHR(10) end if end if RS.MoveNext Loop '------------------ Retrieve Dessert Orderings --------------------------------------- Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'dessert_gru' " RS.Open SQLString, DatabaseConnection Iterate=0 Do Until RS.EOF Iterate = Iterate + 1 If isnumeric(Session("DESAnzahl" & Iterate)) then if Session("DESAnzahl" & Iterate) > 0 then MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "
" & Session("DESAnzahl" & Iterate) & "" & Session("DESText" & Iterate) & "SFr. " & FormatNumber(Session("DESBetrag" & Iterate)) & "SFr. " & FormatNumber(Session("DESBetrag" & Iterate)*Session("DESAnzahl" & Iterate)) & "
" & " " & "" & Session("DESKommentar" & Iterate) & "
" MyOwnString = MyOwnString & "
" MyOwnCookyString = MyOwnCookyString & "B;" & Session("DESAnzahl" & Iterate) & ";" & Session("DESKurzzeichen" & Iterate) & ";" & FormatNumber(Session("DESBetrag" & Iterate) * Session("DESAnzahl" & Iterate)) & CHR(13) & CHR(10) end if end if RS.MoveNext Loop '------------------ Retrieve Getränke Orderings --------------------------------------- Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'getränk_gru' " RS.Open SQLString, DatabaseConnection Iterate=0 Do Until RS.EOF Iterate = Iterate + 1 If isnumeric(Session("GETAnzahl" & Iterate)) then if Session("GETAnzahl" & Iterate) > 0 then MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "
" & Session("GETAnzahl" & Iterate) & "" & Session("GETText" & Iterate) & "SFr. " & FormatNumber(Session("GETBetrag" & Iterate)) & "SFr. " & FormatNumber(Session("GETBetrag" & Iterate)*Session("GETAnzahl" & Iterate)) & "
" & " " & "" & Session("GETKommentar" & Iterate) & "
" MyOwnString = MyOwnString & "
" MyOwnString = MyOwnString & "
" MyOwnCookyString = MyOwnCookyString & "B;" & Session("GETAnzahl" & Iterate) & ";" & Session("GETKurzzeichen" & Iterate) & ";" & FormatNumber(Session("GETBetrag" & Iterate) * Session("GETAnzahl" & Iterate)) & CHR(13) & CHR(10) end if end if RS.MoveNext Loop '------------------ Retrieve Zigaretten Orderings --------------------------------------- Set RS = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM ArtikelJanniPizza WHERE Gruppe = 'smo_king_gru' " RS.Open SQLString, DatabaseConnection Iterate=0 Do Until RS.EOF Iterate = Iterate + 1 If isnumeric(Session("ZIGAnzahl" & Iterate)) then if Session("ZIGAnzahl" & Iterate) > 0 then MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "
" & Session("ZIGAnzahl" & Iterate) & "" & Session("ZIGText" & Iterate) & "SFr. " & FormatNumber(Session("ZIGBetrag" & Iterate),2) & "SFr. " & FormatNumber(Session("ZIGBetrag" & Iterate)*Session("ZIGAnzahl" & Iterate),2) & "
" & " " & "" & Session("ZIGKommentar" & Iterate) & "
" MyOwnString = MyOwnString & "
" MyOwnString = MyOwnString & "
" MyOwnCookyString = MyOwnCookyString & "B;" & Session("ZIGAnzahl" & Iterate) & ";" & Session("ZIGKurzzeichen" & Iterate) & ";" & FormatNumber(Session("ZIGBetrag" & Iterate) * Session("ZIGAnzahl" & Iterate)) & CHR(13) & CHR(10) end if end if RS.MoveNext Loop '------------------ Display Total --------------------------------------- MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "" MyOwnString = MyOwnString & "
" & "Total Zusätze" & " SFr. " & FormatNumber(Session("TotalZusatz"),2) & "
" & "Total" & " SFr. " & FormatNumber(Session("TotalBetrag") + Session("TotalZusatz"),2) & "
" MyOwnString = MyOwnString & "
" MyOwnCookyString = MyOwnCookyString & "T;" & FormatNumber(Session("TotalBetrag") + Session("TotalZusatz"),2) & CHR(13) & CHR(10) '------------------ Fax the Order --------------------------------------- ' Dim objNewMail ' Set objNewMail = Server.CreateObject("CDONTS.NewMail") ' objNewMail.From = "fist-baratta@financial-solutions.ch" ' objNewMail.To = Request.Form("KundeFaxNummer") & "@faxaway.com" ' objNewMail.Bcc = "fist-baratta@financial-solutions.ch" ' objNewMail.Subject = "Bestellung via PizzaWeb mittels CDONTS" ' objNewMail.BodyFormat = 0 ' objNewMail.MailFormat = 0 ' objNewMail.Body = MyOwnString ' objNewMail.Send '------------------ Redirect to Thanks HTML --------------------------------------- ' response.write "Fax gesandt" & "
" ' response.write MyOwnString DatabaseConnection.Close %> <% Set databaseConnection = Server.CreateObject("ADODB.Connection") databaseConnection.Open "Driver={Microsoft Access Driver (*.mdb)};" &_ "DBQ=PizzaWebJanni.mdb;" &_ "DefaultDir=" & server.mappath("../database") & ";" &_ "Uid=Admin;Pwd=;" %> <% Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorType = 2 RS.CursorLocation = 2 RS.LockType = 2 RS.ActiveConnection = DatabaseConnection RS.Source = "Select * FROM BestellungKunde " RS.Open RS.AddNew If RS.EOF=False then RS("Datum")= Now RS("DatumLong")= Now RS("CustBestellung")= MyOwnString RS("PizzaProBestellung")= MyOwnCookyString RS.Update End If RS.Close Response.Redirect "Danke.asp" end if %> <% DatabaseConnection.Close %>