A voir également:
- Generateur de formulaire
- Formulaire de réclamation facebook - Guide
- Generateur mot de passe - Télécharger - Sécurité
- Formulaire de reclamation instagram - Guide
- Canva générateur d'image - Accueil - Outils
- Formulaire de contact le bon coin introuvable - Forum Réseaux sociaux
1 réponse
Voici un code en vb script pour un générateur de questionnaire, mais on ne peut pas y générer le type de réponse. Si quelqu'un a une idée ce serait cool. Merci.
Il faut créer une base de données access questionnaire.mdb avec 2 tables: Question avec Num_Q et Nom_Q , et une autre table reponse avec Num_R et Nom_R.
<% ' nathlaie92
' Chemin absolu de la base
datapath = server.mapPath("questionnaire.mdb")
' Création des objets
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS2 = Server.CreateObject("ADODB.Recordset")
' Connexion
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & datapath
' Sélection de toutes les questions
SQL ="SELECT * FROM question"
RS.Open SQL,Conn,3,3
%>
<html><head>
<title>test</title>
<STYLE type="text/css">
</STYLE>
</head><body>
<center><H2>test 1.0</H2><br><font size=1>
<% ' === Page 1 : AFFICHAGE DES QUESTIONS ===
' si le formulaire n'a pas été validé
if request.form.count=0 then
%>
Veuillez répondre à ces <%=RS.recordCount%> questions</font>
<br><br>
<table><tr><td>
<form method="post" action="test.asp">
<ol>
<%while not RS.eof%>
<b><li><%=RS("Nom_Q")%></b><br>
<% ' Sélection des réponses possibles
SQL = "SELECT * FROM reponse WHERE Num_Q=" & RS("Num_Q")
RS2.Open SQL,Conn,3,3
while not RS2.eof%>
<dd><input type="radio" name="<%=RS("Num_Q")%>" value="<%=RS2("Num_R")%>">
<%=RS2("Nom_R")%>
<%RS2.MOVENEXT
wend
RS2.close%>
<br><br>
<%RS.MOVENEXT
Wend
%>
</ol>
<center><input type="Submit" value="Envoyer"></center>
</form>
</td></tr></table>
<% ' === BAS DE PAGE ===
end if
RS.close
' deconnexion
Conn.close
%>
</body></html>
Il faut créer une base de données access questionnaire.mdb avec 2 tables: Question avec Num_Q et Nom_Q , et une autre table reponse avec Num_R et Nom_R.
<% ' nathlaie92
' Chemin absolu de la base
datapath = server.mapPath("questionnaire.mdb")
' Création des objets
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS2 = Server.CreateObject("ADODB.Recordset")
' Connexion
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & datapath
' Sélection de toutes les questions
SQL ="SELECT * FROM question"
RS.Open SQL,Conn,3,3
%>
<html><head>
<title>test</title>
<STYLE type="text/css">
</STYLE>
</head><body>
<center><H2>test 1.0</H2><br><font size=1>
<% ' === Page 1 : AFFICHAGE DES QUESTIONS ===
' si le formulaire n'a pas été validé
if request.form.count=0 then
%>
Veuillez répondre à ces <%=RS.recordCount%> questions</font>
<br><br>
<table><tr><td>
<form method="post" action="test.asp">
<ol>
<%while not RS.eof%>
<b><li><%=RS("Nom_Q")%></b><br>
<% ' Sélection des réponses possibles
SQL = "SELECT * FROM reponse WHERE Num_Q=" & RS("Num_Q")
RS2.Open SQL,Conn,3,3
while not RS2.eof%>
<dd><input type="radio" name="<%=RS("Num_Q")%>" value="<%=RS2("Num_R")%>">
<%=RS2("Nom_R")%>
<%RS2.MOVENEXT
wend
RS2.close%>
<br><br>
<%RS.MOVENEXT
Wend
%>
</ol>
<center><input type="Submit" value="Envoyer"></center>
</form>
</td></tr></table>
<% ' === BAS DE PAGE ===
end if
RS.close
' deconnexion
Conn.close
%>
</body></html>
