Cabinet CERCO - Juristes d'Affaires

<%session.lcid = 1036%> <% que=Request("question") Function noblan(txt) dim temp,regEx temp=txt Set regEx = New RegExp regEx.IgnoreCase= True regEx.Global = True regEx.Pattern = "[àâ]" :temp = regEx.REPLACE(temp,"a") regEx.Pattern = "(l')" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "(s')" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "(d')" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "(m')" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "(t')" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bde\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bdes\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bdu\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\ble\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bla\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bles\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bil\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\belle\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bils\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\belles\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bdans\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bson\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bsa\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bse\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bses\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bleur\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bleurs\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bau\b" : temp = regEx.REPLACE(temp,"") regEx.Pattern = "\baux\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\bet\b" :temp = regEx.REPLACE(temp,"") regEx.Pattern = "\ba\b" : temp = regEx.REPLACE(temp,"") regEx.Pattern = "[+]" :temp = regEx.REPLACE(temp," ") noblan=temp end function %> <% dim ques ques= noblan(que) ques=TRIM(ques) while INSTR(ques," ") >0 ques=REPLACE(ques," "," ") wend %> <% myarray = Split(QUES) CDM = Ubound(myarray) dim cd,mot CD=cint(CDM) %> <% Function REP(txt) dim temp,RegEx,deb,fin deb=""&"" fin=""&"" temp=txt Set regEx = New RegExp regEx.IgnoreCase= True regEx.Global = True FOR i = 0 TO CD mot=myarray(i) regEx.Pattern = Mot temp=regEx.REPLACE(temp,deb&MOT&fin) NEXT REP=temp end function %> Cabinet CERCO - Juristes d'Affaires

Nom :

Mot de passe :

Enregistrer le mot
de passe

Accueil > Interviews

INTERVIEWS

	Le cabinet CERCO interviewe ses clients, collaborateurs externes, correspondants ...


30 septembre 2002	SCHINDLER S.A. Monsieur SCRIGNAC
21 janvier 2003	SATAS S.A. Madame BOURGEOIS












	D'autres interviews seront bientôt en ligne	... à suivre

Discutez de
"Droit en ligne"

3 réponses gratuites
en ligne

Publiez un article
sur le site

Membre et consultant de l'association des crédits Managers


	Accès client \| Gestion Amont \| Externalisation \| Recouvrement \| Formation \| Notre Groupe \| contacts
Cabinet CERCO S.A. 14 av de la Grande Armée 75017 PARIS \| Tel: 01 40 750750 Fax: 01 40 750755 Plan d'accès