In this scenario, use Jump Menus for your list boxes. The MM jump menu code
will get you started.
Basically, you'll have jump menu 1 pass its value via query string. Set it to
jump to the page you're already on.
You'll need a little hand-coding, but in the end, it will look something like
this:
<select name="typeMenu" onChange="MM_jumpMenu('self',this,0)">
<%
Do While NOT typeRS.EOF
%>
<option value="ThisPage.asp?Type=<%=typeRS.Fields.Item("Ty peID").Value%>" <%If
ThisType = typeRS.Fields.Item("TypeID").Value Then Response.Write("selected")
End If%>><%=typeRS.Fields.Item("TypeName").Value%></option>
<%
typeRS.MoveNext()
Loop
%>
Filter your report description recordset on Request.QueryString("Type"), and
make sure to give it the default value of the first item in your type recordset.
<%
Code to set up rsType
rsType.Open()
Dim ThisType
ThisType = Request.QueryString("Type")
If ThisType = "" Then
ThisType = rsType.Fields.Item("TypeID").Value
%>
Now, filter your rsReports on the variable ThisType. You'll notice that the
jump menu code above also makes use of ThisType to make the menu choice
"sticky". Using a variable is much faster than repeatedly requesting the value
from the query string. Then, you can set up your report description menu as a
normal dynamic menu using the rsReports recordset you created.
That's about it. Let me know if I wasn't real clear; I'm not the best teacher
around.