<% @LANGUAGE="VBSCRIPT" %> <% Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mostordered.mdb") Set rsStateList = Server.CreateObject("ADODB.Recordset") Set rsStateCount = Server.CreateObject("ADODB.Recordset") Set rsCityList = Server.CreateObject("ADODB.Recordset") Set rsCityCount = Server.CreateObject("ADODB.Recordset") sGetStateList = "SELECT StateID, State FROM States WHERE HasCities = 1" rsStateList.Open sGetStateList, adoCon if request("State") = "" then rsStateList.MoveFirst State = rsStateList("StateID") else State = request("State") end if sGetCityList = "SELECT CityID, CityName FROM Cities WHERE StateID = " & State rsCityList.Open sGetCityList, adoCon sGetCityCount = "SELECT COUNT(CityName) FROM Cities WHERE StateID = " & State rsCityCount.Open sGetCityCount, adoCon sGetStateCount = "SELECT COUNT(State) FROM States Where HasCities = 1" rsStateCount.Open sGetStateCount, adoCon %>

Search To search for the most ordered drinks and alcohol in your city, select the state, type the name of your city in the space provided, and click the Search button. State: <% rsStateList.MoveFirst For i = 0 to rsStateCount(0) if not rsStateList.EOF and not rsStateList.BOF then response.write("" & rsStateList("State") & "" & vbNewLine) rsStateList.MoveNext end if Next %> City: <% if not rsCityList.EOF and not rsCityList.BOF then rsCityList.MoveFirst For i = 0 to rsCityCount(0) if not rsCityList.EOF and not rsCityList.BOF then response.write("" & rsCityList("CityName") & "" & vbNewLine) rsCityList.MoveNext end if Next else response.write("No Cities" & vbNewLine) end if %>
© Copyright 2003, www.MostOrdered.com