<%@LANGUAGE="VBSCRIPT"%> <% Dim rsLexique Dim rsLexique_numRows 'Set rsLexique = Server.CreateObject("ADODB.Recordset") 'rsLexique.ActiveConnection = MM_connCorse_STRING 'rsLexique.Source = "SELECT * FROM TableCorse WHERE habitant = 1 ORDER BY corse ASC" 'rsLexique.CursorType = 0 'rsLexique.CursorLocation = 2 'rsLexique.LockType = 1 'rsLexique.Open() rsLexique_numRows = 0 %> <% Repeat1__numRows = -1 Repeat1__index = 0 rsLexique_numRows = rsLexique_numRows + Repeat1__numRows %> Lexique : habitants ...

Lexique Français / Corse
Habitants d'une ville ou d'un village de Corse ...
(Tri par nom de villages en français)

Nom des habitants des villages et régions corses triés par ordre alphabétique, avec des proverbes, dictons ou autres concernant les villages ou leurs habitants.
Voir la même liste triée par noms d'habitants en corse.
Voir aussi la même liste triée par noms de villages en corse.

       <% Dim LETTRE For i=0 to NALPHA-1 LETTRE = ALPHA(i)%> <%response.write(LETTRE)%> / <%Next%>

<% For j=0 to NALPHA-1 Set rsLexique = Server.CreateObject("ADODB.Recordset") rsLexique.ActiveConnection = MM_connCorse_STRING LETTRE = ALPHA(j) rsLexique.Source = "SELECT * FROM TableCorse WHERE habitant = 1 AND (francais LIKE '" & LETTRE & "%') ORDER BY francais ASC" rsLexique.CursorType = 0 rsLexique.CursorLocation = 2 rsLexique.LockType = 1 rsLexique.Open() rsLexique_numRows = 0 %> <% Repeat1__numRows = -1 Repeat1__index = 0 rsLexique_numRows = rsLexique_numRows + Repeat1__numRows %>

<%response.write(LETTRE)%>

<% While ((Repeat1__numRows <> 0) AND (NOT rsLexique.EOF)) %> <% S=rsLexique.Fields.Item("remarque").Value If (S<>"") Then 'response.write(S) 'response.write "; " tableau=Split(S,"#") 'response.write(tableau(0)) N=ubound(tableau) Else N=-1 End If 'response.write "N = " 'response.write(N) 'response.write "; " %> <%If (N>-1) Then%> <%End If%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsLexique.MoveNext() Wend %>
Ville / Village Cità / Paese Corsu API Sinònimu
<%=(rsLexique.Fields.Item("francais").Value)%> <%=(rsLexique.Fields.Item("francais2").Value)%> <%=(rsLexique.Fields.Item("corse").Value)%> [<%=(rsLexique.Fields.Item("phonetique").Value)%>] <%=(rsLexique.Fields.Item("formes").Value)%> <% S=rsLexique.Fields.Item("phonformes").Value if (S<>"") Then%> [<%=(S)%>] <% End if%>
<%For i=0 to N S = CalculRemarque(tableau(i)) 'response.write "// " 'response.write(S) If (S=1) Then%> <%If (i>0) Then%>
<%End If%>    <%response.write(tableau(i))%> <%ElseIf (S=0) Then%> : <%response.write(tableau(i))%> <%Else%> <%response.write(tableau(i))%> <%End If%> <%Next%>
<% rsLexique.Close() Set rsLexique = Nothing Next %>