<% dim SQLcha , SQLval, sDDN,sAges,form,code ,sDExp SQLval = "" SQLcha = "" SQLUp = "" '************** sCode = Request.form("Code") '*************** SQLUp = SQLUp & " NomU = '" & Request.Form("NomU") & "', " SQLUp = SQLUp & " Password = '" & Request.Form("Password") & "', " SQLUp = SQLUp & " Statut = '" & Request.Form("Statut") & "', " SQLUp = SQLUp & " Nom = '" & RemoveJunk(Request.Form("Nom")) & "' , " SQLUp = SQLUp & " Prenom = '" & RemoveJunk(Request.Form("Prenom")) & "', " SQLUp = SQLUp & " Adresse = '" & RemoveJunk(Request.Form("Adresse")) & "' , " SQLUp = SQLUp & " Region ='" & RemoveJunk(Request.Form("Region")) & "' , " SQLUp = SQLUp & " Ville ='" & RemoveJunk(Request.Form("Ville")) & "' , " SQLUp = SQLUp & " Province ='" & RemoveJunk(Request.Form("Province")) & "' , " SQLUp = SQLUp & " CodePostal ='" & RemoveJunk(Request.Form("CodePostal")) & "' , " SQLUp = SQLUp & " telR ='" & RemoveJunk(Request.Form("telR")) & "' , " SQLUp = SQLUp & " TelT ='" & RemoveJunk(Request.Form("TelT")) & "', " SQLUp = SQLUp & " TelU ='" & RemoveJunk(Request.Form("TelU")) & "' , " SQLUp = SQLUp & " Cellulaire ='" & RemoveJunk(Request.Form("Cellulaire")) & "' , " SQLUp = SQLUp & " Email ='" & RemoveJunk(Request.Form("Email")) & "' , " SQLUp = SQLUp & " Sexe ='" & Request.Form("Sexe") & "' , " if Request.Form("mois")<> "" and Request.Form("jour") <> "" and Request.Form("annee")<> "" then sDDN = Request.Form("mois") & "/" & Request.Form("jour") & "/" & Request.Form("annee") SQLUp = SQLUp & " DDN = '" & sDDN & "' , " end if SQLUp = SQLUp & " NoteG ='" & RemoveJunk(Request.Form("NoteG")) & "' , " SQLUp = SQLUp & " Profession ='" & RemoveJunk(Request.Form("Profession")) & "' , " SQLUp = SQLUp & " DateM ='" & Date() & "' , " '********Personnes********* if Request.Form("PersonneA") = 1 then PersonneA = 1 else PersonneA = 0 end if SQLUp = SQLUp & " PersonneA = '" & PersonneA & "' , " if Request.Form("PersonneM") = 1 then PersonneM = 1 else PersonneM = 0 end if SQLUp = SQLUp & " PersonneM = '" & PersonneM & "', " if Request.Form("PersonneS") = 1 then PersonneS = 1 else PersonneS = 0 end if SQLUp = SQLUp & " PersonneS = '" & PersonneS & "', " if Request.Form("PersonneL") = 1 then PersonneL = 1 else PersonneL = 0 end if SQLUp = SQLUp & " PersonneL = '" & PersonneL & "', " '*************************** '******Activites*********** if Request.Form("ActiviteA") = 1 then ActiviteA = 1 else ActiviteA = 0 end if SQLUp = SQLUp & " ActiviteA = '" & ActiviteA & "', " if Request.Form("ActiviteM") = 1 then ActiviteM = 1 else ActiviteM = 0 end if SQLUp = SQLUp & " ActiviteM = '" & ActiviteM & "', " if Request.Form("ActiviteS") = 1 then ActiviteS = 1 else ActiviteS = 0 end if SQLUp = SQLUp & " ActiviteS = '" & ActiviteS & "', " if Request.Form("ActiviteL") = 1 then ActiviteL = 1 else ActiviteL = 0 end if SQLUp = SQLUp & " ActiviteL = '" & ActiviteL & "', " '*************************** '*****Inscription*********** if Request.Form("InscriptionA") = 1 then InscriptionA = 1 else InscriptionA = 0 end if SQLUp = SQLUp & " InscriptionA = '" & InscriptionA & "' , " if Request.Form("InscriptionM") = 1 then InscriptionM = 1 else InscriptionM = 0 end if SQLUp = SQLUp & " InscriptionM = '" & InscriptionM & "' , " if Request.Form("InscriptionS") = 1 then InscriptionS = 1 else InscriptionS = 0 end if SQLUp = SQLUp & " InscriptionS = '" & InscriptionS & "' , " if Request.Form("InscriptionL") = 1 then InscriptionL = 1 else InscriptionL = 0 end if SQLUp = SQLUp & " InscriptionL = '" & InscriptionL & "' , " '**************************** '*******Salle**************** if Request.Form("SalleA") = 1 then SalleA = 1 else SalleA = 0 end if SQLUp = SQLUp & " SalleA = '" & SalleA & "' , " if Request.Form("SalleM") = 1 then SalleM = 1 else SalleM = 0 end if SQLUp = SQLUp & " SalleM = '" & SalleM & "', " if Request.Form("SalleS") = 1 then SalleS = 1 else SalleS = 0 end if SQLUp = SQLUp & " SalleS = '" & SalleS & "' , " if Request.Form("SalleL") = 1 then SalleL = 1 else SalleL = 0 end if SQLUp = SQLUp & " SalleL = '" & SalleL & "' , " '**************************** '*****Equipement********* if Request.Form("EquipementA") = 1 then EquipementA = 1 else EquipementA = 0 end if SQLUp = SQLUp & " EquipementA = '" & EquipementA & "' , " if Request.Form("EquipementM") = 1 then EquipementM = 1 else EquipementM = 0 end if SQLUp = SQLUp & " EquipementM = '" & EquipementM & "' , " if Request.Form("EquipementS") = 1 then EquipementS = 1 else EquipementS = 0 end if SQLUp = SQLUp & " EquipementS = '" & EquipementS & "' , " if Request.Form("EquipementL") = 1 then EquipementL = 1 else EquipementL = 0 end if SQLUp = SQLUp & " EquipementL = '" & EquipementL & "' , " '********************* '*****Organisation***** if Request.Form("OrganisationA") = 1 then OrganisationA = 1 else OrganisationA = 0 end if SQLUp = SQLUp & " OrganisationA = '" & OrganisationA & "' , " if Request.Form("OrganisationM") = 1 then OrganisationM = 1 else OrganisationM = 0 end if SQLUp = SQLUp & " OrganisationM = '" & OrganisationM & "' , " if Request.Form("OrganisationS") = 1 then OrganisationS = 1 else OrganisationS = 0 end if SQLUp = SQLUp & " OrganisationS = '" & OrganisationS & "' , " if Request.Form("OrganisationL") = 1 then OrganisationL = 1 else OrganisationL = 0 end if SQLUp = SQLUp & " OrganisationL = '" & OrganisationL & "' , " '*************************** '*******Rapport************ if Request.Form("RapportA") = 1 then RapportA = 1 else RapportA = 0 end if SQLUp = SQLUp & " RapportA = '" & RapportA & "' , " if Request.Form("RapportM") = 1 then RapportM = 1 else RapportM = 0 end if SQLUp = SQLUp & " RapportM = '" & RapportM & "' , " if Request.Form("RapportS") = 1 then RapportS = 1 else RapportS = 0 end if SQLUp = SQLUp & " RapportS = '" & RapportS & "' , " if Request.Form("RapportL") = 1 then RapportL = 1 else RapportL = 0 end if SQLUp = SQLUp & " RapportL = '" & RapportL & "' , " '************************ '*********recuperer le code de personne ******** Sql1="update Admin set "& Left(SQLUp, Len(SQLUp) - 2)&" where CodeAdmin = " & sCode set rsQuery1=conn.execute (SQL1) Response.Redirect ("RechercheAdmin.asp?"&Request.Cookies ("liensAdmin")&"iPage="&Request.Cookies ("Current_PageAdmin")&"") %>