The Hungry Peach - Delivery Menu

<%@ Language=VBScript %> <% server.ScriptTimeout = 4500 Response.Buffer = true FRESH = 0 FROZEN = 0 REFRIDGE = 0 SIDE = 0 %> The Hungry Peach - Delivery Menu

Atlanta's Premier Personal Chef Service - The Hungry Peach - by Chef Suzanne Vizethann

Want To Be Added
To Our Delivery
Reminder List?

Fill in your information
below and we will send
you emails when a new
weekly menu is posted

*Click Here To View
Chef Suzanne's Blog

<% 'get delivery week in here: Set objConn1 = Server.CreateObject("ADODB.Connection") Set objRS1 = Server.CreateObject("ADODB.Recordset") 'Make the actual connection 'MS Access testing MdbFilePath = Server.MapPath ("access_db/Delivery.mdb") objConn1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" objConn1.CommandTimeout = 0 strSQL1 = "Select DeliveryTitle,IDNUM from DeliveryDate where IDNUM = 1 " Set objRS1 = objConn1.Execute(strSQL1) DO while not objRS1.EOF strShowDate = objRS1("DeliveryTitle") objRS1.MoveNext Loop objConn1.close Set objConn1 = Nothing %> Delivery Menu - For The Week of <%=strShowDate%>

ALL ORDERS MUST BE IN ON THE FRIDAY BEFORE BY 5PM!!!!!!!

-Please order a minimum of $140.

-All orders will be delivered on Tuesday of the coming week.
-Don't forget to scroll down to see the breakfast, dessert, side, and snack items being offered!
-Do you have a neighbor or friend that would like to try this service with you? Order together, have the meals delivered to the same place and receive 10% off both your orders!
-Remember to complete the delivery information at the end of the order form.

<% strNow = Now() strID = Year(Date)&Month(Date)&Day(Date)&Hour(Time)&Minute(Time)&Second(Time) %>

Fresh Items:
*Only order fresh items if you can consume it the night of delivery or the day after at the latest!

<% 'Get the Fresh Items here first %> <% 'display results formatted similar to how we the MS Word document looks 'create a sub-table %> <% Set objConn1 = Server.CreateObject("ADODB.Connection") Set objRS1 = Server.CreateObject("ADODB.Recordset") 'Make the actual connection 'MS Access testing MdbFilePath = Server.MapPath ("access_db/Delivery.mdb") objConn1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" objConn1.CommandTimeout = 0 strSQL1 = "Select * from DeliveryItems where Active = 'YES' AND MenuType = 'Fresh' ORDER BY IDNUM ASC, DELIVERYTITLE ASC " Set objRS1 = objConn1.Execute(strSQL1) DO while not objRS1.EOF %> <% objRS1.MoveNext Loop objRS1.Close Set objRS1 = Nothing %>

<%=trim(objRS1("DeliveryTitle"))%>:
<%=trim(objRS1("DeliveryDescription"))%>

$<%=objRS1("DeliveryCostPerServing")%>

How many servings of this item would you like? _Servings" size="3">

Special instructions for the chef:
(i.e. low fat, low carb, omit specific ingredients, sauce on the side, etc.)
_Name" value="<%=trim(objRS1("DeliveryTitle"))%>">

Nutrition Information:
C=<%=objRS1("NutritionC")%>, F=<%=objRS1("NutritionF")%>g, Protein:<%=objRS1("NutritionP")%>g

Refrigerated Items:
*All items are fully cooked and last 4-5 days and sometimes can hold up to a week
*You may also freeze all of these items unless stated otherwise <% 'Get the Refrigerated Items here %> <% 'display results formatted similar to how we the MS Word document looks 'create a sub-table %>

<% Set objRS2 = Server.CreateObject("ADODB.Recordset") strSQL2 = "Select * from DeliveryItems where Active = 'YES' AND MenuType = 'Refrigerated' ORDER BY IDNUM ASC,DeliveryTitle ASC " Set objRS2 = objConn1.Execute(strSQL2) DO while not objRS2.EOF %> <% objRS2.MoveNext Loop objRS2.Close Set objRS2 = Nothing %>

<%=trim(objRS2("DeliveryTitle"))%>:
<%=trim(objRS2("DeliveryDescription"))%>

$<%=objRS2("DeliveryCostPerServing")%>

How many servings of this item would you like? _Servings" size="3">

Special instructions for the chef:
(i.e. low fat, low carb, omit specific ingredients, sauce on the side, etc.)
_Name" value="<%=trim(objRS2("DeliveryTitle"))%>">

Nutrition Information:
C=<%=objRS2("NutritionC")%>, F=<%=objRS2("NutritionF")%>g, Protein:<%=objRS2("NutritionP")%>g

Desserts, Snacks, Breakfast, and Side Items:

The following are the dessert, snacks, side and breakfast items offered this week. Enter the number of servings in the box beside each item. <% 'Get the Side Dish Items here %> <% 'display results formatted similar to how we the MS Word document looks 'create a sub-table %> <% Set objRS4 = Server.CreateObject("ADODB.Recordset") strSQL2 = "Select * from DeliveryItems where Active = 'YES' AND MenuType = 'SideDish' ORDER BY IDNUM ASC, DeliveryTitle ASC " Set objRS4 = objConn1.Execute(strSQL2) DO while not objRS4.EOF %> <% objRS4.MoveNext Loop objRS4.Close Set objRS4 = Nothing 'close out the connection objConn1.Close Set objConn1 = Nothing %>

<%=trim(objRS4("DeliveryTitle"))%>
<%=trim(objRS4("DeliveryDescription"))%>

$<%=objRS4("DeliveryCostPerServing")%>

How many orders of this item would you like? _Servings" size="3"> _Name" value="<%=trim(objRS4("DeliveryTitle"))%>"> _Cost" value="$3.00">

Nutrition Information:
C=<%=objRS4("NutritionC")%>, F=<%=objRS4("NutritionF")%>g, Protein:<%=objRS4("NutritionP")%>g

Delivery Information
We will need the following information to coordinate your order and delivery. If you have already done business with The Hungry Peach Delivery Service, simply enter your first name, last name, and Email Address.

*Name:
Home Phone:
Cell Phone:
*Email Address:
*Please Enter Your Delivery Address (if you have not ordered before):
Address 1:
Address 2:
City:
State:
Zip:
We generally use Google Maps for directions. If there are special directions to your home that we won't find on Google, please type them here: How do you prefer to pay for your order? Please select your preferred method. Credit Card-we accept VISA, MasterCard or Discover or you may pay with PayPal. Check on delivery, please make checks out to, The Hungry Peach. I have a gift certificate. Anything else you would like us to know? Your order will be automatically E-mailed to us. Look for a reply from us—usually within 24 hours—with order confirmation and total. For payment, if you selected "credit card," we will send you either a "PayPal Request for Money" or an invoice where your credit card number can be inserted in a separate E-mail. If you selected another payment option, you will receive further instructions in your confirmation E-mail from us. Thank you for your order!

The Hungry Peach - Personalizing Your Kitchen - by Chef Suzanne Vizethann