%@ language="vbscript" %> <% size=request.querystring("size") neighborhood=request.querystring("neighborhood") set wredb=server.createobject("adodb.connection") wredb.open "wrebuild" if size="studio" then sql="select * from buildings where studio<>0 and neighborhood='"&neighborhood&"'" set infoset=wredb.execute(sql) size="Studios" else if size="onebed" then sql="select * from buildings where onebed>0 and neighborhood='"&neighborhood&"'" set infoset=wredb.execute(sql) size="One Bedroom" else if size="twobed" then sql="select * from buildings where twobed>0 and neighborhood='"&neighborhood&"'" set infoset=wredb.execute(sql) size="Two Bedrooms" else if size="threebed" then sql="select * from buildings where threebed>0 and neighborhood='"&neighborhood&"'" set infoset=wredb.execute(sql) size="Three Bedrooms" else if size="fourbed" then sql="select * from buildings where fourbed>0 and neighborhood='"&neighborhood&"'" set infoset=wredb.execute(sql) size="Four Bedrooms" end if end if end if end if end if %>
Click Here for a larger, more detailed map. |
<%=size%> in <%=neighborhood%>: <% if infoset.eof then response.write("None") else while not infoset.eof %> "> <% response.write infoset("address")%> <%infoset.movenext wend end if%> |