<%
mySQL="SELECT * FROM RecipesTB WHERE (Status='Publish' OR Status='Featured') AND (SourceType='Heritage')"
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=Request.QueryString("cat")
end if
%>
<%
mySQL="SELECT * FROM RecipesTB WHERE (Status='Publish' OR Status='Featured') AND (SourceType='Heritage')"
if varCategory<>"latest recipes" then
mySQL=mySQL & " AND (Category LIKE '%" & varCategory &"%')"
end if
mySQL=mySQL & " ORDER BY Date DESC, RecID DESC"
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='Heritage')"
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.
Do you have a great family recipe from the "old country" or a new creation that favors Midwest-grown or made ingredients? Please submit your recipe!
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.