<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if dim oRs, oConn, SQL, i, RecipCategs, Data, Dataexist dim mtemp, mtemp1 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 5 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 is null order by NewID()" oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then Data = oRs.GetRows() Dataexist = 1 end if GoToPage = "recipes.asp" menu = "2" %> <%=PageTitle%>
      <%=RTop1(lg)%>     <%=RTop2(lg)%>     <%=RTop3(lg)%>     <%=RTop4(lg)%>
0 then Response.write RecPhotosDir & "/" & left(Data(3,4),Instr(Data(3,4),",")-1) else Response.write RecPhotosDir & "/" & Data(3,4) end if%>" alt="" width="148" height="148" border="0">
<%=RNav(lg)%>

<%=showFirst(lg)%>

<%if DataExist = 1 then%>
<%if instr(Data(4,0),",") >0 then mtemp = Split(Data(4,0), ",") mtemp1 = mtemp(0) else mtemp1 = Data(4,0) end if%> " width="78" height="78" alt="" border="0">
<%=Data(1,0)%>
<%=Data(2,0)%>
<%if instr(Data(4,1),",") >0 then mtemp = Split(Data(4,1), ",") mtemp1 = mtemp(0) else mtemp1 = Data(4,1) end if%> " width="78" height="78" alt="" border="0">
<%=Data(1,1)%>
<%=Data(2,1)%>
<%if instr(Data(4,2),",") >0 then mtemp = Split(Data(4,2), ",") mtemp1 = mtemp(0) else mtemp1 = Data(4,2) end if%> " width="78" height="78" alt="" border="0">
<%=Data(1,2)%>
<%=Data(2,2)%>
<%if instr(Data(4,3),",") >0 then mtemp = Split(Data(4,3), ",") mtemp1 = mtemp(0) else mtemp1 = Data(4,3) end if%> " width="78" height="78" alt="" border="0">
<%=Data(1,3)%>
<%=Data(2,3)%>
<%end if%>

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