:: Hadeco :: African Amaryllis ::

<% Option Explicit Dim Conn Dim RSCustomer Dim RSProduct Dim RSOrderItems Dim OrderTotal set conn = server.createobject ("adodb.connection") conn.open "AA" , "sa" , "LioN958" If IsEmpty(Session("CustomerID")) Then Conn.Execute "Insert Into OSCustomers (OrderDate) " _ & "Values ('" & Now & "')" set RSCustomer = Conn.Execute("Select Max(CustomerID) " _ & "As MaxID From OSCustomers") Session("CustomerID") = RSCustomer("MaxID") End If If Not IsEmpty(Request.Form("OKAddToCart")) Then set RSProduct = Conn.Execute("Select ProductName, Price, " _ & "Shipping From OSProducts Where ProductID = " _ & Request.Form("ProductID")) Conn.Execute "Insert Into OSCustomerOrders (CustomerID, ProductID, " _ & "ProductName, Quantity, ItemTotal) Values (" _ & Session("CustomerID") & ", " _ & Request.Form("ProductID") & ", " _ & "'" & RSProduct("ProductName") & "', " _ & Request.Form("Quantity") & ", " _ & ((Request.Form("Quantity") * RSProduct("Price")) + _ (Request.Form("Quantity") * RSProduct("Shipping"))) & ")" End If If Not IsEmpty(Request.QueryString("RemoveID")) Then Conn.Execute "Delete From OSCustomerOrders Where OrderID = " _ & Request.QueryString("RemoveID") End If Set RSOrderItems = Conn.Execute("Select OrderID, ProductID, ProductName, " _ & "Quantity, ItemTotal From OSCustomerOrders Where CustomerID = " _ & Session("CustomerID")) %> :: Hadeco :: African Amaryllis ::

Recommendations

1. Merry Christmas
2. Alfresco
3. Baby Doll
4. Rock 'n Roll
5. Rozetta

	Einleitung
	Empfehlungen
	Einkaufskorb
	Pflege Ratschläge
	Kontakt Info

Hier anklicken um weiter auszuwählen