<%@ Language=VBScript %> <%Option Explicit%> <% dim SQL, oConn, oRs, AllItems, CountItems, i, temp dim Price 'response.write session("randomid") '======== Select BASKET ITEMS ========================= set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") if session("UserID") & "" <> "" then SQL = "Select ShowBasket.*, UserDiscount.Discount from ShowBasket left outer join UserDiscount on UserDiscount.ProdCategID = ShowBasket.ProdCategID AND UserDiscount.UserID = ShowBasket.UserID where ShowBasket.UserID = " & session("UserID") oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then CountItems = oRs.RecordCount AllItems = oRs.getRows() end if temp = 0 else SQL = "Select ShowTempBasket.*, 0 as Discount from ShowTempBasket where TempUserSession = " & session("RandomID") oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then CountItems = oRs.RecordCount AllItems = oRs.getRows() end if temp = 1 end if oRs.close '======== Select BASKET ITEMS ========================= dim PaperData, PaperExist if session("PaperID") & "" <> "" then SQL = "Select PaperID, PaperTitle"&lang&", PaperDescr"&lang&", PaperPhoto from Paper where PaperShow=1 AND PaperID = " & session("PaperID") oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then PaperData = oRs.GetRows() PaperExist = 1 end if oRs.close end if dim BoxData, BoxExist, BoxPrice if session("BoxID") & "" <> "" then SQL = "Select BoxID, BoxTitle"&lang&", BoxDescr"&lang&", BoxPhoto, BoxPrice from Box where BoxShow=1 AND BoxID = " & session("BoxID") oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then BoxData = oRs.GetRows() BoxExist = 1 BoxPrice = BoxData(4,0) end if oRs.close else BoxPrice = 0 end if GoToPage = "basket.asp" %>

<%=BaskTitle1(lg)%> <% dim AddPrice AddPrice = 0 if CountItems > 0 then Response.Write "" for i=0 to CountItems-1 if AllItems(7,i) <> 0 then price = round(cdbl(AllItems(6,i))-cdbl((cdbl(AllItems(7,i))*cdbl(AllItems(6,i)))/100),2) else price = formatnumber(AllItems(2,i),2) end if With Response .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" AddPrice = AddPrice + (price * AllItems(3,i)) end With next end if%> <%if PaperExist = 1 then%> <% Response.Write "" Response.Write "" end if if BoxExist = 1 then%> <% Response.Write "" Response.Write " <%if session("UserID") & "" <> "" then%> <%else%> <%end if%> <%else%> <%end if%> "&BaskTitle2(lg)&" "&BaskTitle3(lg)&" "&BaskTitle4(lg)&" "&BaskTitle5(lg)&" "&BaskTitle6(lg)&" * "&BaskTitle7(lg)&" " .Write i+1 .Write ". " .Write "" & AllItems(0,i) & "" .Write " " .Write "" & AllItems(1,i) & "" .Write " " .Write "" & "          " .Write " " & price & " " .Write "" .Write " ΧΑΡΤΙ ΠΕΡΙΤΥΛΙΓΜΑΤΟΣ "%> " width="78" height="78" alt="" border="0"> <%=PaperData(1,0)%> <%=PaperData(2,0)%> <%Response.Write " ΚΟΥΤΙ ΔΩΡΟΥ "%> " width="78" height="78" alt="" border="0"> <%=BoxData(1,0)%> <%=BoxData(2,0)%> <%=CBoxPrice(lg) & "" &BoxData(4,0)%> € <% end if if CountItems > 0 then %> <%=BaskTitle10(lg)%>             *    <%=BaskTitle11(lg)%> ** <%=BaskTitle12(lg)%> € <%=BaskTitle13(lg)%> <%=BaskTitle16(lg)%>

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