AFFAIRES & JURIDIQUE

<%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 %> AFFAIRES & JURIDIQUE

Nom :

Mot de passe :

Enregistrer le mot
de passe

Accueil > Download Simulation Judiciaire

DOWNLOAD Simulation Judiciaire

Le Cabinet AFFAIRES & JURIDIQUE met à votre disposition un programme de simulation judiciaire GRATUITEMENT.

Veuillez fournir les informations ci-dessous avant de le télécharger
(Renseignements obligatoires )

Prenom			Nom
Fonction			Societe
Adresse
Ville			Code postal
Telephone			Pays
Activite			Telecopie
email			URL
Je veux recevoir une documentation sur votre cabinet

Tester ce programme avant de le télécharger

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
AFFAIRES & JURIDIQUE 25 rue de Ponthieu 75008 PARIS \| Tel: 01 30 82 02 02 Fax: 01 39 16 32 19 Plan d'accès