<%
mySQL="SELECT * FROM RecipesTB WHERE SourceType='Exclusive' AND (Status='Publish' OR Status='Featured')"
Set query=Server.CreateObject("ADODB.Recordset")
query.Open mySQL, Connect, adOpenStatic, adLockOptimistic
if NOT query.EOF then
' CREATE RANDOM NUMBER
Randomize Timer / RND
intRangeSize=query.RecordCount
sngRandomValue = intRangeSize * RND()
varRandomNumber=Int(sngRandomValue) + 1
query.Move varRandomNumber-1
%>
><%= query("Name") %>
<%= query("Description") %>
Source: <%= query("Source") %>
<% if Request.QueryString("action")<>"search" then %>
 | ||
 <% Set filesys=CreateObject("Scripting.FileSystemObject") Set txtfile=filesys.OpenTextFile(Server.MapPath("\inc_var_category_recipes.txt"),1,0) Do Until txtfile.AtEndOfStream category=txtfile.Readline %> ><%= category %> <% Loop txtfile.Close %> >Latest Additions |  |
<%
if Request.QueryString("cat")="" then
varCategory="latest recipes"
else
varCategory=Replace(Request.QueryString("cat"),"%2F","/")
end if
%>
<%
mySQL="SELECT * FROM RecipesTB WHERE (Status='Publish' OR Status='Featured') AND (SourceType='Exclusive')"
if varCategory<>"latest recipes" then
mySQL=mySQL & " AND (Category LIKE '%" & varCategory &"%')"
end if
mySQL=mySQL & " ORDER BY Date DESC, RecID DESC"
'response.write mySQL
Set query=Server.CreateObject("ADODB.Recordset")
query.Open mySQL, Connect, adOpenStatic, adLockOptimistic
if NOT query.EOF then
z=Request.QueryString("z")
query.Move z
end if
endnum=10
if (z+endnum)>=query.RecordCount then
endz=query.RecordCount
else
endz=z+endnum
end if
if z=0 then
z=1
else
z=z+1
end if
%>
<%
'MAKE HALF TITLE BOLD
varTitle=varCategory
%>
<%= UCASE(varUnboldTitle) %> <%= UCASE(varBoldTitle) %>
<%= query.RecordCount %> listings foundShowing listings <%= z %> to <%= endz %> <% if query.EOF then %> We're sorry, but we currently don't have any recipes entered for <%= varCategory %>. Please check back soon! <% end if %> <% y= 0 %> <% do until query.EOF or y=endnum %> <% query.MoveNext y=y+1 if x=0 then x=1 else x=0 end if %> <% loop %>
<% if z=>endnum then %>
<%
z=z-endnum-1
if z<=0 then
z=0
end if
%>
&z=<%= z %>#browse>
<% end if %>
<% if NOT query.EOF then %>
<%
z=Request.QueryString("z")
z=z+y
%>
&z=<%= z %>#browse>
<% end if %>
|
 | ||
|
Your search results are displayed on the right. If you want to expand your search, try searching again or browsing the categories below.
| |
<%
if Request.QueryString("sql")="ny" then
mySQL="SELECT * FROM RecipesTB WHERE (Status='Publish' OR Status='Featured') AND (SourceType='Exclusive')"
if Request.Form("Category")<>"" then
mySQL=mySQL & " AND (Category LIKE '%" & Request.Form("Category") &"%')"
end if
if Request.Form("Keywords")<>"" then
keywords=Request.Form("Keywords")
mySQL=mySQL & " AND (Name LIKE '%" & chr(32) & keywords & chr(32) & "%' OR Name LIKE '%" & chr(32) & keywords & "' OR Name LIKE '" & keywords & chr(32) & "%' OR Description LIKE '%" & chr(32) & keywords & chr(32) & "%' OR Description LIKE '%" & chr(32) & keywords & "' OR Description LIKE '" & keywords & chr(32) & "%' OR Instructions LIKE '%" & chr(32) & keywords & chr(32) & "%' OR Instructions LIKE '%" & chr(32) & keywords & "' OR Instructions LIKE '" & keywords & chr(32) & "%' OR Source LIKE '%" & chr(32) & keywords & chr(32) & "%' OR Source LIKE '%" & chr(32) & keywords & "' OR Source LIKE '" & keywords & chr(32) & "%')"
end if
mySQL=mySQL & " ORDER BY Date DESC, RecID DESC"
Response.Cookies("SQLRecipeSearch")=mySQL
else
mySQL=Request.Cookies("SQLRecipeSearch")
end if
'response.write mySQL
Set query=Server.CreateObject("ADODB.Recordset")
query.Open mySQL, Connect, adOpenStatic, adLockOptimistic
if NOT query.EOF then
z=Request.QueryString("z")
query.Move z
end if
endnum=10
if (z+endnum)>=query.RecordCount then
endz=query.RecordCount
else
endz=z+endnum
end if
if z=0 then
z=1
else
z=z+1
end if
%>
<%
'MAKE HALF TITLE BOLD
varTitle="Recipe Search Results"
%>
<%= UCASE(varUnboldTitle) %> <%= UCASE(varBoldTitle) %>
<%= query.RecordCount %> listings foundShowing listings <%= z %> to <%= endz %> <% if query.EOF then %> We're sorry, but no listings were found with your search criteria. Please try searching again. <% end if %> <% y= 0 %> <% do until query.EOF or y=endnum %> <% query.MoveNext y=y+1 if x=0 then x=1 else x=0 end if %> <% loop %>
<% if z=>endnum then %>
<%
z=z-endnum-1
if z<=0 then
z=0
end if
%>
&z=<%= z %>&action=search#browse>
<% end if %>
<% if NOT query.EOF then %>
<%
z=Request.QueryString("z")
z=z+y
%>
&z=<%= z %>&action=search#browse>
<% end if %>
|
Looking for that perfect recipe? Use our search tool! You can enter keywords or even ingredients.
for more info
Slow Food U.S.A. is an educational organization dedicated to stewardship of the land and ecologically sound food production; to the revival of the kitchen and the table as centers of pleasure, culture, and community; to the invigoration and proliferation of regional, seasonal culinary traditions; and to living a slower and more harmonious rhythm of life.