[ CATALOG ]  SEARCH: "" then response.write(Request.form("menu1")) else response.write("clear") end if%>"><< <%if Request.form("menu1")<>"" then%>Selected: <% Response.write(Request.form("menu1")) else %>SELECT MAKE <% end if %>>> <%Dim cmd set Session("conn")= Server.CreateObject("ADODB.Connection") Session("conn").Open "Provider=SQLOLEDB;Network Library=DBMSSOCN;Initial Catalog=DynacornSQLCart;User ID=DynaAdmin;password=Admin1400" set cmd = Server.CreateObject("ADODB.Command") set cmd.activeConnection = Session("conn") cmd.commandText = "SELECT DISTINCT Manufacturer FROM Item WHERE Department='Catalog'" Dim rs, valstr Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open cmd while not rs.EOF if rs("Manufacturer")<>"" then Response.write(""&rs("Manufacturer")&"") end if rs.MoveNext wend rs.close %> <% cmd.commandText = "SELECT Min(ItemUD1) AS ItemUD1 FROM Item WHERE Department='Catalog' AND ItemUD1!=''" if Request.form("menu1")<>"" and Request.form("menu1")<>"clear" then 'response.write(Request.form("menu1")) cmd.commandText=cmd.commandText & " AND Manufacturer='"&Request.form("menu1") &"'" end if 'response.write(cmd.commandText) rs.Open cmd min=rs("ItemUD1") 'Response.Write cmd.CommandText cmd.commandText = "SELECT Max(ItemUD2) AS ItemUD2 FROM Item WHERE Department='Catalog'" rs.close if Request.form("menu1")<>"" and Request.form("menu1")<>"clear" then 'response.write(Request.form("menu1")) cmd.commandText=cmd.commandText & " AND Manufacturer='"&Request.form("menu1") &"'" end if 'response.write(cmd.commandText) rs.Open cmd max=rs("ItemUD2") rs.close %> <<< SELECT YEAR >>> ALL YEARS <% if min<>"" and max<>"" then for x=min to max Response.write(""&x&"") next end if set rs=Nothing %>