Ho trovato l'errore:
inserisco il codice potrebbe servire a qualcuno
codice:
<SELECT NAME=categoria >
      <%

set rs = Conn.Execute("select * from cat_link order by titolo")
Do while NOT RS.EOF
categoria = rs("idcat_link")

'ObjRS è la connessione primaria al db
  IF categoria = ObjRS("idcat_link") then 
  Selected="SELECTED"
  else
  Selected = ""
  end if
  
  Response.write "<OPTION value="& categoria &" " & Selected & " >" & RS("titolo")

  RS.MoveNext
Loop
%>
    </SELECT>
Grazie ancora