<%@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 Corse / Français
Habitants d'une ville ou d'un village de Corse ...
(Tri par nom d'habitant en corse)

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 aussi la même liste triée par noms de villages en français, ou 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 (corse LIKE '" & LETTRE & "%') 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 %>

<%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 %>
Corsu API Ville / Village Cità / Paese Sinònimu
<%=(rsLexique.Fields.Item("corse").Value)%> [<%=(rsLexique.Fields.Item("phonetique").Value)%>] <%=(rsLexique.Fields.Item("francais").Value)%> <%=(rsLexique.Fields.Item("francais2").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=3) Then%> <%If (i>0) Then%>
<%End If%>    Région : <%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 %>