Filtering Option:

<% set rs=Server.CreateObject("ADODB.RECORDSET") sql=" select * from Category" rs.Open sql,sdsn,adOpenKeyset,adLockReadOnly,AdCmdText %> - - - Sort By First Name - - - - - - - - - - - - - ALL - - - - - - - - - selected <%end if%>> A selected <%end if%>> B selected <%end if%>> C selected <%end if%>> D selected <%end if%>> E selected <%end if%>> F selected <%end if%>> G selected <%end if%>> H selected <%end if%>> I selected <%end if%>> J selected <%end if%>> K selected <%end if%>> L selected <%end if%>> M selected <%end if%>> N selected <%end if%>> O selected <%end if%>> P selected <%end if%>> Q selected <%end if%>> R selected <%end if%>> S selected <%end if%>> T selected <%end if%>> U selected <%end if%>> V selected <%end if%>> W selected <%end if%>> X selected <%end if%>> Y selected <%end if%>> Z

- - - - - - Sort By Plant Category - - - - - - - - - - - - - - - - Show All Plant - - - - - - - - - <%do while not rs.EOF%> selected<%end if%> value="<%=rs("CategoryID")%>"><%=rs("Category")%> <%rs.MoveNext() loop %>

---

<% set rs0=Server.CreateObject("ADODB.RECORDSET") sql=" select * from Plants where CategoryID <> 0" if Request("CategoryID") <> "-1" and Request("CategoryID") <> "" then sql = sql & " and CategoryID=" & Request("CategoryID") if request("firstchar") <> "" and request("firstchar") <> "-1" then sql = sql & " and PlantName like'" & Request("firstchar") & "%'" rs0.Open sql,sdsn,adOpenKeyset,adLockReadOnly,AdCmdText if not rs0.EOF then %> <% do while not rs0.EOF %> <% rs0.MoveNext() loop %> <% else %> There Is No Records Found <% End if %>

Plant Name		Plant Category
"><%=(rs0("PlantName"))%>		"><%=(rs0("Category"))%>