Du ska använda en JOIN:
SELECT lankar.*, kategorier.namn AS kategorinamn FROM lankar JOIN kategorier ON lankar.kategori=kategorier.id
Då får du med kategorinamnet i ditt recordset genom att bara skriva RecSet("kategorinamn").
Det blir alltså såhär på ett ungefär:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/lankar.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT lankar.*,kategorier.namn AS kategorinamn FROM lankar JOIN kategorier on kategori.id=lankar.kategori ORDER BY inlagd DESC"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF %>
<li>
<div id="tips<%=RecSet("id")%>">
<p><span class="rubrik"><a href="?vad=ut&id=<%=RecSet("id")%>" target="_blank"><%=RecSet("rubrik")%></a></span><br>
<span class="beskrivning"><%=RecSet("beskrivning")%></span><br>
<span class="info">Kategori: <a href="?visa=kategori&katid=<%=RecSet("kategori")%>"><%=RecSet("kategorinamn")%></a> | Antal klick: <%=RecSet("antalklick")%> | Inlagd: <%=RecSet("inlagd")%></p></span>
</div>
</li>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
%>

