kendo annecy - club d'escrime japonaise en haute savoie affilié à la ffjda
kendo annecy - club d'escrime japonaise en haute savoie affilié à la ffjda
ffjda - recherche d'un club
kendo annecy, club de kendo d'annecy art martiaux, escrime japonaise, club de kendo et de iaido en haute-savoie
kendo annecy - club d'escrime japonaise en haute savoie affilié à la ffjda
index

 

Administration du site www.annecykendo.com

Identifiant

  
Mot de passe
  
 
Vous avez oublié ou vous n'avez pas votre mot de passe ?

Saisissez votre adresse Email  

gestion des actualités
<% if request("agence") <> "" then agencecourante = request("agence") else agencecourante = 0 end if clausewhere = "" clauseorder = " ORDER BY message.ordre" if request("ref") = "actifs" then clausewhere = "and afficher = 1 " end if if request("ref") = "inactifs" then clausewhere = "and afficher = 0 " end if if agencecourante <> 0 then clausewhere = clausewhere & "and agence=" & agencecourante end if if clausewhere <> "" then clausewhere = mid(clausewhere,4) sql = "SELECT message.* FROM message where " & clausewhere & clauseorder & ";" else sql = "SELECT message.* FROM message " & clauseorder & ";" end if Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 'response.write sql 'pagination NbrEnregist = 0 if not rs.eof then NbrEnregist = rs.recordcount end if Deb = request("deb") if Deb = "" then Deb = 0 Fin = Deb + nbre_lignes_aff if Fin > NbrEnregist then Fin = NbrEnregist 'paramètre pour le nombre d'enregistrements affichés par page nbre_lignes_aff = 3 ' compteur de pages IF NOT checknonull(deb) THEN deb = 0 IF NOT IsNumeric(deb) THEN deb = 0 ELSE deb = Cint(deb) IF NbrEnregist > nbre_lignes_aff THEN numpage = 0 ecars = 0 FOR l=1 TO NbrEnregist limit_sup = (numpage*nbre_lignes_aff) + nbre_lignes_aff if limit_sup > NbrEnregist then ecars = NbrEnregist - limit_sup limit_sup = NbrEnregist end if IF l = limit_sup THEN if l - nbre_lignes_aff - ecars = deb then 'l = NbrEnregist then 'liens_page = liens_page & l - nbre_lignes_aff + 1 - ecars & "-"& limit_sup & " - " liens_page = liens_page & "" & numpage + 1 & " - " else liens_page = liens_page &"" & numpage + 1 & " - " end if numpage = numpage + 1 END IF NEXT IF checknonull(liens_page) THEN liens_page = Left(liens_page,Len(liens_page)-3) END IF %> Gestion des actualités
Liste des opportunités
<% if rs.recordcount = 1 then response.write " 1 fiche trouvée " if rs.recordcount > 1 then response.write " " & rs.recordcount & " fiches trouvées " %>

  <%if not rs.EOF then%>

<% 'positionnement sur l'enreg de départ if Deb > 0 then if not (rs.bof and rs.eof) then rs.moveFirst For ind = 0 to Deb - 1 if not rs.eof then rs.moveNext else exit for end if Next end if end if vcompteur = 1 do while not rs.EOF vcompteur = vcompteur + 1%> <% if Cint(vcompteur/2) = vcompteur/2 then %> <% else %> <% end if %> <% rs.movenext loop %>
  Date Message  
"> ';" nowrap valign="top"> <%=rs.fields("datedebut")%>
';" width="100%" valign="top">
<% if rs.fields("image_1") <> "" then %> " alt="<%response.write rs.fields("image_1")%>" border="1"> <% end if %>
<%sql = "SELECT lesagences.* FROM lesagences where num=" & rs.fields("agence") Set ag = Server.CreateObject("ADODB.Recordset") ag.Open sql, conn, 3, 3 response.write "" & ag.fields("agence") & "
" coord=ag.fields("tel") ag.close %>
<% response.write rs.fields("ville") %>
<% response.write rs.fields("titre") %>

