|
An American food experience, with homegrown specialties, such as an authentic Chicago hot dog, and family recipes reflecting cultures of the city's major immigrant populations. You can also find recipes that have "traveled" with those who arrived here from other U.S. regions, and innovative new dishes that take ques from Chicago's culinary scene.
<%
mySQL="SELECT * FROM RecipesTB WHERE (Status='Publish' OR Status='Featured') AND (SourceType='Chicago Kitchen')"
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") %>
<% end if %>
<% 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='Chicago Kitchen')"
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 found
Showing 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("Name") %>
Source: <%= query("Source") %>
<%
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 %>
|
<% else %>
<%' SEARCH RESULTS %>
 |
Your search results are displayed on the right. If you want to expand your search, try searching again or browsing the categories below.

<%
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("sql")="ny" then
mySQL="SELECT * FROM RecipesTB WHERE (Status='Publish' OR Status='Featured') AND (SourceType='Chicago Kitchen')"
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 found
Showing 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("Name") %>
Source: <%= query("Source") %>
<%
query.MoveNext
y=y+1
if x=0 then
x=1
else
x=0
end if
%>
<% loop %>
|
<% 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.
|