<% dim SQLcha , SQLval, sDateDebut, sDateFin, sAges,form,code, sTPS , sTVQ, sTX SQLval = "" SQLcha = "" SQLien = "" '**********recuperer les valeurs****** SQLcha = SQLcha & " CodeO , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("Organisation")) & "' , " SQLien = SQLien & "Organisation="&Request.Form("Organisation")&"&" SQLcha = SQLcha & " Statut , " SQLval = SQLval & "'" & Request.Form("Statut") & "' , " SQLien = SQLien & "Statut="&Request.Form("Statut")&"&" SQLcha = SQLcha & " Pour , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("Pour")) & "' , " SQLcha = SQLcha & " SommeT , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("SommeT")) & "' , " SQLien = SQLien & "SommeT="&Request.Form("SommeT")&"&" SQLcha = SQLcha & " NoteG , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("NoteG")) & "' , " SQLcha = SQLcha & " DateE , " SQLval = SQLval & "'" & Date() & "' , " '*********SQL Insert*************** SQL="Insert into Recu ("& Left(SQLcha, Len(SQLcha) - 2)&") VALUES ("& Left(SQLval, Len(SQLval) - 2)&")" set rsQuery1=conn.execute (SQL) '********************************** Response.Redirect ("RechercheRecu.asp") %>