<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if dim oRs, oConn, SQL, i, RecipCategs, Data, Dataexist dim ChefData, ChefDataExist, ChefID, PageNo, tens dim starting, ending, thisstyle, totalRows, totalPages RecipCategs = Application("RecCategs"&lang) ChefID = Request.Form("ChefID") PageNo = Request("PageNo") : if PageNo & "" = "" then PageNo = 1 tens = Request("tens") : if tens & "" = "" then tens = 1 if lang = "GR" then templang = "" else templang = "EN" if ChefID & "" = "" then dim errmsg Response.Redirect("error.asp") end if set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("Constr") set oRs = Server.createObject("ADODB.Recordset") SQL = "ShowRecipebyChef " & ChefID & ", " & lang & "," & PageSize & "," & PageNo oRs.open SQL, oConn, 3,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 end if oRs.close SQL = "Select ChefID, ChefName" & lang &", ChefPhoto, ChefCV"&lang&" from Chefs where ChefID=" & ChefID oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then ChefData = oRs.GetRows() ChefDataExist = 1 end if oRs.close 'Response.Write "" starting = ((tens-1)*10)+1 : ending = starting + 9 GoToPage = "RecChefsAll.asp" menu = "2" %>

<%=RTop1(lg)%>     <%=RTop2(lg)%>     <%=RTop3(lg)%>  <%=RCateg(lg)%> <%for i=0 to ubound(RecipCategs,2)%> <%=RecipCategs(1,i)%> <%next%>    <%=RTop4(lg)%> <% Dim strSrc If ChefData(2,0) & "" <> "" Then strSrc = "../ChefPhotos/" & ChefData(2,0) Else strSrc="../images/blank.gif" End If %> <%if ChefData(3,0) & "" <> "" then%> ΒΙΟΓΡΑΦΙΚΟ <%=Replace(ChefData(3,0),chr(13)," ")%> <%end if%> <%=RTop4(lg)%> > <%=ChefData(1,0)%> Στο χώρο αυτό θα παρουσιάζεται το σχετικό με την ενότητα κείμενο. Λόγω οτι το παρών site είναι σε μορφή demo δεν είναι εφικτό να ενταχθούν τα πραγματικά κείμενα της εταιρίας σας. <%=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" if DataExist =1 then for i=0 to ubound(Data,2)%> " 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%> <%=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 %>