MISE A JOUR d'UNE BASE DE DONNER AVEC UN SIMPLE CLIQUE SUR UN BOUTON
page connexion_quiz.asp
Set Cndb = Server.CreateObject("ADODB.Connection")
cnDBQ = "DBQ=" & ("E:chemin_sur_leserveur")
& ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Cndb.Open cnDBQ
--------------------------------------
Première page
<!--#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>
----------------------------------------------
Deuxième page
<!--#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")
%>
|
