<% @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") sGetStateList = "SELECT StateID, State FROM States" rsStateList.Open sGetStateList, adoCon sGetStateCount = "SELECT COUNT(State) FROM States" rsStateCount.Open sGetStateCount, adoCon %>

Submit Please fill out the following form to submit the ten most ordered drinks that you know of in your city. 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: Name: E-mail: Questions/Comments? Add me to your mailing list!
© Copyright 2003, www.MostOrdered.com