<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Set dcnDB = Server.CreateObject("ADODB.Connection")
%>
<%
dcnDB.Open strDatabaseLocation
noq = Request.QueryString("noq")
Session("numero") = numeroID
strSQL = "SELECT * FROM Usagers "
strSQL = strSQL & " WHERE "
strSQL = strSQL & " Usager = '" & Session("UserID") & "' "
strSQL = strSQL & " AND motdepasse = '" & Session("Motdepasse") & "' "
Set rsProd = dcnDB.Execute(strSQL)
%>
Question <% response.write noq %>
<%
strSQL = "SELECT * FROM Resultat_Question WHERE NoQuestion = " & noq
Set rsProd = dcnDB.Execute(strSQL)
init = false
n = 1
Do While Not rsProd.EOF
nbEss = rsProd("NbEssais")
if (CInt(nbEss) > -1) then
if (init = false) then
typeq = rsProd("typequestion")
response.write "" & typeq & ""
response.write "Réponses des participants et nombre d'essais
"
init = true
response.write "
"
end if
rep = rsProd("reponse")
response.write "" & n & ". | " & rep & "
| " & nbEss & " |
"
else
if (init = false) then
typeq = rsProd("typequestion")
response.write "" & typeq & ""
response.write "Réponses des participants
"
init = true
response.write "
"
end if
rep = rsProd("reponse")
response.write "" & n & ". | " & rep & "
|
"
end if
n = n + 1
rsProd.MoveNext
Loop
response.write "
"
%>
<%
dcnDB.Close
%>