
<!--#include file="../include/opendb.inc"-->
<!--#include file="../include/PurifyString.inc"-->
<%
dim SQLcha , SQLval, sDateDebut, sDateFin, sAges,form,code, sTPS , sTVQ, sTX
SQLval = ""
SQLcha = ""
SQLUp = ""
'**********recuperer les valeurs******

code = Request.Form("code")

SQLUp = SQLUp & " CodeO = '" & RemoveJunk(Request.Form("Organisation")) & "' , "

SQLUp = SQLUp & " Statut = '" & Request.Form("Statut") & "' , "

SQLUp = SQLUp & " Pour = '" & Request.Form("Pour") & "' , "

SQLUp = SQLUp & " SommeT = '" & RemoveJunk(Request.Form("SommeT")) & "' , "

SQLUp = SQLUp & " NoteG = '" & RemoveJunk(Request.Form("NoteG")) & "' , "

SQLUp = SQLUp & " dateM = '" & Date() & "' , "

'*****Update***********************
Sql="update Recu  set "& Left(SQLUp, Len(SQLUp) - 2)&" where CodeR = " & code
set rsQuery=conn.execute (SQL)

Response.Redirect ("ResultatRecu.asp?"&Request.Cookies ("liensRecu")&"iPage="&Request.Cookies ("Current_PageRecu")&"")

%>