<%@Language="Vbscript"%>
<%Option Explicit
Dim con,rs,queries,count,etype,location,delivery,eatin,takeaway,pickup
etype=request.form("etype")
location=request.form("location")
delivery=request.form("delivery")
eatin=request.form("eatin")
takeaway=request.form("takeaway")
pickup=request.form("pickup")%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Search Criteria</title>
<style type="text/css">
form{margin:0;padding:0}
.hOn{background-color:#EEE}
.hOff{background-color:#FFF}
p{margin:0}
</style>
</head>
<body>
<form id="eat" action="?search=true" method="post">
<div style="width:100%;background-color:#EEE"><strong>Search For Places To Eat</strong></div>
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="right">Type: </td>
<td><select name="type" size="1">
<option value="">-- Type --</option>
<option<%if etype="Cafe" then Response.Write(" selected=""selected""")%>>Cafe</option>
<option<%if etype="Restaurant" then Response.Write(" selected=""selected""")%>>Restaurant</option>
<option<%if etype="Take-Away" then Response.Write(" selected=""selected""")%>>Take-Away</option>
<option<%if etype="A-la-Carte" then Response.Write(" selected=""selected""")%>>A-la-Carte</option>
<option<%if etype="Chinese" then Response.Write(" selected=""selected""")%>>Chinese</option>
<option<%if etype="Thai" then Response.Write(" selected=""selected""")%>>Thai</option>
<option<%if etype="Other" then Response.Write(" selected=""selected""")%>>Other</option>
</select>
</td>
</tr>
<tr>
<td> </td><td><input type="submit" value="Search" /></td></tr>
</table>
</form>
<%
if Request.Querystring("search") = "true" then
if etype<>"" AND queries = "" then
queries = "type = '"&etype&"'"
elseif etype<>"" AND queries <> "" then
queries = queries & " AND type = '"&etype&"'"
end if
if queries <> "" then queries = "WHERE "&queries
Set con=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
con.Open"DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("eat.mdb")&";password=akdiver"
rs.Open"SELECT * FROM eat "&queries&"",con,3,3
if rs.EOF then%><p>There are no Places To Eat matching your requirements. Please search again for a different Place To Eat.</p><%
end if
Do while not rs.EOF%>
<table width="100%" cellpadding="0" cellspacing="0">
<tr><td colspan="3"> </td></tr>
<tr class="hOff" onmouseout="this.className='hOff'" onmouseover="this.className='hOn'">
<p><strong><%=rs("name")%></strong></p>
<p><%=rs("description")%></p>
<p><%=rs("type")%></p>
</table>
<%rs.MoveNext
Loop
rs.close
con.close
end if%>
<p> </p>
<p style="font-size:smaller">Code by <a href="mailto:dchesterton@gmail.com">Daniel Chesterton</p>
</body>
</html>