<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsLexique__MMColParam rsLexique__MMColParam = "v." If (Request("MM_EmptyValue") <> "") Then rsLexique__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsLexique Dim rsLexique_numRows Set rsLexique = Server.CreateObject("ADODB.Recordset") rsLexique.ActiveConnection = MM_connCorse_STRING rsLexique.Source = "SELECT * FROM TableCorse WHERE type = '" + Replace(rsLexique__MMColParam, "'", "''") + "' AND eghjinchi = 1 ORDER BY corse ASC" rsLexique.CursorType = 0 rsLexique.CursorLocation = 2 rsLexique.LockType = 1 rsLexique.Open() rsLexique_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsLexique_numRows = rsLexique_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rsLexique_numRows = rsLexique_numRows + Repeat3__numRows %> Liste français-corse des verbes eghjinchi

Lèssicu corsu / francese : i verbi "eghjinchi"
Lexique corse / franšais : les verbes "eghjinchi"


<%While ((Repeat1__numRows <> 0) AND (NOT rsLexique.EOF))%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsLexique.MoveNext() Wend %>
Corse Phonétique Français
<%=(rsLexique.Fields.Item("corse").Value)%> <%S=(rsLexique.Fields.Item("phonetique").Value) If (S<>"") Then%> [<%response.write(S)%>] <%End If%> <%=(rsLexique.Fields.Item("francais").Value)%>

<% rsLexique.Close() Set rsLexique = Nothing %>