req="select SRT_id, SRT_intitule from T_SDT_reponsetype "
req=req&" where SRT_fk_SQU="&tab(0,l)&" "
set rs=server.createObject("ADODB.recordset")
rs.open req,bd_madwin2
if not rs.eof then
tabrep=rs.getrows()
tabrep_size=ubound(tabrep,2)
end if
rs.close
set rs=nothing
req="select count(SRT_id) as nombre from T_SDT_reponsetype Where SRT_fk_SQU
="&tab(0,l)&" "
set rs=server.createObject("ADODB.recordset")
rs.open req,bd_madwin2
tabrep_size = rs("nombre")
rs.close
SET rs = nothing
if tabrep_size>0 then
for k=0 to tabrep_size-1 note=request.form("note" &tab(0,l) &k 1) if
note<>"" then if test_entier(note)=0 then
if note<6 then req="INSERT INTO T_SDT_reponse "
req=req& "(SRE_champlibre,SRE_fk_SQU,SRE_fk_SRT,SRE_fk_SSD,SRE_curseur) "
req=req& "values(NULL,"&tab(0,l)&","&tabrep(0,k)&","&ssd&","¬e&") "
set rs=server.createObject("ADODB.recordset")
rs.open req,bd_madwin2 SET rs = nothing else
erreur=true
msgerreur="Veuillez entrer une reponse!!!!!"
end if
end if
else
msgerreur="Veuillez entrer une reponse!!!!!"
end if
next
end if
0D
et voila la partie du formulaire concernat la note d'une reponse