<% netoy = replace(rs.fields("resume"),VbCrlF,"
") 'netoy = replace(rs.fields("resume"),"
","
") response.write netoy %><%if rs.fields("resumelong")<> "" then response.write "[ " response.write "En savoir plus..." response.write " ]" end if if rs.fields("lien") <> "" then response.write "
" response.write "Lien" response.write "" end if %>
Tél : <% = coord %>
';" nowrap valign="top">
<% if rs.fields("afficher") = 1 then %> <% else %><% end if %>
 
<% if session("droit") < 3 then %>" target="mainFrame">Supprimer<% end if %>
- <%= liens_page %> -

<% end if rs.close %>

<%=session("droit")%>

kendo annecy - club d'escrime japonaise en haute savoie affilié à la ffjda
Kendo Annecy - club d'escrime japonaise en Haute Savoie affilié à la FFJDA

 

Calendrier

Dernière mise à jour:

 

21 et 22 juin

Stage de masse

Meylan

R. Armand, 7ème dan renshi

21 et 22 juin

Coupe de Pessac

Pessac (Gironde)

Programme

27 juin

Assemblée générale du club

Annecy

18h30, au 2 rue Louis Armand, Annecy

28 juin

Stage

Nice

Mr Origuchi, 7ème dan kyoshi

Expert Délégué par la fédération japonaise

28 et 29 juin

Stage et geiko de fin d'année

Montpellier

P. Lheureux, 7ème dan

9 au 13 juillet

Universités d'été

Houlgate

 

21 au 25 juillet

Stage

Fontenay-le-comte

JP Raick, 7ème dan kyoshi

21 au 26 juillet

Stage

Andorre

Mr Okada, 7ème dan kyoshi

28 juillet au 1er août

Stage

Fontenay-le-comte

JP Raick, 7ème dan kyoshi

4 au 8 août

Stage

Lourdes

JP Soulas, 6ème dan renshi

11 au 15 août

Stage

Sophia Antipolis

Mr Ohta, 8ème dan hanshi

27 et 28 septembre

Coupe Kasahara

Genève

 Tournois (équipe, ladies, junior et open)

 
 

calendrier2004-2
  MAI   2005 JUIN  2005
D 1 Stage Kata/geiko  Chambéry M 1  
L 2 Geiko Chambéry J 2  
M 3   V 3  
M 4   S 4  
J 5   D 5  
V 6   L 6 Geiko Chambéry
S 7   M 7  
D 8   M 8  
L 9   J 9  
M 10   V 10  
M 11   S 11  
J 12   D 12  
V 13   L 13  
S 14 Championnats de France Honneur M 14 Geiko Genève
D 15 Equipes / Ind. M 15  
L 16   J 16  
M 17   V 17  
M 18   S 18 STAGE DE MASSE N°3
J 19   D 19 Meylan
V 20   L 20  
S 21 Critérium Régional Kyus/Jeunes M 21  
D 22 Chambéry M 22  
L 23   J 23 Kata / Geiko
M 24   V 24  
M 25   S 25  
J 26 Kata / Geiko D 26  
V 27   L 27  
S 28   M 28  
D 29   M 29  
L 30   J 30  
M 31        

kendo annecy - club d'escrime japonaise en haute savoie affilié à la ffjda
Kendo Annecy - club d'escrime japonaise en Haute Savoie affilié à la FFJDA

L'encadrement

L'encadrement est assuré par :
- Silvain MOUTARDE, 6e Dan, titulaire du BEFK (Brevet d'Enseignement Fédéral de Kendo )
- Emmanuel FAUTRAT, 4e Dan, titulaire du BEFK (Brevet d'Enseignement Fédéral de Kendo )
- Kayoko NAGANO, 4e Dan

Horaires et lieu des entraîenements

Section enfants :
Ouverture d'une section enfants en septembre
Mercredi de 16h à 17h

Section adultes :
Mardi et Jeudi de 20h à 22h

Lieu des entraînements
Gymnase de Novel
Place de l'Annapurna
74000 ANNECY

Cotisations et adhésions

L'inscription est subordonnée à la présentation d'un certificat médical d'aptitude à la pratique du Kendo.

Il est possible d'essayer avant de s'inscrire (4 cours sans engagement). Munissez vous d'un vêtement ample et d'un certificat médical (obligatoire). Le club dispose de matériel en prêt gracieux.

La cotisation comprend le prix de la licence FFJDA, de son assurance et la partie inscription club.

jusqu'à fin décembre :

Tarif normal pour la saison
160 € dont 29 € de licence FFJDA

Tarif réduit pour la saison
(-18 ans, étudiant(e) ou sans emploi)

110 € dont 29 € de licence FFJDA

A partir de Janvier : Tarif 29 € + (le prorata sur dix mois de la cotisation x le nombre de mois restant)

Tarif Normal  
Inscription en janvier
107 € dont 29 € de licence FFJDA
Inscription en février
94 € dont 29 € de licence FFJDA
Inscription en mars
81 € dont 29 € de licence FFJDA
Inscription en avril
68 € dont 29 € de licence FFJDA
Inscription en mai
55 € dont 29 € de licence FFJDA
Inscription en juin
42 € dont 29 € de licence FFJDA
Tarif Réduit  
Inscription en janvier
77 € dont 29 € de licence FFJDA
Inscription en février
69 € dont 29 € de licence FFJDA
Inscription en mars
61 € dont 29 € de licence FFJDA
Inscription en avril
53 € dont 29 € de licence FFJDA
Inscription en mai
45 € dont 29 € de licence FFJDA
Inscription en juin
37 € dont 29 € de licence FFJDA
   

Fiche d'inscription pour la saison

Pour tout renseignement, n'hésitez pas à nous contacter Emmanuel au
06.19.86.87.89 ou par mail
 

extranet itheac
Extranet Itheac
Login
Mot de passe

ajout
<% 'on error resume next if Session("user") <> "OK" then response.redirect "index.htm" end if If IsObject(Session("user_conn")) Then Set conn = Session("user_conn") Else chemin=Server.MapPath(".") & "/contact.mdb" Session("connstring")="Driver=Microsoft Access Driver (*.mdb); DBQ=" & chemin & ";" set conn=server.createObject("ADODB.Connection") conn.open Session("connstring") set Session("user_conn") = conn End If if request.querystring ("num") <> "" then sql = "SELECT contacts.* FROM contacts where num =" & request.querystring ("num") & ";" else sql = "SELECT contacts.* FROM contacts where num =100000000;" end if Set contact = Server.CreateObject("ADODB.Recordset") contact.Open sql, conn, 3, 3 if not contact.EOF then num = contact.fields("num") vclassement = contact.fields("Classement") vprofil = contact.fields("profil") ltype = contact.fields("ltype") grade = contact.fields("grade") coupealpes = contact.fields("coupealpes") arbitre = contact.fields("arbitre") table = contact.fields("table") cd = contact.fields("cd") pays = contact.fields("pays") societe = contact.fields("societe") adresse = contact.fields("adresse") case_postale = contact.fields("case_postale") cp = contact.fields("cp") ville = contact.fields("ville") tel = contact.fields("tel") fax = contact.fields("fax") mobile = contact.fields("mobile") email = contact.fields("email") nom = contact.fields("nom") prenom = contact.fields("prenom") profession = contact.fields("profession") canton = contact.fields("canton") if contact.fields("site")<> "" then site = replace(contact.fields("site"),"http://","") end if donnees_principales = contact.fields("donnees_principales") donnees_secondaires = contact.fields("donnees_secondaires") priorite = contact.fields("priorite") mailing = contact.fields("mailing") commentaires = contact.fields("commentaires") fonction = contact.fields("fonction") infos = contact.fields("infos") voeux = contact.fields("voeux") end if %>
Classement : <% sql = "Select param.* from param where param.liste='classement' order by ordre;" Set liste = Server.CreateObject("ADODB.Recordset") liste.Open sql, conn, 3, 3 %> Profil : <% sql = "Select param.* from param where param.liste='profil' order by ordre;" Set liste = Server.CreateObject("ADODB.Recordset") liste.Open sql, conn, 3, 3 %> Type : <% sql = "Select param.* from param where param.liste='type' order by ordre;" Set liste = Server.CreateObject("ADODB.Recordset") liste.Open sql, conn, 3, 3 %>
Désignation générique :
Contact Coupe des Alpes checked<%end if%>>
Arbitre checked<%end if%>>
Teneur de table checked<%end if%>>
Membre du comité directeur checked<%end if%>>
voeux : checked<%end if%>>
Adresse :
CP / ville / pays / Canton :
Telephone : "> Fax : "> Case postale :  
Site internet :  
Nom / Prenom:
Fonction : grade : <% sql = "Select param.* from param where param.liste='grade' order by ordre;" Set liste = Server.CreateObject("ADODB.Recordset") liste.Open sql, conn, 3, 3 %>
Email : Infos : checked<%end if%>> Mobile :  
Données principales :
Commentaires :
<%if session("droit")>0 then %> <% end if %> <%if session("droit")>0 then%> <% end if %> <%if session("droit")>0 then%> <% end if %>

 
<% response.write "" & societe & "
" response.write "" & Nom & " " & prenom & "
" response.write "" & adresse & "
" response.write "" & cp & " " & ville & "
" %> <% if IsObject(contact)=true then contact.close set contact = Nothing end if %>
ajout traitement infos
<% if Session("user") <> "OK" then response.redirect "index.htm" end if if IsObject(Session("user_conn")) Then Set conn = Session("user_conn") Else chemin=Server.MapPath(".") & "/contact.mdb" Session("connstring")="Driver=Microsoft Access Driver (*.mdb); DBQ=" & chemin & ";" set conn=server.createObject("ADODB.Connection") conn.open Session("connstring") set Session("user_conn") = conn End If sql = "SELECT contacts.* FROM contacts;" Set contact = Server.CreateObject("ADODB.Recordset") contact.Open sql, conn, 3, 3 if contact.EOF then else mavar = 1 Do while not contact.EOF 'num = contact.fields("num") 'contact.fields("Classement") = request.querystring("Classement") 'contact.fields("Rubrique") = request.querystring("Rubrique") 'contact.fields("societe") = request.querystring("societe") 'contact.fields("adresse") = request.querystring("adresse") 'contact.fields("case_postale") = request.querystring("case_postale") 'contact.fields("cp") = request.querystring("cp") 'contact.fields("ville") = Trim(Ucase(contact.fields("ville"))) 'contact.fields("tel") = trim(request.querystring("tel")) 'contact.fields("fax") = trim(request.querystring("fax")) 'contact.fields("mobile") = trim(request.querystring("mobile")) 'contact.fields("email") = request.querystring("email") 'contact.fields("nom") = request.querystring("nom") 'contact.fields("profession") = request.querystring("profession") 'contact.fields("canton") = request.querystring("canton") 'contact.fields("site") = replace(request.querystring("site"),"http://","") 'contact.fields("donnees_principales") = request.querystring("donnees_principales") 'contact.fields("donnees_secondaires") = request.querystring("donnees_secondaires") 'contact.fields("mailing") = request.querystring("priorite") 'if request.querystring("mailing") = "" then ' contact.fields("mailing") = 0 'else ' contact.fields("mailing") = request.querystring("mailing") 'end if 'if request.querystring("mailing_date") <> "" then ' contact.fields("mailing_date") = request.querystring("mailing_date") 'else ' contact.fields("mailing_date") = Null 'end if 'contact.fields("commentaires") = request.querystring("commentaires") 'contact.fields("recontacter") = request.querystring("recontacter") 'if request.querystring("recontacter_date") <> "" then ' contact.fields("recontacter_date") = request.querystring("recontacter_date") 'else ' contact.fields("recontacter_date") = Null 'end if 'contact.fields("fonction") = request.querystring("fonction") 'if request.querystring("date_contact") <> "" then ' contact.fields("date_contact") = request.querystring("date_contact") 'else ' contact.fields("date_contact") = Null 'end if 'if request.querystring("infos") = "" then ' contact.fields("infos") = -1 'else ' contact.fields("infos") = request.querystring("infos") 'end if 'if request.querystring("voeux") = "" then ' contact.fields("voeux") = 0 'else ' contact.fields("voeux") = request.querystring("voeux") 'end if mavar = mavar+1 contact.update contact.movenext loop end if response.write mavar & "fiches traitées" %>

 

<%contact.close%>
ajout valider
<% if Session("user") <> "OK" then response.redirect "index.htm" end if if IsObject(Session("user_conn")) Then Set conn = Session("user_conn") Else chemin=Server.MapPath(".") & "/contact.mdb" Session("connstring")="Driver=Microsoft Access Driver (*.mdb); DBQ=" & chemin & ";" set conn=server.createObject("ADODB.Connection") conn.open Session("connstring") set Session("user_conn") = conn End If if request.querystring ("num") <> "" then sql = "SELECT contacts.* FROM contacts where num =" & request.querystring ("num") & ";" else sql = "SELECT contacts.* FROM contacts where num =100000000000000;" end if Set contact = Server.CreateObject("ADODB.Recordset") contact.Open sql, conn, 3, 3 if request.querystring("Action")="Enregistrer" Or request.querystring("Action")="Duppliquer" then if contact.EOF Or request.querystring("Action")="Duppliquer" then contact.addnew mavar = 1 end if num = contact.fields("num") contact.fields("Classement") = request.querystring("Classement") contact.fields("ltype") = request.querystring("ltype") contact.fields("grade") = request.querystring("grade") contact.fields("pays") = request.querystring("pays") contact.fields("profil") = request.querystring("profil") contact.fields("societe") = request.querystring("societe") contact.fields("adresse") = request.querystring("adresse") contact.fields("case_postale") = request.querystring("case_postale") contact.fields("cp") = trim(request.querystring("cp")) contact.fields("ville") = trim(Ucase(request.querystring("ville"))) contact.fields("tel") = trim(request.querystring("tel")) contact.fields("fax") = trim(request.querystring("fax")) contact.fields("mobile") = trim(request.querystring("mobile")) contact.fields("email") = trim(Lcase(request.querystring("email"))) contact.fields("nom") = trim(Ucase(request("nom"))) contact.fields("prenom") = trim(Lcase(request("prenom"))) contact.fields("profession") = trim(request.querystring("profession")) contact.fields("canton") = trim(request.querystring("canton")) contact.fields("site") = trim(replace(request.querystring("site"),"http://","")) contact.fields("donnees_principales") = request.querystring("donnees_principales") contact.fields("donnees_secondaires") = request.querystring("donnees_secondaires") contact.fields("commentaires") = request.querystring("commentaires") contact.fields("fonction") = request.querystring("fonction") if request.querystring("date_contact") <> "" then contact.fields("date_contact") = request.querystring("date_contact") else contact.fields("date_contact") = date() end if if request.querystring("infos") = "" then contact.fields("infos") = 0 '-1 else contact.fields("infos") = request.querystring("infos") end if if request.querystring("voeux") = "" then contact.fields("voeux") = 0 else contact.fields("voeux") = request.querystring("voeux") end if if request.querystring("coupealpes") = "" then contact.fields("coupealpes") = 0 else contact.fields("coupealpes") = request.querystring("coupealpes") end if if request.querystring("table") = "" then contact.fields("table") = 0 else contact.fields("table") = request.querystring("table") end if if request.querystring("arbitre") = "" then contact.fields("arbitre") = 0 else contact.fields("arbitre") = request.querystring("arbitre") end if if request.querystring("cd") = "" then contact.fields("cd") = 0 else contact.fields("cd") = request.querystring("cd") end if contact.fields("donnees_secondaires") = "Modif : " & Session("username") & " " & date() & "
" & contact.fields("donnees_secondaires") '& chr(13) & chr(10) & contact.update contact.movelast response.redirect "ajout.asp?Num="&contact.fields("Num") elseif request.querystring("Action")="Supprimer" then if contact.EOF then else contact.fields("Classement") = "delete" contact.update response.redirect "index_home.htm" end if end if contact.close set contact = Nothing %>

 <%=request.querystring("Action")%>

<% if IsObject(contact)=true then contact.close set contact = Nothing end if %>
formulaire
<% 'if Session("user") <> "OK" then ' response.redirect "index.htm" 'end if Refemail=Request.Cookies("Email") RefNom=Request.Cookies("Nom") %> formulaire
Titre du message
E-Mail de l'expéditeur
Nom expéditeur
E-Mail du destinataire ">
Attention !! Si pas de Email => Toute la liste sélectionnée

Corps du message

Attention !!
Si le premier caractère = "<" => interprétation HTML

Sinon interprétation texte
Inclure désabonnement :

Pied du message

 

 Effacer


inc fonctions
<% Function TestString(Caractere) Dim lecode If Caractere <> "" Then lecode = Asc(Caractere) If lecode < 97 Or lecode > 122 Then TestString = False Else TestString = True End If Else TestString = False End If End Function %> <% Function TestNum(Caractere) Dim lecode If Caractere <> "" Then lecode = Asc(Caractere) If lecode < 48 Or lecode > 57 Then TestNum = False Else TestNum = True End If Else TestNum = False End If End Function %> <% Function NettoieMotDeb(pvString) Dim i Dim TabMotLiaison(95) ' _______________________ T1 ______________________________ pvString = Trim(pvString) pvString = LCase(pvString) pvString = Replace(pvString, "(", "") 'suppression ( pvString = Replace(pvString, ")", "") 'suppression ) pvString = Replace(pvString, "?", "") 'suppression ? pvString = Replace(pvString, "!", "") 'suppression ! pvString = Replace(pvString, ":", "") 'suppression : pvString = Replace(pvString, Chr(171), "") 'suppression << pvString = Replace(pvString, Chr(187), "") 'suppression >> pvString = Replace(pvString, ".", "") 'suppression . ' _______________________ T2 ______________________________ pvString = Replace(pvString, " et ", " ") pvString = Replace(pvString, " ou ", " ") pvString = Replace(pvString, " sauf ", " ") ' _______________________ T1 BIS ______________________________ 'fonction de remplacement des caractères spéciaux entourés d'espaces Do While InStr(1, pvString, " ", vbTextCompare) <> 0 pvString = Replace(pvString, " ", " ") Loop pvString = Replace(pvString, "' ", "'") pvString = Replace(pvString, " '", "'") pvString = Replace(pvString, " /", "/") pvString = Replace(pvString, "/ ", "/") pvString = Replace(pvString, "\ ", "\") pvString = Replace(pvString, " \", "\") pvString = Replace(pvString, "; ", ";") pvString = Replace(pvString, " ;", ";") pvString = Replace(pvString, "+ ", "+") pvString = Replace(pvString, " +", "+") pvString = Replace(pvString, "- ", "-") pvString = Replace(pvString, " -", "-") 'remplacement de l'apostrophe ( ' ) pvString = Replace(pvString, "'", "_") While InStr(1, pvString, "__") <> 0 pvString = Replace(pvString, "__", "_") Wend ' _______________________ T4 ______________________________ 'traitement des mots de laiaison TabMotLiaison(0) = " de " TabMotLiaison(1) = " du " TabMotLiaison(2) = " des " TabMotLiaison(3) = " le " TabMotLiaison(4) = " la " TabMotLiaison(5) = " les " TabMotLiaison(6) = " en " TabMotLiaison(7) = " un " TabMotLiaison(8) = " une " TabMotLiaison(9) = " au " TabMotLiaison(10) = " aux " TabMotLiaison(11) = " à " TabMotLiaison(12) = " a " TabMotLiaison(13) = " l_" '(à l'origine " l' " TabMotLiaison(14) = " d_" '(à l'origine " d' " TabMotLiaison(15) = "-de-" TabMotLiaison(16) = "-en-" TabMotLiaison(17) = "-a-" TabMotLiaison(18) = "-du-" TabMotLiaison(19) = "-des-" TabMotLiaison(20) = "-le-" TabMotLiaison(21) = "-la-" TabMotLiaison(22) = "-les-" TabMotLiaison(23) = "-un-" TabMotLiaison(24) = "-une-" TabMotLiaison(25) = "-au-" TabMotLiaison(26) = "-aux-" TabMotLiaison(27) = "-à-" TabMotLiaison(28) = "-l-" '(à l'origine " l' " TabMotLiaison(29) = "-d-" '(à l'origine " d' " TabMotLiaison(30) = "-de_" TabMotLiaison(31) = "-en_" TabMotLiaison(32) = "-a_" TabMotLiaison(33) = "-du_" TabMotLiaison(34) = "-des_" TabMotLiaison(35) = "-le_" TabMotLiaison(36) = "-la_" TabMotLiaison(37) = "-les_" TabMotLiaison(38) = "-un_" TabMotLiaison(39) = "-une_" TabMotLiaison(40) = "-au_" TabMotLiaison(41) = "-aux_" TabMotLiaison(42) = "-à_" TabMotLiaison(43) = "-l_" TabMotLiaison(44) = "_de-" TabMotLiaison(45) = "_en-" TabMotLiaison(46) = "_a-" TabMotLiaison(47) = "_du-" TabMotLiaison(48) = "_des-" TabMotLiaison(49) = "_le-" TabMotLiaison(50) = "_la-" TabMotLiaison(51) = "_les-" TabMotLiaison(52) = "_un-" TabMotLiaison(53) = "_une-" TabMotLiaison(54) = "_au-" TabMotLiaison(55) = "_aux-" TabMotLiaison(56) = "_à-" TabMotLiaison(57) = "_l-" '(à l'origine " l' " TabMotLiaison(58) = "_d-" '(à l'origine " d' " TabMotLiaison(59) = "-d_" TabMotLiaison(60) = "_de_" TabMotLiaison(61) = "_en_" TabMotLiaison(62) = "_a_" TabMotLiaison(63) = "_du_" TabMotLiaison(64) = "_des_" TabMotLiaison(65) = "_le_" TabMotLiaison(66) = "_la_" TabMotLiaison(67) = "_les_" TabMotLiaison(68) = "_un_" TabMotLiaison(69) = "_une_" TabMotLiaison(70) = "_au_" TabMotLiaison(71) = "_aux_" TabMotLiaison(72) = "_à_" TabMotLiaison(73) = "_l_" TabMotLiaison(74) = "_d_" TabMotLiaison(75) = "_s " TabMotLiaison(76) = "-s-" TabMotLiaison(77) = "-s_" TabMotLiaison(78) = "_s-" TabMotLiaison(79) = "_s_" TabMotLiaison(80) = "_l " '(à l'origine " l' " TabMotLiaison(81) = "_d " '(à l'origine " d' " TabMotLiaison(82) = "_de " TabMotLiaison(83) = "_en " TabMotLiaison(84) = "_a " TabMotLiaison(85) = "_du " TabMotLiaison(86) = "_des " TabMotLiaison(87) = "_le " TabMotLiaison(88) = "_la " TabMotLiaison(89) = "_les " TabMotLiaison(90) = "_un " TabMotLiaison(91) = "_une " TabMotLiaison(92) = "_au " TabMotLiaison(93) = "_aux " TabMotLiaison(94) = "_à " For i = 0 To 14 pvString = Replace(pvString, TabMotLiaison(i), "_") 'response.write("
pstring après remplacement '" & TabMotLiaison(i) & "' ind = " & i & " ==> " & pvString) Next 'remplacement des "_" doublés While InStr(1, pvString, "__") <> 0 pvString = Replace(pvString, "__", "_") Wend For i = 15 To 29 pvString = Replace(pvString, TabMotLiaison(i), "_") 'response.write("
pstring après remplacement '" & TabMotLiaison(i) & "' ind = " & i & " ==> " & pvString) Next 'remplacement des "_" doublés While InStr(1, pvString, "__") <> 0 pvString = Replace(pvString, "__", "_") Wend For i = 30 To 44 pvString = Replace(pvString, TabMotLiaison(i), "_") 'response.write("
pstring après remplacement '" & TabMotLiaison(i) & "' ind = " & i & " ==> " & pvString) Next 'remplacement des "_" doublés While InStr(1, pvString, "__") <> 0 pvString = Replace(pvString, "__", "_") Wend For i = 45 To 59 pvString = Replace(pvString, TabMotLiaison(i), "_") 'response.write("
pstring après remplacement '" & TabMotLiaison(i) & "' ind = " & i & " ==> " & pvString) Next 'remplacement des "_" doublés While InStr(1, pvString, "__") <> 0 pvString = Replace(pvString, "__", "_") Wend For i = 60 To 79 pvString = Replace(pvString, TabMotLiaison(i), "_") 'response.write("
pstring après remplacement '" & TabMotLiaison(i) & "' ind = " & i & " ==> " & pvString) Next 'remplacement des "_" doublés While InStr(1, pvString, "__") <> 0 pvString = Replace(pvString, "__", "_") Wend For i = 80 To 94 pvString = Replace(pvString, TabMotLiaison(i), "_") 'response.write("
pstring après remplacement '" & TabMotLiaison(i) & "' ind = " & i & " ==> " & pvString) Next 'remplacement des "_" doublés While InStr(1, pvString, "__") <> 0 pvString = Replace(pvString, "__", "_") Wend if left(pvstring, 4) = "les " then pvString = Replace(pvString, "les ", "") if left(pvstring, 3) = "le " then pvString = Replace(pvString, "le ", "") if left(pvstring, 3) = "la " then pvString = Replace(pvString, "la ", "") if left(pvstring, 3) = "un " then pvString = Replace(pvString, "un ", "") if left(pvstring, 4) = "une " then pvString = Replace(pvString, "une ", "") NettoieMotDeb = pvString End Function %> <% Function NettoieAccent(pvString) ' _______________________ T6 ______________________________ pvString = Trim(pvString) pvString = LCase(pvString) ' transforme en minuscules pvString = Replace(pvString, Chr(156), "oe") 'œ pvString = Replace(pvString, Chr(224), "a") 'à pvString = Replace(pvString, Chr(225), "a") 'á pvString = Replace(pvString, Chr(226), "a") 'â pvString = Replace(pvString, Chr(227), "a") 'ã pvString = Replace(pvString, Chr(228), "a") 'ä pvString = Replace(pvString, Chr(229), "a") 'å pvString = Replace(pvString, Chr(230), "ae") 'æ pvString = Replace(pvString, Chr(231), "c") 'ç pvString = Replace(pvString, Chr(232), "e") 'è pvString = Replace(pvString, Chr(233), "e") 'é pvString = Replace(pvString, Chr(234), "e") 'ê pvString = Replace(pvString, Chr(235), "e") 'ë pvString = Replace(pvString, Chr(236), "e") 'ì pvString = Replace(pvString, Chr(237), "e") 'í pvString = Replace(pvString, Chr(238), "i") 'î pvString = Replace(pvString, Chr(239), "i") 'ï pvString = Replace(pvString, Chr(240), "o") 'ð pvString = Replace(pvString, Chr(241), "n") 'ñ pvString = Replace(pvString, Chr(242), "o") 'ò pvString = Replace(pvString, Chr(243), "o") 'ó pvString = Replace(pvString, Chr(244), "o") 'ô pvString = Replace(pvString, Chr(245), "o") 'õ pvString = Replace(pvString, Chr(246), "o") 'ö pvString = Replace(pvString, Chr(249), "u") 'ù pvString = Replace(pvString, Chr(250), "u") 'ú pvString = Replace(pvString, Chr(251), "u") 'û pvString = Replace(pvString, Chr(252), "u") 'ü pvString = Replace(pvString, Chr(253), "y") 'ý pvString = Replace(pvString, Chr(255), "y") 'ÿ NettoieAccent = pvString End Function %> <% Function NettoieCar1(pvString) ' _______________________ T1 ______________________________ pvString = Trim(pvString) pvString = LCase(pvString) pvString = Replace(pvString, "(", "") 'suppression ( pvString = Replace(pvString, ")", "") 'suppression ) pvString = Replace(pvString, "?", "") 'suppression ? pvString = Replace(pvString, "!", "") 'suppression ! pvString = Replace(pvString, ":", "") 'suppression : pvString = Replace(pvString, Chr(171), "") 'suppression << pvString = Replace(pvString, Chr(187), "") 'suppression >> NettoieCar1 = pvString End Function %> <% Function NettoieCar3(pvString) ' _______________________ T3 ______________________________ pvString = Trim(pvString) pvString = LCase(pvString) pvString = Replace(pvString, " ", "_") 'un ESPACE ==> _ pvString = Replace(pvString, "-", "_") 'un TIRET - ==> _ pvString = Replace(pvString, "'", "_") 'une quote ' ==> _ pvString = Replace(pvString, "=", "_") 'un égal = ==> _ pvString = Replace(pvString, "/", "_") 'un slash / ==> _ pvString = Replace(pvString, Chr(92), "_") 'un antislash \ ==> _ 'if left(pvstring, 4) = "les " then pvString = Replace(pvString, "les ", "") 'if left(pvstring, 3) = "le " then pvString = Replace(pvString, "le ", "") 'if left(pvstring, 3) = "la " then pvString = Replace(pvString, "la ", "") 'if left(pvstring, 3) = "un " then pvString = Replace(pvString, "un ", "") 'if left(pvstring, 4) = "une " then pvString = Replace(pvString, "une ", "") Do while inStr(1, pvString, "__") <> 0 pvString = Replace(pvString, "__", "_") Loop NettoieCar3 = pvString End Function %> <% Function NettoieLiaison(pvString) ' _______________________ T4 ______________________________ Dim i Dim TabMotLiaison(20) TabMotLiaison(0) = "_de_" TabMotLiaison(1) = "_du_" TabMotLiaison(2) = "_des_" TabMotLiaison(3) = "_le_" TabMotLiaison(4) = "_la_" TabMotLiaison(5) = "_les_" TabMotLiaison(6) = "_en_" TabMotLiaison(7) = "_un_" TabMotLiaison(8) = "_une_" TabMotLiaison(9) = "_au_" TabMotLiaison(10) = "_aux_" TabMotLiaison(11) = "_à_" TabMotLiaison(12) = "_a_" TabMotLiaison(13) = "_l__" '(à l'origine " l' " TabMotLiaison(14) = "_d__" '(à l'origine " d' " For i = 0 To 14 pvString = Replace(pvString, TabMotLiaison(i), "_") Next 'remplacement des "_" doublés Do While InStr(1, pvString, "__") <> 0 pvString = Replace(pvString, "__", "_") Loop NettoieLiaison = pvString End Function %> <% Function NettoieEspaces(pvString) ' _______________________ T1 BIS ______________________________ 'fonction de remplacement des caractères spéciaux entourés d'espaces Do While InStr(1, pvString, " ", vbTextCompare) <> 0 pvString = Replace(pvString, " ", " ") Loop pvString = Replace(pvString, "' ", "'") pvString = Replace(pvString, " '", "'") pvString = Replace(pvString, " /", "/") pvString = Replace(pvString, "/ ", "/") pvString = Replace(pvString, "\ ", "\") pvString = Replace(pvString, " \", "\") pvString = Replace(pvString, "; ", ";") pvString = Replace(pvString, " ;", ";") pvString = Replace(pvString, "+ ", "+") pvString = Replace(pvString, " +", "+") pvString = Replace(pvString, "- ", "-") pvString = Replace(pvString, " -", "-") NettoieEspaces = pvString End Function %> <% Function NettoieLettresDoubles(pvString) ' _______________________ T7 ______________________________ Dim ind, dernier_car Dim tabCar() Dim nouvMot redim preserve TabCar(250) dernier_car = Len(pvString) 'création d'un tableaudes caractères For ind = 1 To dernier_car tabCar(ind) = Mid(pvString, ind, 1) Next For ind = 1 To dernier_car If Not IsNumeric(tabCar(ind)) Then If tabCar(ind) = tabCar(ind + 1) And tabCar(ind + 1) <> tabCar(ind + 2) And tabCar(ind - 1) <> tabCar(ind) Then If ind > 1 And ind < dernier_car - 1 Then tabCar(ind) = "" End If End If End If Next For ind = 1 To dernier_car If tabCar(ind) <> "" Then nouvMot = nouvMot & tabCar(ind) End If Next NettoieLettresDoubles = nouvMot End Function %> <% Function NettoieMotSpecif(pvString) ' _______________________ T2 ______________________________ pvString = Replace(pvString, " ET ", " ") pvString = Replace(pvString, " OU ", " ") pvString = Replace(pvString, " SAUF ", " ") NettoieMotSpecif = pvString End Function %> <% Function RemplaceSeparateurs(pvString) pvString = Replace(pvString, "+", " ") pvString = Replace(pvString, ",", " ") pvString = Replace(pvString, ";", " ") pvString = Replace(pvString, "/", " ") '/ = séparateur pvString = Replace(pvString, Chr(92), " ") '\ = séparateur Do While inStr(1, pvString, " ") <> 0 pvString = Replace(pvString, " ", " "