<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if dim MainCategs, SubCategs, i, counter, tens dim SQL, oConn, oRs, Data, DataExist dim PaperData, PaperDataExist dim BoxData, BoxDataExist dim PaperID, BoxID i = 0 MainCategs = Application("ProdCategs"&lang) SubCategs = Application("ProdSubCategs"&lang) PaperID = Request.Form("PaperID") if PaperID & "" <> "" AND PaperID <> -1 then session("PaperID") = PaperID elseif session("PaperID") & "" = "" then session("PaperID") = -1 end if BoxID = Request.Form("BoxID") if BoxID & "" <> "" AND BoxID <> -1 then session("BoxID") = BoxID elseif session("BoxID") & "" = "" then session("BoxID") = -1 end if set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") if session("GiftProdID") & "" <> "" then if lang = "GR" then SQL = "select Product.ProdID, ProdDescr.ProdDescr, IsNull(Product.ProdThumbs,'default.jpg'), dbo.GetLessText(ProdText.ProdInfo,100) from Product LEFT OUTER JOIN ProdDescr on ProdDescr.ProdDescrID = Product.ProdDescrID LEFT OUTER JOIN ProdText on ProdText.ProdID = Product.ProdID where Product.ProdID in (" & Replace(session("GiftProdID"), "_",",")& ")" if lang = "EN" then SQL = "select Product.ProdID, ProdDescr.ProdDescrEN, IsNull(Product.ProdThumbs,'default.jpg'), dbo.GetLessText(ProdText.ProdInfo,100) from Product LEFT OUTER JOIN ProdDescr on ProdDescr.ProdDescrID = Product.ProdDescrID LEFT OUTER JOIN ProdText on ProdText.ProdID = Product.ProdID where Product.ProdID in (" & Replace(session("GiftProdID"), "_",",")& ")" oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then Data = oRs.GetRows() DataExist = 1 end if oRs.close end if '====== PERITYLIGMA ============= SQL = "Select PaperID, PaperTitle"&lang&", PaperDescr"&lang&", PaperPhoto from Paper where PaperShow=1" oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then PaperDataExist = 1 PaperData = oRs.GetRows() else PaperDataExist = 0 end if oRs.close '====== KOUTI ============= SQL = "Select BoxID, BoxTitle"&lang&", BoxDescr"&lang&", BoxPhoto, BoxPrice from Box where BoxShow=1" oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then BoxDataExist = 1 BoxData = oRs.GetRows() else BoxDataExist = 0 end if oRs.close set oRs = nothing oConn.close : set oConn = nothing GoToPage = "create.asp" menu = "3" %>

"> "> "> ">

<%for i=0 to ubound(MainCategs,2)%>   <%=MainCategs(1,i)%>   <%next%> <%=ShowRandomPhoto(RGiftsDir,"2")%> <%=Gtit(lg)%> <%=Gtext(lg)%> <% counter = 1 for i=0 to ubound(SubCategs,2) if counter = 1 then response.write "" :counter=1 next%> "%> <%=SubCategs(1,i)%> <%counter=counter+1%> <% if counter=9 then response.write " <%if DataExist = 1 then%> Προσθήκη Επιλογών στο καλάθι >> <%= Gselected(lg) %> <%for i = 0 to ubound(Data,2)%> <%next%> " width="78" height="78" alt="" border="0"> <%=Data(1,i)%> <%=Data(3,i)%> <%end if if PaperDataExist = 1 then%> <%= Cpaper(lg) %> <%for i = 0 to ubound(PaperData,2)%> <%next%> " width="78" height="78" alt="" border="0"> <%=PaperData(1,i)%> <%=PaperData(2,i)%> checked<%end if%>> <%end if if BoxDataExist = 1 then%> <%= Cbox(lg) %> <%for i = 0 to ubound(BoxData,2)%> <%next%> " width="78" height="78" alt="" border="0"> <%=BoxData(1,i)%> <%=BoxData(2,i)%> <%=CBoxPrice(lg) & "" &BoxData(4,i)%> € checked<%end if%>> <%end if%> <%if DataExist = 1 then%> Προσθήκη Επιλογών στο καλάθι >> <%end if%>