Hjælp til 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-nummer. Disse ID'er passer sammen med nogle navne i en anden tabel.

Så i stedet for at skrive et 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.


Please help.....


<%
' 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 products.productName, products.productDesc, products.catalogID, catalogs.catalogID, catalogs.CatalogName FROM products, catalogs WHERE (products.catalogID = catalogs.catalogID) and "
strSQL = strSQL & " (productName LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (productDesc 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
%>