<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if dim CategID, SearchStr, MainCategs, MainCategDescr, SubCategs, SubCategDescr, a, i dim oRs, oConn, SQL, DataExist, MainDataExist, ShowLeft, LeftProdID dim tmplang, PageNo, totalRows, Data, totalPages, tens, thisstyle dim starting, ending, FullSearch dim ProdPhArray, ProdPhoto set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") CategID = Request.Form("SearchCategID") SearchStr = trim(Replace(Request.Form("SendSearchStr"),"'","''")) : if SearchStr & "" = "" then SearchStr = trim(Replace(Request.Form("SearchStr"),"'","''")) FullSearch = Request.Form("FullSearch") PageNo = Request("PageNo") : if PageNo & "" = "" then PageNo = 1 tens = Request("tens") : if tens & "" = "" then tens = 1 if lang = "GR" then tmplang = "" else tmplang = "EN" if SearchStr & "" <> "" OR CategID & "" <> "" then SQL = "SearchProducts ' " & SearchStr & " ','" & CategID & "','"& tmplang &"', '" & session("UserID") & "', " & PageSize & ", " & PageNo oRs.open SQL, oConn, 0, 1, 1 if oRs.state=0 then oRs.open SQL, oConn, 3, 1, 1 if oRs.EOF = false then totalRows = oRs("TotalRecs") if totalRows = 0 then MainDataExist = 0 else totalRows = oRs("TotalRecs") MainDataExist = 1 Data = oRs.GetRows() totalPages = totalRows \ PageSize if totalRows mod PageSize > 0 then totalPages = totalPages + 1 end if oRs.close else MainDataExist = 0 end if starting = ((tens-1)*10)+1 : ending = starting + 9 GoToPage = "search.asp?SearchStr=" & SearchStr & "&CategID=" & CategID menu = "1" %>

<%if FullSearch = "1" then%>ΕΚΤΕΤΑΜΕΝΗ ΑΝΑΖΗΤΗΣΗ<%else%>ΑΠΟΤΕΛΕΣΜΑΤΑ ΑΝΑΖΗΤΗΣΗΣ<%end if%> <%if FullSearch = "1" then%> Συμπληρώστε λέξεις κλειδιά και κατηγορία για αναζήτηση προϊόντων size="20" maxlength="100" class="form1" onblur="BlurMe(this);" onfocus="FocusMe(this);">  - Κατηγορία Προϊόντος - <%For i=0 to ubound(Application("ProdCategs"&lang),2)%> "<%if Cstr(Application("ProdCategs"&lang)(0,i)) = Cstr(CategID) then%> then Selected<%end if%>><%=Application("ProdCategs"&lang)(1,i)%> <%next%>   <%end if%> <% thisstyle = "table4" if MainDataExist <> 0 then %> Σελίδα   <% if pageno>10 then %>   <%end if for i = starting to ending if i <=totalpages then%> <%if Cint(i) = Cint(PageNo) then%><%=i%><%else%><%=i%><%end if%> <% else exit for end if next if i   <%end if%> <%end if if MAinDataExist =1 then for i=0 to ubound(Data,2)%> <% ProdPhArray = Split(Data(6,i),",") randomize ProdPhoto = ProdPhArray(Int(((ubound(ProdPhArray)+1) * Rnd) + 1)-1)%> " width="78" height="78" alt="" border="0"> <%=Data(2,i)%> <%=Data(3,i)%> <%=Data(7,i)%>  <%=Data(8,i)%>      <%if Data(9,i) <> 0 then%> <%=round(cdbl(Data(4,i))-cdbl((cdbl(Data(9,i))*cdbl(Data(4,i)))/100),2)%> <%else%> <%=Data(5,i)%> <%end if%>    <%=Data(4,i)%> <% if thisstyle = "table4" then thisstyle = "table8" else thisstyle = "table4" next else%> <%if FullSearch <> "1" then%> <%=nodata(lg)%> <%end if end if if MainDataExist <> 0 then %> Σελίδα   <% if pageno>10 then %>   <%end if for i = starting to ending if i <=totalpages then%> <%if Cint(i) = Cint(PageNo) then%><%=i%><%else%><%=i%><%end if%> <% else exit for end if next if i   <%end if%>   Οι αναγραφόμενες τιμές είναι σε ευρώ συμπεριλαμβανομένου και τον ΦΠΑ.       νέο προϊόν       προϊόν μόνο online       τιμή e-shop       λιανική τιμή <%end if%>