Sql-optimering

Hej

Kan jeg ikke få dig til at optimere denne kode... jeg er ikke så god til sql:

strSQL="SELECT * FROM LINKS_FSH WHERE CategoryID = " & Request.QueryString("ID") & " and Publish <= '" & alternativeDate() & "' ORDER BY Publish DESC"

Set rs=dataConn.Execute(strSQL)
       
While Not rs.EOF
  if not rs("CategoryID") = 0 then
    strSQL2="select Title FROM LINKS_CATEGORIES where ID = " & rs("CategoryID")
    set rs2 = dataConn.execute(strSQL2)
    if not rs2.eof then
      strCategory = rs2("Title")
    end if
  end if
loop