
<!--#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 & " Nom = '" & RemoveJunk(Request.Form("Nom")) & "' , "

SQLUp = SQLUp & " Statut = '" & Request.Form("Statut") & "' , "

SQLUp = SQLUp & " Type = '" & Request.Form("Type") & "' , "

SQLUp = SQLUp & " Description = '" & RemoveJunk(Request.Form("Description")) & "' , "

SQLUp = SQLUp & " Adresse = '" & RemoveJunk(Request.Form("Adresse")) & "' , "

SQLUp = SQLUp & " Quartier = '" & RemoveJunk(Request.Form("Quartier")) & "' , "

SQLUp = SQLUp & " Ville = '" & RemoveJunk(Request.Form("Ville")) & "' , "

SQLUp = SQLUp & " Province = '" & RemoveJunk(Request.Form("Province")) & "' , "

SQLUp = SQLUp & " codepostal = '" & RemoveJunk(Request.Form("codepostal")) & "' , "

SQLUp = SQLUp & " Tel = '" & RemoveJunk(Request.Form("Tel")) & "' , "

SQLUp = SQLUp & " Fax = '" & RemoveJunk(Request.Form("Fax")) & "' , "

SQLUp = SQLUp & " NumeroPermis = '" & RemoveJunk(Request.Form("NumeroPermis")) & "' , "

SQLUp = SQLUp & " NumeroEntreprise = '" & RemoveJunk(Request.Form("NumeroEntreprise")) & "' , "

SQLUp = SQLUp & " NumeroOrganismeCh = '" &RemoveJunk( Request.Form("NumeroOrganismeCh")) & "' , "

SQLUp = SQLUp & " NumeroTVQ = '" & RemoveJunk(Request.Form("NumeroTVQ")) & "' , "

SQLUp = SQLUp & " NumeroTPS = '" & RemoveJunk(Request.Form("NumeroTPS")) & "' , "

SQLUp = SQLUp & " NoteG = '" & RemoveJunk(Request.Form("NoteG")) & "' , "

SQLUp = SQLUp & " NomResponsable = '" & RemoveJunk(Request.Form("NomResponsable")) & "' , "

SQLUp = SQLUp & " PrenomResponsable = '" & RemoveJunk(Request.Form("PrenomResponsable")) & "' , "

SQLUp = SQLUp & " Email = '" & RemoveJunk(Request.Form("Email")) & "' , "

SQLUp = SQLUp & " TelResponsable = '" & RemoveJunk(Request.Form("TelResponsable")) & "' , "

SQLUp = SQLUp & " Cellulaire = '" & RemoveJunk(Request.Form("Cellulaire")) & "' , "

SQLUp = SQLUp & " dateM = '" & Date() & "' , "

'Response.Write SQLcha
'Response.Write SQLval

'*****Update***********************
Sql="update Organisations  set "& Left(SQLUp, Len(SQLUp) - 2)&" where CodeO = " & code
set rsQuery=conn.execute (SQL)

Response.Redirect ("ResultatOrganisme.asp?"&Request.Cookies ("liensOrganisme")&"iPage="&Request.Cookies ("Current_PageOrganisme")&"")

%>