<% @LANGUAGE="VBSCRIPT" %> <% Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mostordered.mdb") Set rsCityList = Server.CreateObject("ADODB.Recordset") Set rsCityCount = Server.CreateObject("ADODB.Recordset") Set rsDrinkList = Server.CreateObject("ADODB.Recordset") Set rsDrinkCount = Server.CreateObject("ADODB.Recordset") sGetCityList = "SELECT c.CityID, c.CityName, c.StateID, s.StateAbbr FROM Cities c, States s WHERE c.StateID = s.StateID ORDER BY c.CityName" rsCityList.Open sGetCityList, adoCon sGetCityCount = "SELECT COUNT(CityName) FROM Cities" rsCityCount.Open sGetCityCount, adoCon sGetDrinkList = "SELECT DrinkName FROM DrinkList" rsDrinkList.Open sGetDrinkList, adoCon sGetDrinkCount = "SELECT COUNT(DrinkName) FROM DrinkList" rsDrinkCount.Open sGetDrinkCount, adoCon 'Make the City & State one drop down box using state abbreviations and update submitform.html accordingly %>

Submit Please fill out the following form to submit up to ten of the most ordered drinks that you know of in your city Don't see your city listed?  Feel free to add it to our database!. City: <% rsCityList.MoveFirst For i = 0 to rsCityCount(0) if not rsCityList.EOF and not rsCityList.BOF then response.write("" & rsCityList("CityName") & ", " & rsCityList("StateAbbr") & "" & vbNewLine) 'response.write(rsCityList("StateAbbr")) rsCityList.MoveNext end if Next %> Name: E-mail: 1. Select <% rsDrinkList.MoveFirst For i = 0 to rsDrinkCount(0) if not rsDrinkList.EOF and not rsDrinkList.BOF then response.write("" & rsDrinkList("DrinkName") & "" & vbNewLine) rsDrinkList.MoveNext end if Next %> 2. Select <% rsDrinkList.MoveFirst For i = 0 to rsDrinkCount(0) if not rsDrinkList.EOF and not rsDrinkList.BOF then response.write("" & rsDrinkList("DrinkName") & "" & vbNewLine) rsDrinkList.MoveNext end if Next %> 3. Select <% rsDrinkList.MoveFirst For i = 0 to rsDrinkCount(0) if not rsDrinkList.EOF and not rsDrinkList.BOF then response.write("" & rsDrinkList("DrinkName") & "" & vbNewLine) rsDrinkList.MoveNext end if Next %> 4. Select <% rsDrinkList.MoveFirst For i = 0 to rsDrinkCount(0) if not rsDrinkList.EOF and not rsDrinkList.BOF then response.write("" & rsDrinkList("DrinkName") & "" & vbNewLine) rsDrinkList.MoveNext end if Next %> 5. Select <% rsDrinkList.MoveFirst For i = 0 to rsDrinkCount(0) if not rsDrinkList.EOF and not rsDrinkList.BOF then response.write("" & rsDrinkList("DrinkName") & "" & vbNewLine) rsDrinkList.MoveNext end if Next %> 6. Select <% rsDrinkList.MoveFirst For i = 0 to rsDrinkCount(0) if not rsDrinkList.EOF and not rsDrinkList.BOF then response.write("" & rsDrinkList("DrinkName") & "" & vbNewLine) rsDrinkList.MoveNext end if Next %> 7. Select <% rsDrinkList.MoveFirst For i = 0 to rsDrinkCount(0) if not rsDrinkList.EOF and not rsDrinkList.BOF then response.write("" & rsDrinkList("DrinkName") & "" & vbNewLine) rsDrinkList.MoveNext end if Next %> 8. Select <% rsDrinkList.MoveFirst For i = 0 to rsDrinkCount(0) if not rsDrinkList.EOF and not rsDrinkList.BOF then response.write("" & rsDrinkList("DrinkName") & "" & vbNewLine) rsDrinkList.MoveNext end if Next %> 9. Select <% rsDrinkList.MoveFirst For i = 0 to rsDrinkCount(0) if not rsDrinkList.EOF and not rsDrinkList.BOF then response.write("" & rsDrinkList("DrinkName") & "" & vbNewLine) rsDrinkList.MoveNext end if Next %> 10. Select <% rsDrinkList.MoveFirst For i = 0 to rsDrinkCount(0) if not rsDrinkList.EOF and not rsDrinkList.BOF then response.write("" & rsDrinkList("DrinkName") & "" & vbNewLine) rsDrinkList.MoveNext end if Next %> Add me to your mailing list!
© Copyright 2003, www.MostOrdered.com