<%@ 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 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("SendSearchStr1"),"'","''")) 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 = "searchfull.asp?SearchStr=" & SearchStr & "&CategID=" & CategID menu = "1" %>

<%if FullSearch = "1" then%><%= STitle11(lg) %><%else%><%= STitle12(lg) %><%end if%> <%= STitle13(lg) %> <%=SearchStr%><%end if%>" size="20" maxlength="100" class="form1" onblur="BlurMe(this);" onfocus="FocusMe(this);" onkeypress="if(event.keyCode == 13){document.frm.submit();}">  <%= STitle14(lg) %> <%For i=0 to ubound(Application("ProdCategs"&lang),2)%> "<%if fullsearch<>"1" then%><%if Cstr(Application("ProdCategs"&lang)(0,i)) = Cstr(CategID) then%> Selected<%end if%><%end if%>><%=Application("ProdCategs"&lang)(1,i)%> <%next%>   <% 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)%> " 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 %>   <%= STitle5(lg) %>       <%= STitle1(lg) %>       <%= STitle2(lg) %>       <%= STitle3(lg) %>       <%= STitle4(lg) %> <%end if %>