<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Mini lexique corse-franšais des verbes

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


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


<% Dim rsLexique Dim rsLexique_numRows 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 (type = 'v.') 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 Phonétique Français Modèle p.passÚ Remarques
<% S=rsLexique.Fields.Item("liens").Value If (S<>"") Then 'response.write(S) 'response.write "; " tableau=Split(S,",") 'response.write(tableau(0)) N=ubound(tableau) Else N=-1 End If If (N=-1) Then%> <%=(rsLexique.Fields.Item("corse").Value)%> <%Else%> <%=(rsLexique.Fields.Item("corse").Value)%> <%For j=0 to N S = CalculLien(tableau(j)) If (S<>"") Then%>   <%End If Next%> <%End If%> <%S=(rsLexique.Fields.Item("phonetique").Value) If (S<>"") Then%> [<%response.write(S)%>] <%End If%> <%=(rsLexique.Fields.Item("francais").Value)%> <%=(rsLexique.Fields.Item("infoverbe").Value)%> <% S=(rsLexique.Fields.Item("ppasse").Value) If (S<>"") Then tableau=Split(S,",") N=ubound(tableau) Else N=-1 End If If (N>-1) Then For j=0 to N S = CalculPPasse(tableau(j)) If (S=1) Then%> <%response.write(tableau(j))%> <%Else response.write(tableau(j)) End If Next End If%> <% 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 If (N>-1) Then For j=0 to N S = CalculRemarque(tableau(j)) If (S=1) Then%> <%response.write(tableau(j))%> <%ElseIf (S=2) Then%> <%response.write(tableau(j))%> <%Else response.write(tableau(j)) End If Next End If %>
<% rsLexique.Close() Set rsLexique = Nothing next %>