Looks like you are talking about drill down...the following example is a good and advanced one and should cover your case. If not then explain in more detail your application.

Frank

<h3><CENTER>Drill-Down Demo<BR>
<center><h3>Click on an Employee to see who they report to.<BR>
Click on an Order Number to see the Order Details. This is a five levels drill and response time is slow. The right way to do this is to use the "DynaList". </h3></center><p>
<CENTER><TABLE border=0><TR>

<TD> </TD><TD>
<%'
Set X=Server.CreateObject("ASP.db")
X.dbQuickProps = "10271;NWIND;Employees;Grid;;;;;100"
X.dbNavigationItem="none"
X.dbstatusbar=false
X.dbSQL="SELECT employeeID, FirstName, LastName, ReportsTo FROM employees"
X.dbSelectBox="5,<B>Employee (ID) Name</B>, Select Employee;(#employeeID#) #FirstName# #LastName#"
X.dbGridTableTag = "Border=1"
X.dbExportFlds="0,1,2,3"
X.ASPdb
%>
</TD>
<TH>

<%
if Session("ASPDB_10271_ReportsTo") <> "" then
Set X=Server.CreateObject("ASP.db")
X.dbQuickProps = "10272;NWIND;Employees;Form"
X.dbSQL="SELECT FirstName, LastName FROM employees where employeeID=" & session("ASPDB_10271_ReportsTo")
'X.dbOptions="Display=false"
X.dbFormDisplayFlds = "-1"
X.dbStatusBar=false
X.dbNavigation="none"
X.dbExportFlds="0,1"
X.ASPdb
ThisPerson = Session("ASPDB_10271_FirstName") & "&nbsp;" & Session("ASPDB_10271_LastName")
ReportsTo = Session("ASPDB_10272_FirstName") & "&nbsp;" & session("ASPDB_10272_LastName")
response.write(ThisPerson & " reports to: " & ReportsTo)
end if
%>

</TH></TR><TR><TD colspan=4><HR></TD></TR><TR valign=top><TD>

<%
Set X=Server.CreateObject("ASP.db")
X.dbDSN = "NWIND"
X.dbUnit=10273
X.dbMode="grid"
X.dbSQL="SELECT employeeID, OrderID FROM Orders where employeeID=" & session("ASPDB_10271_employeeID")
X.dbSelectBox="5,<B>Orders</B>; #OrderID#"
X.dbGridInc=999999
X.dbGridTableTag="Border=1"
X.dbNavigationItem="none"
X.dbExportFlds="OrderID"
X.dbstatusbar=false
X.dbFormTableTag = "Border=1"
X.ASPdb
%>
</TD>

<TD>
<%
Set X=Server.CreateObject("ASP.db")
s = zHead & ",<CENTER><b>Order Details</b></CENTER><BR>; "
'X.dbUserLocalText=s
X.dbDSN = "NWIND"
X.dbDBType="SQL"
X.dbUnit=10274
X.dbMode="form"
X.dbSQL="SELECT * FROM [Order details] where orderID=" & session("ASPDB_10273_orderID")
X.dbNavigationItem="none"
X.dbstatusbar=false
X.dbExportFlds="ProductID"
X.dbFormTableTag = "Border=1"
X.ASPdb
%>
</TD>

<TD>
<%
Set X=Server.CreateObject("ASP.db")
s = zHead & ",<CENTER><b>Product Details</b></CENTER><BR>; "
'X.dbUserLocalText=s
X.dbDSN = "NWIND"
X.dbDBType="SQL"
X.dbUnit=10275
X.dbMode="form"
X.dbSQL="SELECT * FROM Products where productID=" & session("ASPDB_10274_productID")
X.dbNavigationItem="none"
X.dbstatusbar=false
X.dbExportFlds="SupplierID"
X.dbFormTableTag = "Border=1"
X.ASPdb
%>
</TD>

<TD>
<%
Set X=Server.CreateObject("ASP.db")
s = zHead & ",<CENTER><b>Supplier Details</b></CENTER><BR>; "
'X.dbUserLocalText=s
X.dbDSN = "NWIND"
X.dbDBType="SQL"
X.dbUnit=10276
X.dbMode="form"
X.dbSQL="SELECT * FROM Suppliers where supplierID=" & session("ASPDB_10275_supplierID")
X.dbNavigationItem="none"
X.dbstatusbar=false
X.dbFormTableTag = "Border=1"
X.ASPdb
%>
</TD>
</TR></TABLE>