<%@ LANGUAGE="VBSCRIPT" %> <% Dim rst Dim rst2 Dim strSQL Dim strSQL2 Dim Compteur Set con = Server.CreateObject("ADODB.Connection") con.Open "Magazine" strSQL = "select * from articles where [N°]="&Request.Form("num") set rst = Server.CreateObject("ADODB.Recordset") set rst2 = Server.CreateObject("ADODB.Recordset") rst.Open strSQL,con,adOpenStatic,adLockReadOnly,adCmdText compteur = rst.RecordCount If compteur = 0 Then 'New Record rst2.Open "articles", "DSN=magazine;UID=;Password=;", adOpenKeyset, adLockPessimistic, adCmdTable rst2.AddNew rst2.Fields("CodeRubrique") = Request.Form("rubrique") rst2.Fields("titre") = Request.Form("titre") rst2.Fields("dateparution") = Request.Form("ladate") rst2.Fields("photo") = Request.Form("photo") rst2.Fields("contenu1") = Request.Form("S1") rst2.Fields("contenu2") = Request.Form("S2") rst2.Fields("contenu3") = Request.Form("S3") rst2.Fields("contenu4") = Request.Form("S4") rst2.Fields("commentaire") = Request.Form("S5") rst2.Fields("Semaine") = DatePart("ww",Request.Form("ladate")) rst2.Update rst2.Close Set rst2=Nothing %> <%=Request.Form("numrub")%> Nouvel article enregistré! <% else 'Update Record strSQL2 = " UPDATE articles SET " _ & " titre = '"&Replace(Request.Form("titre"),"'","''")&"'," _ & " dateparution = '"&Request.Form("ladate")&"'," _ & " photo = '"&Request.Form("photo")&"'," _ & " contenu1 = '"&Replace(Request.Form("S1"),"'","''")&"'," _ & " contenu2 = '"&Replace(Request.Form("S2"),"'","''")&"'," _ & " contenu3 = '"&Replace(Request.Form("S3"),"'","''")&"'," _ & " contenu4 = '"&Replace(Request.Form("S4"),"'","''")&"'," _ & " commentaire = '"&Replace(Request.Form("S5"),"'","''")&"'," _ & " Semaine = "&DatePart("ww",Request.Form("ladate")) _ & " where [N°] = "& Request.Form("num") con.Execute(strSQL2) %> Article Modifié ! <% End if %>