Hur kan man lösa detta?

Menar du typ såhär?

<!--#include virtual="/adovbs.inc"-->
<%
  Set Conn=Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=DataBas"
  Set RecSet = Server.CreateObject("ADODB.Recordset")
  Set RecSet2 = Server.CreateObject("ADODB.Recordset")
    RecSet.Open "SELECT TOP 5 * FROM spelschema ORDER BY Datum DESC", Conn, adOpenStatic, adLockOptimstic
%>

       <% do until RecSet.EOF %>
           <%=RecSet("Lagnamn")%>

               Laginformation:
<%
                        RecSet2.Open "SELECT * FROM laginfo WHERE lagID="&RecSet("ID")
                              Do Until RecSet2.EOF
%>
                                    <%=RecSet2("information")%>
<%
                              RecSet2.MoveNext
                              loop
                       RecSet2.Close
%>
<% 
  RecSet.MoveNext
Loop

RecSet.Close : Set RecSet = Nothing
Conn.Close : Set Conn = Nothing
%>

Bara ett kodexempel. Tänkre jag rätt?

Nja, inte riktigt

...

Välkommen till wF är väl på sin plats, antar jag. :)

Kanske:

set rs = conn.execute("SELECT TOP 5 * FROM [matcher] WHERE [klubbID] = " & request.querystring("klubbId") & " ORDER BY [datumForMatch] DESC")

while not rs.eof 
   'skriv ut nåt
   rs.movenext
wend

set rs = nothing

Det kan antagligen behövas en JOIN i frågan, men eftersom jag inte vet exakt vad du vill skriva ut, så kan vi väl börja med att se ifall det är sådär du menar. :)

Tror att jag nästan löst det...

...