<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsLexique__MMColParam rsLexique__MMColParam = "v." If (Request("MM_EmptyValue") <> "") Then rsLexique__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsLexique__M2 rsLexique__M2 = "cantà" If (Request("MM_EmptyValue") <> "") Then rsLexique__M2 = Request("MM_EmptyValue") End If %> <% Dim rsLexique__M3 rsLexique__M3 = "I" If (Request("MM_EmptyValue") <> "") Then rsLexique__M3 = 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 infoverbe = '" + Replace(rsLexique__M2, "'", "''") + "' AND irreg = '" + Replace(rsLexique__M3, "'", "''") + "' ORDER BY corse ASC" rsLexique.CursorType = 0 rsLexique.CursorLocation = 2 rsLexique.LockType = 1 rsLexique.Open() rsLexique_numRows = 0 %> <% Dim rsVerbesIrreg__MMColParam rsVerbesIrreg__MMColParam = "v." If (Request("MM_EmptyValue") <> "") Then rsVerbesIrreg__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsVerbesIrreg__M2 rsVerbesIrreg__M2 = "cantà" If (Request("MM_EmptyValue") <> "") Then rsVerbesIrreg__M2 = Request("MM_EmptyValue") End If %> <% Dim rsVerbesIrreg__M3 rsVerbesIrreg__M3 = "I" If (Request("MM_EmptyValue") <> "") Then rsVerbesIrreg__M3 = Request("MM_EmptyValue") End If %> <% Dim rsVerbesIrreg Dim rsVerbesIrreg_numRows Set rsVerbesIrreg = Server.CreateObject("ADODB.Recordset") rsVerbesIrreg.ActiveConnection = MM_connCorse_STRING rsVerbesIrreg.Source = "SELECT * FROM TableCorse WHERE type = '" + Replace(rsVerbesIrreg__MMColParam, "'", "''") + "' AND infoverbe <> '" + Replace(rsVerbesIrreg__M2, "'", "''") + "' AND irreg = '" + Replace(rsVerbesIrreg__M3, "'", "''") + "' ORDER BY corse ASC" rsVerbesIrreg.CursorType = 0 rsVerbesIrreg.CursorLocation = 2 rsVerbesIrreg.LockType = 1 rsVerbesIrreg.Open() rsVerbesIrreg_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsLexique_numRows = rsLexique_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsVerbesIrreg_numRows = rsVerbesIrreg_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rsLexique_numRows = rsLexique_numRows + Repeat3__numRows %> Liste de verbes ayant un participe passé irrégulier

Liste des verbes ayant un participe passé irrégulier

Verbes de la 1ère conjugaison régulière ayant un participe passé court

<% While ((Repeat1__numRows <> 0) AND (NOT rsLexique.EOF)) %> <% S=rsLexique.Fields.Item("exemples").Value tableau=Split(S,",") N=ubound(tableau) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsLexique.MoveNext() Wend %>
Corse Phonétique Français p.p.

<%=(rsLexique.Fields.Item("corse").Value)%>

<%=(rsLexique.Fields.Item("phonetique").Value)%>

<%=(rsLexique.Fields.Item("francais").Value)%>

<%=(rsLexique.Fields.Item("ppasse").Value)%>

Autres verbes

<% While ((Repeat2__numRows <> 0) AND (NOT rsVerbesIrreg.EOF)) %> <% S=rsVerbesIrreg.Fields.Item("exemples").Value tableau=Split(S,",") N=ubound(tableau) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsVerbesIrreg.MoveNext() Wend %>
Corse Phonétique Français Conjugaison sur p.p.

<%=(rsVerbesIrreg.Fields.Item("corse").Value)%>

<%=(rsVerbesIrreg.Fields.Item("phonetique").Value)%>

<%=(rsVerbesIrreg.Fields.Item("francais").Value)%>

<%=(rsVerbesIrreg.Fields.Item("infoverbe").Value)%>

<%=(rsVerbesIrreg.Fields.Item("ppasse").Value)%>

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