Smartere query? (måske noget Join?)

Hejsa

Nedenstående virker sådan set fint, men spørgsmålet er om man ikke kan lave det på en smartere måde :

<B>Nærmmeste arrangementer i kalenderen</B><BR>
<%
strQuery = "select * from kalender where `dato` >'"&datotid()&"' ORDER BY `dato` ASC LIMIT 0, 5;"
Set rsData = adoDataConn.Execute(strQuery)
Do While Not rsData.EOF %>
<P><B><%=rsData("navn").Value %></B><I>(<%=rsData("dato").value %>)</I><BR>
<%=rsData("beskrivelse").Value %><BR><%
secondq = "select * from person where ID = "&rsData("opretter").value&";"
Set secondD = adoDataConn.Execute(secondq)%>
oprettet af: <a href=mailto:<%=secondd("mail").Value%>> <%response.write(secondd("navn").value)%> </a></P>
<% rsData.MoveNext
Loop    %>

Det handler om at jeg finder de nærmeste 5 arrangementer i kalenderen, hvor "opretter" indeholder ID på en person i person tabellen. - Denne slår jeg så efterfølgende op for at få mail og navn. spørgsmålet er om det kan gøres mere elegant en 6 opslag pr visning af siden ? (uden at det går hen og bliver alt for kryptisk?)

Mvh
Kristoffer