| ACCUEIL   CONTACTS   LIENS
Informatique
EXPERTISE, CONSEILS, FORMATION,
ACCOMPAGNEMENT AU CHANGEMENT
Solution Intranet, Extranet et Internet
Accompagnement et formation au travail collaboratif
Accès à la rubrique

Formation
FORMATION SALARIES ETUDIANTS APPRENTIS.
Bureautique,
Internet,
Sciences de la vie,
Mathématique, Physiques
Aéronautique
Accès à la rubrique

Biologie
RECHERCHE
Biologie cellulaire
Biologie moléculaire
Génétique
Accès à la rubrique

Aéronautique
PILOTE PRIVE D'AVION
Enseignant
  - aéronautique
  - aéromodélisme
en savoir plus


Afficher des liens en fonction du résultat de la requette et du nombre d'enregistrement

<!--#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>&nbsp;</p>
<p>Choisisez les s&eacute;quences &agrave; valider parmis les s&eacute;quences
que vous n'avez pas encore faites.</p>

<br>
<% if (PassRec4.EOF) then %>
<p><b>Vous n'avez pas encore valid&eacute; de s&eacute;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>

  Internet
  Extranet
  Intranet

  Développement
  - Scripts Asp
 - Script PHP
 - Script CSS 

  Logiciels

  Articles

LOI n°2004-575 du 21 juin 2004

 

 
 
eric desrentes : Informations légales

Hit-Parade