<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if dim oRs, oConn, SQL, i, RecipCategs, Data, Dataexist dim SearchStr, whereclause, SplitStr, IDs, RecCategID dim PageNo, tens, starting, ending, totalRows, totalPages dim MainDataExist, MainData, ProdCategID, ProdCategs dim thisstyle RecipCategs = Application("RecCategs"&lang) ProdCategs = Application("ProdCategs"&lang) SearchStr = Request.Form("SearchStr") RecCategID = Request.Form("RecCategID") ProdCategID = Request.Form("ProdCategID") PageNo = Request("PageNo") : if PageNo & "" = "" then PageNo = 1 tens = Request("tens") : if tens & "" = "" then tens = 1 MainDataExist = -1 if lang = "GR" then templang = "" else templang = "EN" set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("Constr") set oRs = Server.createObject("ADODB.Recordset") if 1=1 then IDs = "" whereclause = " WHERE " SplitStr = Split(SearchStr," ") if SearchStr & "" <> "" then for i=0 to ubound(SplitStr) whereclause = whereclause & " Word like '%" & SplitStr(i) & "%' OR" next '=== Getting RecipeIDs from keywords========= SQL = "Select DISTINCT RecipeID from RecipeHits where WordID in (Select WordID from RecipeWords " & left(whereclause, len(whereclause)-3) &")" '--------------------------- ' response.write SQL oRs.open SQL, oConn, 3,1,1 while not oRs.EOF IDs = IDs & oRs("RecipeID") & "," oRs.MoveNext wend oRs.close end if '=== Getting RecipeIDs from cross selling========= if ProdCategID & "" <> "" then SQL = "Select RecipeID from RecCat where ProdCategID=" & ProdCategID oRs.open SQL,oConn, 3,1,1 if oRs.EOF = false then while NOT oRs.EOF IDs = IDs & oRs("RecipeID") & "," oRs.MoveNext wend end if oRs.close end if if Instr(IDs,",") >0 then IDs = left(IDs,len(IDs)-1) if IDs & "" = "" AND RecCategID & "" = "" then IDs = -1 SQL = "SearchRec '" & IDs & "', '" & templang &"', '" & Replace(RecCategID,",","") & "'," & 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 MainData = oRs.GetRows() totalPages = totalRows \ PageSize if totalRows mod PageSize > 0 then totalPages = totalPages + 1 end if oRs.close starting = ((tens-1)*10)+1 : ending = starting + 9 end if SQL = "Select top 1 RecipeID, RecipeName"&templang&", dbo.GetLessText(RecipeInfo"&templang&",30) as RecipeInfo, IsNull(RecipePhotos,'default.jpg'), IsNull(RecipeThumbs,'default.jpg'), RecipeMaterial"&templang&" from Recipe where RecipeShow=1 order by NewID()" oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then Data = oRs.GetRows() Dataexist = 1 end if GoToPage = "RecFullSearch.asp" menu = "2" %>

<%=RTop1(lg)%>     <%=RTop2(lg)%>     <%=RTop3(lg)%>  <%=RCateg(lg)%> <%for i=0 to ubound(RecipCategs,2)%> <%=RecipCategs(1,i)%> <%next%>    <%=RTop4(lg)%> <% if instr(Data(3,0),",") then dim c, b c = split(Data(3,0),",") b = ubound(c)+1 randomize b=Int((b * Rnd)+1) b = c(b-1) else b = Data(3,0) end if%> " alt="" width="148" height="148" border="0"> <%=RTop2(lg)%> <%=RFullSearchTxt(lg)%>    <%=RCateg(lg)%> <%for i=0 to ubound(RecipCategs,2)%> selected<%end if%>><%=RecipCategs(1,i)%> <%next%>    <%=RProdCateg(lg)%> <%for i=0 to ubound(ProdCategs,2)%> selected<%end if%>><%=ProdCategs(1,i)%> <%next%> <% if MainDataExist = 1 then%> <%=RPage(lg)%>   <% 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%> <% thisstyle = "table4" for i=0 to ubound(MainData,2)%> " alt="" width="<%=photosize3x%>" height="<%=photosize3y%>" border="0"> <%=MainData(2,i)%> <%=MainData(3,i)%> <% if thisstyle = "table4" then thisstyle = "table8" else thisstyle = "table4" next%> <%=RPage(lg)%>   <% 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%>   <%elseif MainDataExist=0 then%> <%=RNoRes(lg)%>   <%end if%>

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