|
Menu
Selection Page
-----------------------------------------------------------------------------------
' tt2.asp
'
----------------------------------------------------------------------------------
<%@ Language=VBScript %>
<html>
<head>
</head>
<body>
<H1>The Peasant Restaurant Site </H1>
<form name="frmWeekDay" action="tt3.asp"
method="post"> <h3>Select a day to see the menu </h3>
<table align="left" width="60%">
<tr>
<td>
<select name="WeekDay">
<option value="Sunday" selected>Sunday</option>
<option value="Monday">Monday</option>
<option value="Tuesday">Tuesday</option>
<option value="Wednesday">Wednesday</option>
<option value="Thursday">Thursday</option>
<option value="Friday">Friday</option>
<option value="Saturday">5aturday</option>
</select> <input type="submit" value="Submit">
</td>
</tr>
</table>
</form>
</body>
</html>
'
----------------------------------------------------------------------------------' Redirection Page---tt3.asp
'
----------------------------------------------------------------------------------
<%@ Language=VBScript %>
<%option explicit %>
<%
dim selectedDay
if not isEmpty ( Request.Form ("WeekDay")) then
selectedDay = Request.Form("WeekDay")
if selectedDay = "Sunday" then
Server.Transfer ("SundayMenu.asp")
else
Server.Transfer ("NormalMenu.asp")
end if
else
Server.Transfer ("tt2.asp")
end if
%>
'
----------------------------------------------------------------------------------' SundayMenu.asp
'
----------------------------------------------------------------------------------
<%@ Language=VBScript %>
<%option explicit %>
<html>
<head>
</head>
<body>
<H1>The Pleasant Restaurant Site </H1>
<H2>Menu for Sunday</H2>
<a href ="tt2.asp">
<font color="red" size="2">(back to list)</font></a>
0
<h3>Main Course</h3>
<p>Pot Roast with Gravy (all you can eat)</p>
<h3>Vegetables (select two)</h3>
<p> Braised Potatoes<br>
Baby Carrots in Hollandaise Sauce<br> Steamed Broccoli<br>
Cauliflower<br> </p>
<h3>Dessert (select one)</h3>
<p>
Apple Pie mode<br>
Chocolate tart<br>
Rice pudding<br>
</p>
</body>
</html>
'
----------------------------------------------------------------------------------' NormalMenu.asp
'
----------------------------------------------------------------------------------
<%@ Language=VBScript %>
<%option explicit%>
<html>
<head>
</head>
<body>
<h1>The Peasant Restaurant Site</h1>
<h2>Menu for <%=Request.Form("WeekDay")%></h2>
<a href="tt2.asp">
<font color="red" size="2">(back to list)</font></a>
<h3>Main Course</h3>
<p>Gruel
</p>
<h3>Vegetables (select one)</h3>
<p>
One Raw Onion<br>
One Raw Potato<br>
</p>
<h3>Dessert (NA)</h3>
<p>
Only on Sunday<br>
</p>
</body>
</html>
|
