togli la select e stampa così:
<%
categoria = Trim( Request.Querystring ("titolo"))
set rs = Conn.Execute("select * from cat_link order by titolo")
Do while NOT RS.EOF



IF categoria = trim ( RS("titolo") ) then
Selected=" SELECTED"
else
Selected = ""
end if

Response.write rs("idcat_link")&" " & Selected & " " & RS("titolo") "< br > "

RS.MoveNext
Loop
%>

ovviamente togli gli spazi nel BR e inoltre togli da dentro il ciclo la raccolta della query string!