| <!--#include
file="connexion_quiz.asp" -->
<%
queryStr = "SELECT * FROM T_autori"
set PassRec = Cndb.Execute(queryStr)
Recordset1_numRows = 0
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
dim
nom_q
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<link rel="stylesheet" type="text/css"
href="igsfcquiz.css">
</head>
<body
bgcolor="#FFFFFF" text="#000000">
<p> </p>
<table width="500" border="1" align="center"
cellspacing="0" bordercolor="#000000" height="50">
<tr>
<td>Séquences</td>
<td>Visible</td>
<td>Cliquez sur le satut choisi</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT PassRec.EOF))
%>
<% nom_q = PassRec("nom_quiz").value %>
<tr>
<td height="47">
<% response.write(nom_q) %> </td>
<td height="47"><%= PassRec("autorisation").value
%></td>
<td height="47">
<form name="form1" method="post" action="visible_modif.asp"">
<br>
<input type="hidden" name="nom_quiz"
value="<% response.write(nom_q) %>"><input
type="hidden" name="autorisation" value="OUI">
<input type="submit" name="Submit" value="OUI">
</form>
<form name="form1" method="post" action="visible_modif.asp">
<br>
<input type="hidden" name="nom_quiz"
value="<% response.write(nom_q) %>"><input
type="hidden" name="autorisation" value="NON">
<input type="submit" name="Submit" value="NON">
</form>
</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
PassRec.MoveNext()
Wend
%>
</table>
<p> </p>
<p align="center"><a href="controle_admin.asp">Retourner
à la page d'accueil</a></p>
<p> </p>
<p> </p>
</body>
</html>
<!--#include
file="connexion_quiz.asp" -->
<%
dim strnom_quiz
dim strautorisation
strnom_quiz
= Request.form("nom_quiz")
strautorisation = Request.form("autorisation")
queryStr
= "UPDATE T_autori SET autorisation = ('"&strautorisation&"')
WHERE nom_quiz = ('"&strnom_quiz&"')"
set PassRec = Cndb.Execute(queryStr)
response.redirect("sequence_auto.asp")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
</head>
<body
bgcolor="#FFFFFF" text="#000000">
</body>
</html>
|
Aéronautique
Stocker des données
sur le Web
