<% dim SQLcha , SQLval, sDateDebut, sDateFin, sAges,form,code, sTPS , sTVQ, sTX SQLval = "" SQLcha = "" SQLUp = "" '*********if data existe********* strSql = "SELECT * from Organisations where Nom = '" & RemoveJunk(Request.Form("Nom")) & "' " Set rsQuery = Conn.Execute(strSql) If Not rsQuery.EOF Then Response.Redirect ("AjouterOrganisme.asp?existe=1&nom="&RemoveJunk(Request.Form("Nom"))&"") end if '**********recuperer les valeurs****** SQLcha = SQLcha & " Nom , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("Nom")) & "' , " SQLcha = SQLcha & " Statut , " SQLval = SQLval & "'" & Request.Form("Statut") & "' , " SQLcha = SQLcha & " Type , " SQLval = SQLval & "'" & Request.Form("Type") & "' , " SQLcha = SQLcha & " Description , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("Description")) & "' , " SQLcha = SQLcha & " Adresse , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("Adresse")) & "' , " SQLcha = SQLcha & " Quartier , " SQLval = SQLval & "'" & Request.Form("Quartier") & "' , " SQLcha = SQLcha & " Ville , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("Ville")) & "' , " SQLcha = SQLcha & " Province , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("Province")) & "' , " SQLcha = SQLcha & " codepostal , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("codepostal")) & "' , " SQLcha = SQLcha & " Tel , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("Tel")) & "' , " SQLcha = SQLcha & " Fax , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("Fax")) & "' , " SQLcha = SQLcha & " NumeroPermis , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("NumeroPermis")) & "' , " SQLcha = SQLcha & " NumeroEntreprise , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("NumeroEntreprise")) & "' , " SQLcha = SQLcha & " NumeroOrganismeCh , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("NumeroOrganismeCh")) & "' , " SQLcha = SQLcha & " NumeroTVQ , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("NumeroTVQ")) & "' , " SQLcha = SQLcha & " NumeroTPS , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("NumeroTPS")) & "' , " SQLcha = SQLcha & " NoteG , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("NoteG")) & "' , " SQLcha = SQLcha & " NomResponsable , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("NomResponsable")) & "' , " SQLcha = SQLcha & " PrenomResponsable , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("PrenomResponsable")) & "' , " SQLcha = SQLcha & " Email , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("Email")) & "' , " SQLcha = SQLcha & " TelResponsable , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("TelResponsable")) & "' , " SQLcha = SQLcha & " Cellulaire , " SQLval = SQLval & "'" & RemoveJunk(Request.Form("Cellulaire")) & "' , " SQLcha = SQLcha & " DateD , " SQLval = SQLval & "'" & Date() & "' , " 'Response.Write SQLcha 'Response.Write SQLval '*********SQL Insert*************** SQL="Insert into Organisations ("& Left(SQLcha, Len(SQLcha) - 2)&") VALUES ("& Left(SQLval, Len(SQLval) - 2)&")" set rsQuery1=conn.execute (SQL) '********************************** Response.Redirect ("ResultatOrganisme.asp?Nom="&Request.Form("Nom")&"") %>