<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if dim RecipeCategID, i, totalpages, tens, RecipeCategName dim oRs, oConn, SQL, DataExist, RecipCategs, a, thisstyle dim tmplang, PageNo, totalRows, Data dim starting, ending, errormsg errormsg = "" set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") RecipCategs = Application("RecCategs"&lang) RecipeCategID = Request("RecipeCategID") if RecipeCategID = "" then Response.Redirect("error.asp") end if PageNo = Request("PageNo") : if PageNo & "" = "" then PageNo = 1 tens = Request("tens") : if tens & "" = "" then tens = 1 SQL = "ShowRecipebyCateg " & RecipeCategID & ", '"& lang & "', " & PageSize & "," & PageNo oRs.open SQL, oConn, 0,1,1 if oRs.EOF = false then DataExist = 1 totalRows = oRs("TotalRecs") Data = oRs.GetRows() totalPages = totalRows \ PageSize if totalRows mod PageSize > 0 then totalPages = totalPages + 1 randomize a = Int(Cint(ubound(Data,2)) * Rnd)+1 a = a - 1 end if oRs.close starting = ((tens-1)*10)+1 : ending = starting + 9 GoToPage = "reccateg.asp?RecipeCategID="&RecipeCategID menu = "2" %>

<%=RTop1(lg)%>     <%=RTop2(lg)%>     <%=RTop3(lg)%>  <%=RCateg(lg)%> <%for i=0 to ubound(RecipCategs,2)%> <%=RecipCategs(1,i)%> <%if Cstr(RecipCategs(0,i)) = Cstr(RecipeCategID) then RecipeCategName = RecipCategs(1,i)%> <%next%>    <%=RTop4(lg)%> <%if Dataexist = 1 then%> <%end if%> " alt="" width="148" height="148" border="0"> <%=RTop3(lg)%> > <%=RecipeCategName%> <%if Dataexist = 1 then%> <%else%> <%end if%> <%=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%> <%=SearchError(lg)%> <%thisstyle = "table4" if DataExist =1 then for i=0 to ubound(Data,2)%> <%if instr(Data(4,i),",") >0 then dim mtemp, mtemp1 mtemp = Split(Data(4,i), ",") mtemp1 = mtemp(0) else mtemp1 = Data(4,i) end if%> " alt="" width="<%=photosize3x%>" height="<%=photosize3y%>" border="0"> <%=Data(2,i)%> <%=Data(3,i)%> <% if thisstyle = "table4" then thisstyle = "table8" else thisstyle = "table4" next end if%> <%if Dataexist = 1 then%> <%end if%> <%=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%>

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