<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if dim oRs, oConn, SQL, i, RecipCategs, Data, Dataexist dim ChefData, ChefDataExist RecipCategs = Application("RecCategs"&lang) if lang = "GR" then templang = "" else templang = "EN" set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("Constr") set oRs = Server.createObject("ADODB.Recordset") SQL = "Select top 4 RecipeID, RecipeName"&templang&", dbo.GetLessText(RecipeInfo"&templang&",30) as RecipeInfo, IsNull(RecipePhotos,'default.jpg'), IsNull(RecipeThumbs,'default.jpg') from Recipe where RecipeShow=1 AND ChefID <> '' order by NewID()" oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then Data = oRs.GetRows() Dataexist = 1 end if oRs.close SQL = "Select ChefID, ChefName" & lang &" from Chefs order by ChefOrder" oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then ChefData = oRs.GetRows() ChefDataExist = 1 end if oRs.close GoToPage = "RecChefs.asp" menu = "2" %>

<%=RTop1(lg)%>     <%=RTop2(lg)%>     <%=RTop3(lg)%>  <%=RCateg(lg)%> <%for i=0 to ubound(RecipCategs,2)%> <%=RecipCategs(1,i)%> <%next%>    <%=RTop4(lg)%> " alt="" width="148" height="148" border="0"> <%if ChefDataExist = 1 then%> <% for i=0 to ubound(ChefData,2)%> <% next end if%> CHEF - <%=ChefData(1,i)%> <%=RTop4(lg)%> <%=chefFirst(lg)%> <%if DataExist = 1 then%> " width="78" height="78" alt="" border="0"> <%=Data(1,0)%> <%=Data(2,0)%> " width="78" height="78" alt="" border="0"> <%=Data(1,1)%> <%=Data(2,1)%> " width="78" height="78" alt="" border="0"> <%=Data(1,2)%> <%=Data(2,2)%> " width="78" height="78" alt="" border="0"> <%=Data(1,2)%> <%=Data(2,2)%> <%end if%>

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