|
Dans cette rubrique Santé, nous te proposons un petit tour d’horizon de la question : qu’est ce qui se fait à J&S, quels sont les outils qui peuvent t’aider, quels sont les chantiers en route?
Mais avant d’entrer dans le vif du sujet, nous te proposons le petit quizz du mois. Bon amusement!
Ce mois-ci, pas de Quizz... mais nous t'en préparons un tout nouveau pour la rentrée !
<%
dim cn 'adodb.connexion
dim rs
dim i,j,sql
sql = "select * from quizz"
i = 1
set cn = server.createobject("ADODB.connection")
cn.connectionstring = "Provider=Microsoft.jet.oledb.4.0;data source =" & Server.MapPath("./database/js.mdb")
cn.open
set rs = server.createobject("ADODB.recordset")
rs.open sql,cn,2,3
rs.movelast
if rs("type") = "R" then
rs.movefirst
do until i = Cint(request.querystring("nbq"))
rs.movenext
i=i+1
loop
va = cint(request.querystring("va"))
vb = cint(request.querystring("vb"))
vc = cint(request.querystring("vc"))
vd = cint(request.querystring("vd"))
nbq = cint(request.querystring("nbq")) + 1
select case request.form("reponse")
case "a"
va = va + 1
case "b"
vb = vb + 1
case "c"
vc = vc + 1
case "d"
vd = vd + 1
end select
if rs("type") = "Q" then
response.write rs("question")&"
"
%>
<%
else
response.write rs("question")&"
"
%>
|
| Tu as <% = va%> A : |
<% = rs("repa")%> |
| Tu as <% = vb%> B : |
<% = rs("repb")%> |
| Tu as <% = vc%> C : |
<% = rs("repc")%> |
| Tu as <% = vd%> D : |
<% = rs("repd")%> |
<%
end if
else
response.write ("Aucun quizz Valide !")
end if
rs.close
cn.close
%>
|
