Lexique Corse / Français
Phonétique (aperture) des noms ayant un "O"


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


<% For i=0 to NALPHA-1 Set rsLexique = Server.CreateObject("ADODB.Recordset") rsLexique.ActiveConnection = MM_connCorse_STRING LETTRE = ALPHA(i) rsLexique.Source = "SELECT * FROM TableCorse WHERE (accent = 'O' OR accent ='D') 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)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsLexique.MoveNext() Wend %>
Corse API Français
<%=(rsLexique.Fields.Item("corse").Value)%> (<%=(rsLexique.Fields.Item("type").Value)%>) [<%=(rsLexique.Fields.Item("phonetique").Value)%>] <%=(rsLexique.Fields.Item("francais").Value)%>
<% rsLexique.Close() Set rsLexique = Nothing next %>