<%@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
%>
Liste français-corse des verbes eghjinchi
Amparà
Lexique Français / Corse
Les verbes "eghjinchi"
| Français |
Corse |
Phonétique |
<%
While ((Repeat1__numRows <> 0) AND (NOT rsLexique.EOF))
%>
| <%=(rsLexique.Fields.Item("francais").Value)%> |
<%=(rsLexique.Fields.Item("corse").Value)%> |
[<%=(rsLexique.Fields.Item("phonetique").Value)%>] |
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsLexique.MoveNext()
Wend
%>
<%
rsLexique.Close()
Set rsLexique = Nothing
%>