<%option explicit%> <% dim objConn '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") & ";"%> <%dim blocs_sql dim blocs_rs dim mots_sql dim mots_rs blocs_sql="SELECT * FROM mots" set blocs_rs=objConn.execute(blocs_sql) 'Pour s'assurer que le recordset n'est pas vide if blocs_rs.EOF=true then response.write("Désolé!!!! Il n'y a aucun enregistrement") response.end end if sub afficheListeMots() mots_sql="SELECT * FROM mots where numblocs="&request.form("choix_bloc")&"" set mots_rs=objConn.execute(mots_sql) end sub %> bloc mot <% sub entete()%>
"> "> "> <%IF request.form("quoi")<>"" then%> "> <%end if%> <%end sub%> <%sub afficheBlocs()%> <%end sub%> <%sub afficheMots()%> <% dim element dim thisfield%> <%end sub%> <%sub afficheLeMot()%> <%end sub%> <%sub ecrire()%> <%end sub sub corrige()%> <%If request.form("reponse")<>request.form("sonMot") then%> <%elseIf request.form("reponse")=request.form("sonMot") then%> <%end if%> <%end sub sub piedpage%>

VOCABULAIRE

 

Pour visualiser les mots de chacun des blocs

Choisis un bloc de mots

 

 

 

  Sélectionne un mot  

 

 
';document.forms[0].choix.value='<%=request.form("choix_bloc")%>';document.forms[0].quoi.value='mot';document.forms[0].submit(); return false">

 

 

<%response.write(request.form("mot"))%>

'; document.forms[0].quoi.value='ecrire'; document.forms[0].submit(); return false">

 

 

 

Inscris ta réponse ici:

" style="color: #333300; font-family: Comic Sans MS; font-size: 14pt; vertical-align: middle">

 

 

 

<%response.write("voici ton mot: ")%> <%if request.form("sonMot")="" then response.write("Tu n'as rien inscrit !") else response.write(request.form("sonMot")) end if%>
<%response.write("voici le bon mot: ")%> <%=request.form("reponse")%>

 

';document.forms[0].submit(); return false">

 

 

 

 

 

 

';document.forms[0].submit(); return false">

 

 

 

<%response.write("Bravo!")%>
<%response.write("Tu as réussi...")%>

 

        ';document.forms[0].submit(); return false">

 
Image Flèche retourRetour Image Singe

Accueil

 SuivantImage Flèche suivant
<%end sub%>
<% call entete() IF request.form("quoi")="" then call afficheBlocs() elseif request.form("quoi")="lesmots" then call afficheListeMots() call afficheMots() elseif request.form("quoi")="mot" then call afficheLeMot() elseif request.form("quoi")="ecrire" then call ecrire() elseif request.form("quoi")="reponse" then call corrige() end if call piedpage() blocs_rs.close set blocs_rs=nothing objConn.close set objConn=nothing %>