De Gustibus Delicatessen

<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if dim oRs, oConn, SQL, i, RecipCategs, Data, Dataexist dim RecipeID, splitmaterials, RelProdExist, RelProd, ProdCategID RecipeID = Request.Form("RecipeID") RecipCategs = Application("RecCategs"&lang) if recipeID ="" then response.redirect("error.asp") 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 = "ShowRecipe " & RecipeID & ", '" & lang & "'" oRs.open SQL, oConn, 0, 1, 1 if oRs.EOF = false then Dataexist = 1 Data = oRs.GetRows() Else response.redirect("error.asp") end if oRs.close if lang = "GR" then templang="" else templang="EN" ' ======= Relative Products =========== SQL = "SELECT ProdRec.ProdID, isnull(Product.ProdThumbs,'default.jpg'), ProdDescr.ProdDescr"&templang&", product.ProdCategID from ProdRec "&_ "LEFT OUTER JOIN Product on Product.ProdID = ProdRec.ProdID "&_ "LEFT OUTER JOIN ProdDescr on ProdDescr.ProdDescrID = Product.ProdDescrID "&_ " where RecipeID=" & RecipeID & " AND ProdRec.Way=1" oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then RelProd = oRs.GetRows() RelProdExist = 1 end if oRs.close GoToPage = "recipefull.asp?RecipeID="&RecipeID menu = "2" %> De Gustibus Delicatessen

<%=RTop1(lg)%>

<%=RTop2(lg)%>

<%=RTop3(lg)%>

<%=RTop4(lg)%>

<%if DataExist = 1 then%>

<%if instr(Data(4,0),",") then dim c, b c = split(Data(4,0),",") b = ubound(c)+1 randomize b=Int((b * Rnd)+1) b = c(b-1) else b = Data(4,0) end if%>

" alt="" width="148" height="148" border="0">

<%if Data(3,0) & "" <> "" then%> <%splitmaterials=Split(Data(3,0),chr(13))%> <%for i=0 to ubound(splitmaterials)%> <%next end if%>

<%= RMaterial(lg) %>
-	<%=splitmaterials(i)%>

<%end if%>

<%if DataExist = 1 then%>


<%=RTop9(lg)%> > <%=Data(5,0)%>
<%=Data(1,0)%> <%=Rtit(lg)%>
<%=Replace(Data(2,0),chr(13)," ")%>

<%end if%>


<%= RAddRB(lg) %>

<%if RelProdExist = 1 then%>

<%for i=0 to ubound(RelProd,2)%>

<%=RSee(lg) %>

<%=RelProd(2,i)%>

" width="<%=photosize3x%>" height="<%=photosize3y%>" alt="" border="0">

<%= Rmore(lg) %> >>

<% next end if%>

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