Hjælp til en lille søgefunktion

Nedenfor har jeg koden til min søgefunktion der søger på et ord. Når ordet er fundet, udskriver den et ID. Disse ID'er passer sammen med nogle navne i en anden tabel.

Så i stedet for at skrive tal ud, vil jeg gerne have navnene skrevet ud, men hvordan gør jeg det??

Den anden tabel hvor navnene ligger hedder catalogs, og der hvor navnene ligger hedder catalogName.


<%
' Henter værdien fra default.asp
strKeyword = Trim(Request.Form("soeg"))

If Len(strKeyword) <= 1 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect ("default.asp")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT productName, productDesc, catalogID FROM products WHERE"
strSQL = strSQL & " (productName LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (productDesc LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (catalogID LIKE '%" & strKeyword & "%')"

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../e-handel/db/database.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<p><div align=""center""> Der blev søgt på ordet <b>" & strKeyword & "</b> som gav følgende resultat:</div></p>"
    Response.Write "<table border=0 width=430>"
    Response.Write "<tr><td><b>Kategori</b></td></tr>"
    Do While Not rs.EOF
        Response.Write "<tr><td>" & rs("catalogID") & "</td></tr>"
     
        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    Response.Write "Der er ikke fundet noget på denne søgning."
End If

myConn.Close
Set myConn = Nothing
%>