1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| on error resume next
conn.begintrans
mysql = "select num_quest as nb from T_question"
if(RS.state = 1 )then RS.close
RS.open mysql, conn
dat_actuel=year(now) '///////récupère la date actuel sous le format aaaa//////
while not RS.eof
obj=request.form("commentaire"&RS("nb")&"")
obj=replace(obj,"'","''")
mysql = "insert into T_reponse_bis (date_rep,num_quest,reponse,commentaire) values ('"&dat_actuel&"','"&RS("nb")&"','"&request.form("question"&RS("nb")&"")&"','"&obj&"')"
conn.execute mysql
if err.mumber = 0 then
conn.committrans
RS.movenext
else
RS.eof=true
end if
wend
if err.mumber = 0 then
mysql = "select num_quest as nb from T_question"
if(RS.state = 1 )then RS.close
RS.open mysql, conn
dat_actuel=year(now) '///////récupère la date actuel sous le format aaaa//////
while not RS.eof
obj=request.form("commentaire"&RS("nb")&"")
obj=replace(obj,"'","''")
mysql = "insert into T_reponse (date_rep,num_quest,reponse,commentaire) values ('"&dat_actuel&"','"&RS("nb")&"','"&request.form("question"&RS("nb")&"")&"','"&obj&"')"
conn.execute mysql
RS.movenext
wend
mysql = "delete from T_response_bis"
if(RS.state = 1 )then RS.close
conn.execute mysql
else
response.write"Requêtes non executées. Une ou plusieurs erreurs se sont produites"
end if
on error goto 0
response.write "Merci d'avoir répondu" |
Partager