<%= LeTheme %>

<% if LeMemo <> "NUL" then %>

<%=replace ( LeMemo, chr (13), "
",1) %>

<% end if %> <% if request.Form("LaReponse") = "" then %>

Clique sur chacune des lettres du mot que tu as trouvé.

<% sub Subtableau(ba,longeur) %> <% for i = 1 to longeur %> <% end sub ba= Ligne1 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne2 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne3 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne4 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne5 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne6 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne7 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne8 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne9 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne10 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne11 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne12 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne13 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne14 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne15 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne16 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne17 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne18 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne19 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if ba= Ligne20 longeur = len (ba) if longeur > 0 then Subtableau ba,longeur end if %>

<%= mid(ba,i,1)%>

<% next %>

<% if LettreA <> "" then %> A
<%=LettreA%>   <% end if%> <%if LettreB <> "" then %> B
<%=LettreB%>   <% end if%> <%if LettreC <> "" then %> C
<%=LettreC%>   <% end if%> <% if LettreD <> "" then %> D
<%=LettreD%>   <% end if%> <% if LettreE <> "" then %> E
<%=LettreE%>   <% end if %>

<% if LettreF <> "" then %> F
<%=LettreF%>   <% end if%> <% if LettreG <> "" then %> G
<%=LettreG%> <% end if%> <% if LettreH <> "" then %> H
<%=LettreH%>   <% end if%> <% if LettreI <> "" then %> I
<%=LettreI%>   <% end if%> <% if LettreJ <> "" then %> J
<%=LettreJ%>   <% end if %>

<% if LettreK <> "" then %> K
<%=LettreK%> <% end if %> <% if LettreL <> "" then %> L
<%=LettreL%>   <% end if %> <% if LettreM <> "" then %> M
<%=LettreM%>   <% end if %> <% if LettreN <> "" then %> N
<%=LettreN%>   <% end if %> <% if LettreO <> "" then %> O
<%=LettreO%>

<% end if %>

<% if LettreP <> "" then %> P
<%=LettreP%>   <% end if %> <% if LettreQ <> "" then %> Q
<%=LettreQ%>   <% end if %> <% if LettreR <> "" then %> R
<%=LettreR%>   <% end if %> <% if LettreS <> "" then %> S
<%=LettreS%>   <% end if %> <% if LettreT <> "" then %> T
<%=LettreT%>   <% end if %>

<% if LettreU <> "" then %> U
<%=LettreU%>   <% end if %> <% if LettreV <> "" then %> V
<%=LettreV%>   <% end if %> <% if LettreW <> "" then %> W
<%=LettreW%>   <% end if %> <% if LettreX <> "" then %> X
span style="font-size: 10.0pt; font-family: Verdana; "><%=LettreX%>   <% end if %> <% if LettreY <> "" then %> Y
<%=LettreY%> <% end if %> <% if LettreZ <> "" then %> Z
<%=LettreZ%>   <% end if %>

<% else if ucase (request.Form("LaReponse")) = ucase (LaSolution) then lemessage= "
Bravo! la réponse est bonne
" else lemessage= "
Désolé! la réponse était
" end if %>

<%= lemessage %>

<%=ucase (LaSolution)%>

<% end if %> Retour aux jeux

Jeux suivants

<% set rs = server.createobject("adodb.recordset") strSQL = "SELECT motmystere.LeTheme, motmystere.NoMystere FROM motmystere ORDER BY motmystere.NoMystere desc; " rs.Open strSQL, conn If rs.EOF then Else Do While Not rs.EOF lecompteur = lecompteur + 1 lecompteur2 = lecompteur2 + 1 %>
" <% if cint (rs ("nomystere")) <> cint (nomystere) then %> style="text-decoration: none" <% end if %> > <% ' if cint (rs ("NoMystere")) = cint (NoMystere) then %> <%' ucase (rs ("LeTheme")) %> <%' else %> <%= rs ("LeTheme") %> <%' end if %>
<% if lecompteur2 = 3 then 'response.write "
" lecompteur2 = 0 end if rs.MoveNext Loop End If 'else rs.Close Set rs = Nothing %>