A que bien, ya investigue como
Era como un tipo anidamiento del replace o sea asi
categoria = replace(TRIM(Request.Form("categoria")),"á","& aacute;")
categoria = replace(categoria,"é","& eacute;")
categoria = replace(categoria,"í","& iacute;")
categoria = replace(categoria,"ó","& oacute;")
categoria = replace(categoria,"ú","& uacute;")
categoria = replace(categoria,"ñ","& ntilde;")
Y con esto ya recorre todas las opciones,
excelente muchas gracias YSdragil, po tu ayuda
