Page de contrôle de l'application Quiz
<!--#include
file="connexion_quiz.asp" -->
<%
if
session("login")="" Then
dim strlogin
dim strpass
dim login
dim question
dim valS2
dim valS4
dim valS6
strlogin = request.form("login_form")
strpass = request.form("pass_form")
queryStr2 = "SELECT * FROM T_personne WHERE (login_personne
= '"&strlogin&"') AND (Pass_personne = '"&strpass&"')"
set PassRec = Cndb.Execute(queryStr2)
if (PassRec.EOF) Then
Response.Redirect ("refuse.asp")
End If
session("login")= strlogin
else
strlogin
= session("login")
end
if
queryStr4
= "SELECT * FROM T_S2 WHERE (Login_pers_S2 = '"&strlogin&"')"
set PassRec4 = Cndb.Execute(queryStr4)
queryStr5 = "SELECT * FROM T_S4 WHERE (Login_pers_S4 =
'"&strlogin&"')"
set PassRec5 = Cndb.Execute(queryStr5)
queryStr6 = "SELECT * FROM T_S6 WHERE (Login_pers_S6 =
'"&strlogin&"')"
set PassRec6 = Cndb.Execute(queryStr6)
queryAuto1 = "SELECT * FROM T_autori"
set Auto1 = Cndb.Execute(queryAuto1)
i = 1
Auto1.MoveFirst
Do While Not Auto1.EOF And Not Auto1.BOF
Redim Preserve nom_quiz(i)
Redim Preserve autorisation(i)
nom_quiz(i-1) = Auto1("nom_quiz")
autorisation(i-1) = Auto1("autorisation")
i = i + 1
Auto1.Movenext
Loop
'response.write
nom_quiz(0)
'response.write autorisation(0)
'response.write nom_quiz(1)
'response.write autorisation(1)
%>
<html>
<head>
<title>Contrôle</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
</head>
<body
bgcolor="#FFFFFF" text="#000000">
<p><img src="Image_imgtitre.gif" width="550"
height="141"></p>
<font face="Verdana, Arial, Helvetica, sans-serif"
size="1"><b><font color="#006600">Connexion
:
<%response.write(session("login"))%>
<br>
<font color="#FF0000"><a href="session_fin.asp">Quitter
la session</a></font></font></b></font>
<p> </p>
<p><b>Choisissez les exercices que vous désirez
faire.</b></p>
<br>
<%
if (nom_quiz(0)="T_S2" AND autorisation(0)="NON")
then %>
La séquence 2 n'est pas encore accessible
<% else %>
<% if (PassRec4.EOF) then %>
<p><b><font color="#006600">Vous
n'avez pas encore fait d'exercice</font></b></p>
<p><a
href="valide_sequence2.asp"><img src="picto-suite.gif"
width="17" height="13" border="0"></a>
<a href="valide_sequence2.asp">Commencer l'exercice
de la séquence S2</a><br>
<% else %>
<%
valS2=0
do while not PassRec4.EOF
valS2=valS2+1
PassRec4.movenext()
if PassRec4.eof then exit do
loop %>
Vous avez déjà fait la <font color="#006600"><b>séquence
2</b></font> <b> <font color="#FF0000">
<% response.write(valS2)%>
fois</font></b> <a href="valide_sequence2.asp">Refaire
l'exercice 2 : </a> <br>
<% if (nom_quiz(1)="T_S4" AND autorisation(1)="NON")
then %>
La séquence 4 n'est pas encore accessible
<% else %>
<% if (PassRec5.EOF) then %>
</p>
<p><a href="valide_sequence4.asp"><img
src="picto-suite.gif" width="17" height="13"
border="0"></a><a href="valide_sequence4.asp">Commencer
l'exercice de la séquence S4</a> <br>
<% else %>
<%
valS4=0
do while not PassRec5.EOF
valS4=valS4+1
PassRec5.movenext()
if PassRec5.eof then exit do
loop
%>
Vous avez déjà fait la <b><font color="#006633">séquence
4</font></b> <font color="#FF0000">
<b>
<% response.write(valS4)%>
fois.</b></font> <a href="valide_sequence4.asp">Refaire
l'exercice 4 : </a>
<br>
<% if (nom_quiz(2)="T_S6" AND autorisation(2)="NON")
then %>
La séquence 6 n'est pas encore accessible
<% else %>
<% if (PassRec6.EOF) then %>
</p>
<a href="valide_sequence6.asp"><img src="picto-suite.gif"
width="17" height="13" border="0"></a>
<a href="valide_sequence6.asp">Commencer l'exercice
de la séquence S6</a><br>
<%
else %>
<%
valS6=0
do while not PassRec6.EOF
valS6=valS6+1
PassRec6.movenext()
if PassRec6.eof then exit do
loop %>
Vous avez déjà fait la <b><font color="#006633">séquence
6</font></b> <b> <font color="#FF0000">
<% response.write(valS6)%>
fois</font></b> <a href="valide_sequence6.asp">Refaire
l'exercice 6 : </a>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<%
Cndb.close %>
</body>
</html>
|
Aéronautique
Stocker des données
sur le Web
