<%option explicit%>
<%
dim objConn
dim verbes_sql
dim verbes_rs
dim temps_sql
dim temps_rs
dim leVerbe_sql
dim leVerbe_rs
dim valide
valide="Bravo"
dim monVerbe
dim monTemps
'crée l'objet de connection
set objConn = Server.CreateObject("ADODB.Connection")
'Ouvre la connection sur la base de données cheztilous
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../_private/cheztilous.mdb") & ";"
sub corrige()
monVerbe=request.form("choixverbe")
monTemps=request.form("choixtemps")
leVerbe_sql=" SELECT verbes.id_verbe, verbes.nom_verbe, temps.temps, temps.id_temps, conjugaison.premSing, conjugaison.deuxSing, conjugaison.troisSing, conjugaison.troisSingFem, conjugaison.premPlur, conjugaison.deuxPlur, conjugaison.troisPlur, conjugaison.troisPlurFem FROM verbes INNER JOIN (temps INNER JOIN (conjugaison INNER JOIN tempsverbe ON conjugaison.id_cong = tempsverbe.id_cong) ON temps.id_temps = tempsverbe.Temps) ON verbes.id_verbe = tempsverbe.Verbe WHERE (((verbes.id_verbe)="&monVerbe&") AND ((temps.id_temps)="&monTemps&"))"
set leVerbe_rs=objConn.execute(leVerbe_sql)
if request.form("pers1")="" OR request.form("pers2")="" OR request.form("pers3")="" OR request.form("pers4")="" OR request.form("pers5")="" OR request.form("pers6")="" OR request.form("pers7")="" OR request.form("pers8")="" then
valide="Tu dois compléter tous les champs!"
else
If ((trim(ucase(request.form("pers1")))<>trim(ucase(leVerbe_rs("premSing")))) OR (trim(ucase(request.form("pers2")))<>trim(ucase(leVerbe_rs("deuxSing")))) OR (trim(ucase(request.form("pers3")))<>trim(ucase(leVerbe_rs("troisSing")))) OR (trim(ucase(request.form("pers4")))<>trim(ucase(leVerbe_rs("troisSingFem")))) OR (trim(ucase(request.form("pers5")))<>trim(ucase(leVerbe_rs("premPlur")))) OR (trim(ucase(request.form("pers6")))<>trim(ucase(leVerbe_rs("deuxPlur")))) OR (trim(ucase(request.form("pers7")))<>trim(ucase(leVerbe_rs("troisPlur")))) OR (trim(ucase(request.form("pers8")))<>trim(ucase(leVerbe_rs("troisPlurFem"))))) then
valide="Il y a des erreurs!"
end if
END IF
end sub
%>
<%sub afficheverbes()%>
<%
verbes_sql="SELECT * FROM verbes"
set verbes_rs=objConn.execute(verbes_sql)
'Pour s'assurer que le recordset n'est pas vide
if verbes_rs.EOF=true then
response.write("Désolé!!!! Il n'y a aucun enregistrement")
response.end
end if
temps_sql="SELECT * FROM temps"
set temps_rs=objConn.execute(temps_sql)
end sub
sub trouveVerbe()
dim monVerbe
dim monTemps
monVerbe=request.form("choix_verbe")
monTemps=request.form("choix_temps")
leVerbe_sql=" SELECT verbes.id_verbe, verbes.nom_verbe, temps.temps, temps.id_temps, conjugaison.premSing, conjugaison.deuxSing, conjugaison.troisSing, conjugaison.troisSingFem, conjugaison.premPlur, conjugaison.deuxPlur, conjugaison.troisPlur, conjugaison.troisPlurFem FROM verbes INNER JOIN (temps INNER JOIN (conjugaison INNER JOIN tempsverbe ON conjugaison.id_cong = tempsverbe.id_cong) ON temps.id_temps = tempsverbe.Temps) ON verbes.id_verbe = tempsverbe.Verbe WHERE (((verbes.id_verbe)="&monVerbe&") AND ((temps.id_temps)="&monTemps&"))"
set leVerbe_rs=objConn.execute(leVerbe_sql)
end sub
sub entete()%>
La conjugaison des verbes