<% limpiar=(Replace(Request.Form("busqueda"),"'","''") vector =Split(limpiar,"/") response.write ubound(vector) response.end %>