| <!--#include
file="connexion_quiz.asp" -->
<%
if
session("login")="" Then
dim strlogin
dim strpass
dim login
dim question
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_quest WHERE (Login_quest = '"&strlogin&"')"
set PassRec4 = Cndb.Execute(queryStr4)
'question
= PassRec4("Nom_quest").value
%>
<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"))%>
</font></b></font>
<p> </p>
<p>Choisisez les séquences à valider
parmis les séquences
que vous n'avez pas encore faites.</p>
<br>
<% if (PassRec4.EOF) then %>
<p><b>Vous n'avez pas encore validé de
séquence</b></p>
<table
border="0" align="center">
<tr>
<td width="25"><a href="valide_sequence2.asp"><img
src="picto-suite.gif" width="17" height="13"
border="0"></a></td>
<td><a href="valide_sequence2.asp">Commencer
la validation de la séquence
S2"</a></td>
</tr>
</table>
<%
else %>
<% question = PassRec4("Nom_quest").value %>
<% end if %>
<%
dim p
p=0
do
while not PassRec4.EOF
p=p+1
PassRec4.movenext()
if PassRec4.EOF then exit do
loop
%>
<table border="0" align="center">
<% if p = "1" then %>
<tr>
<td width="25"><img src="picto-suite2.gif"
width="17" height="13"></td>
<td>Séquence 2 déjà validée</td>
</tr>
<tr>
<td width="25"><img src="picto-suite.gif"
width="17" height="13" border="0"></td>
<td><a href="valide_sequence4.asp">Commencer
la validation de la séquence S4"</a></td>
</tr>
<% end if %>
<% if p = "2" then %>
<tr>
<td width="25"><img src="picto-suite2.gif"
width="17" height="13"></td>
<td>Séquence 2 et Séquence 4 déjà
validées</td>
</tr>
<% end if %>
</table>
<%
Cndb.close %>
</body>
</html>
|
Aéronautique
Stocker des données
sur le Web
