<% '////////////////////////// VARIABLE DECLARATION /////////////////// dim PageNo ' ===== Ari8mos Selidas ================================= dim SearchName ' ===== Onoma pelath =================================== dim UID ' ===== User ID ========================================= dim UserName ' ===== User Name ======================================= dim totalRows ' ===== Sunolo apotelesmatwn bash anazhthshs ============ dim totalPages ' ===== Sunolo selidwn bash anazhthshs ================== dim myclass1, myclass2 ' ===== Boh8htikes metablhthtes ======================== dim OrderInfo ' ===== Getting Order Info ============================== dim CountOrders ' ===== Counter for Orders ============================== dim OrderID ' ===== OrderID ========================================= dim CountCost ' ===== Var pou metraei to kostos ===================== dim AllItems ' ===== Get basket Items otan OrderID <> "" ============= dim AllItemsCount ' ===== Count basket Items otan OrderID <> "" =========== dim Status ' ===== Get Rows 4 status =============================== dim StatusCount ' ===== Count Rows 4 status ============================= dim Orderby ' ===== Orderby sto SQL statement ===================== '////////////////////////// VARIABLE DECLARATION /////////////////// '============== Requesting Variables ============= Orderby = Request("Orderby") if Orderby & "" <> "" then Orderby = "Orders.OrderDate" '============== Requesting Variables ============= '============== DB Connection ==================== set oConn=Server.CreateObject("ADODB.Connection") set oRs=Server.CreateObject("ADODB.Recordset") oConn.open Application("ConStr") '============== DB Connection ==================== '============== Get Order Info ================ SQL ="SELECT DISTINCT "&_ "OrderItems.OrderID, "&_ "Orders.OrderDate, "&_ "CASE Orders.Paymethod "&_ "WHEN 0 THEN 'Πιστωτική' "&_ "WHEN 1 THEN 'Αντικαταβολή' "&_ "END AS Paymethod, "&_ "Orders.OrderDateComplete, "&_ "CASE Orders.Status "&_ "WHEN 1 THEN 'Νέα Παραγγελία' "&_ "WHEN 2 THEN 'Υπό Επεξεργασία' "&_ "WHEN 3 THEN 'Προς Αποστολή' "&_ "WHEN 4 THEN 'Ακύρωση' "&_ "WHEN 5 THEN 'Ολοκληρωμένη' "&_ "WHEN 6 THEN 'Σε Εκκρεμότητα' "&_ "WHEN 7 THEN 'Έλλειψη Προϊόντος' "&_ "END AS Status , Orders.OrderPrice, Orders.OrderExpensives, Orders.Status as StatusID, "&_ " Orders.SendAddressU, Orders.ChargeAddressU, Orders.SendAddressC, Orders.ChargeAddressC, "&_ " CASE Orders.ChargeMethod "&_ " WHEN 0 THEN 'Απόδειξη' "&_ " WHEN 1 THEN 'Τιμολόγιο' "&_ " END AS ChargeMethod, Orders.InvoiceNum "&_ "FROM ProdDescr "&_ "INNER JOIN Product ON ProdDescr.ProdDescrID = Product.ProdDescrID "&_ "INNER JOIN OrderItems ON Product.ProdID = OrderItems.ItemID "&_ "INNER JOIN Orders ON OrderItems.OrderID = Orders.OrderID WHERE Orders.UID=" & session("UserID") &" Order by Orders.OrderDate" oRs.open SQL, oConn, 3,1,1 CountOrders = oRs.Recordcount if CountOrders > 0 then OrderInfo = oRs.GetRows() oRs.Close '============== Get Order Info ================ %>

<%=SLoginLogout(lg)%>

<%=SLoginTitle(lg)%>

<%= SLoginUser(lg)%> <%= SLoginAddr(lg)%> <%= SLoginComp(lg)%> <%=SLoginHistory(lg)%> <%if CountOrders>0 then '// Αν υπάρχουν καταχωρημενες παραγγελιες /////%> <% for i=0 to CountOrders-1 if Cint(OrderID) = Cint(OrderInfo(0,i)) then myclass1 = "class='cells1'" '///// Epilegmenh order gia emfanish twn details ////// else if OrderInfo(7,i) = "5" then myclass1 = "class='form2'" '///// Oloklhrwmenh Paraggelia //////////////////////// else myclass1 = "class=""form1""" '//// Ola ta ypoloipa /////////////////////////////// end if end if%> > <% if OrderInfo(6,i) & "" <> "" then ' == E3oda apostolhs <> "" ======= if CountCost & "" <> "" then ' == Counter timwn ============== CountCost = formatnumber(CountCost + eval(Replace(OrderInfo(5,i),",",".")) + eval(Replace(OrderInfo(6,i),",",".")),2) else CountCost = formatnumber(eval(Replace(OrderInfo(5,i),",",".")) + eval(Replace(OrderInfo(6,i),",",".")),2) end if else if CountCost & "" <> "" then CountCost = formatnumber(CountCost + eval(Replace(OrderInfo(5,i),",",".")),2) else CountCost = eval(Replace(OrderInfo(5,i),",",".")) end if end if next%> <%else%> <%end if%> <%=LTitle4(lg)%> <%=LTitle5(lg)%> <%=LTitle6(lg)%> <%=LTitle7(lg)%> Status <%=LTitle8(lg)%> <%=OrderInfo(0,i)%> <%=OrderInfo(1,i)%> <%=OrderInfo(2,i)%> <%=OrderInfo(3,i)%> <%=OrderInfo(4,i)%> <% if OrderInfo(6,i) & "" <> "" then%> <%=formatnumber( eval(Replace(OrderInfo(5,i),",",".")) + eval(Replace(OrderInfo(6,i),",",".")) , 2 )%> € <%else%> <%=formatnumber(OrderInfo(5,i),2)%> € <%end if%> <%=LTitle9(lg)%>

<% set oRs = nothing oConn.close set oConn = nothing %>