Tror du skal prøve at gøre således
<%
Dim obj_Connection
Set obj_Connection = Server.CreateObject("ADODB.Connection")
obj_Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath(".") & "GuruData.mdb;"
obj_Connection.Open
str_ShapeConnection = obj_Connection.ConnectionString
str_ShapeConnection = "Provider=MSDataShape; Data & str_ShapeConnection
str_SQL = "SHAPE {SELECT * FROM dinTabel} "&_
"APPEND ({SELECT * FROM dinAndenTabel} "&_
"RELATE ParentID TO ParentID) as obj_ChildRS;" 'ParentID er to kolonner med id'er i hver af tabellerne
Set obj_RecordsetParent = Server.CreateObject("ADODB.Recordset")
obj_RecordsetParent.Open str_SQL, str_ShapeConnection, 1, 1
do while not obj_RecordsetParent.eof
Response.write(obj_RecordsetParent.Fields("FeltNavn") & "<br>")
Set obj_RecordsetChild = obj_RecordsetParent.Fields("obj_ChildRS").Value
do while not obj_RecordsetChild.eof
Response.Write(" - " & obj_RecordsetChild.Fields("Feltnavn") & "<br>")
obj_RecordsetChild.MoveNext
loop
obj_RecordsetChild.Close
Set obj_RecordsetChild = Nothing
obj_RecordsetParent.MoveNext
loop
obj_RecordsetParent.Close
Set obj_RecordsetParent = Nothing
obj_Connection.Close
Set obj_Connection = Nothing
%>
Jeg vil ikke give nogen garanti for at det fungerer, men det er den måde, som det ca. skal bygges op på.
Ellers skulle du prøve at kigge på denne artikel
http://www.4guysfromrolla.com/webtech/092599-1.shtml
