insert     


 '  MsgBox(contenu)

        cmd.CommandText = "insert into sujet values(@id,@title,@contenu,@dt)"
        cmd.Parameters.AddWithValue("@id", 22)
        cmd.Parameters.AddWithValue("@title", titre.Text)
        cmd.Parameters.AddWithValue("@contenu", contenu)
        cmd.Parameters.AddWithValue("@dt", Date.Now)

        If cnx.State = ConnectionState.Open Then cnx.Close()
        cnx.Open()
        cmd.ExecuteNonQuery()
        cnx.Close()


------------------------------------------------------------------

select



        cmd.CommandText = "select id_sujet,title,contenu,dt_sujet from sujet where id_sujet=" & Server.HtmlDecode(Request.QueryString("id"))

        If cnx.State = ConnectionState.Open Then cnx.Close()
        cnx.Open()
        dr = cmd.ExecuteReader
        cnx.Close()

        dr.Close()
        While dr.Read

            id = dr(0)
            t = dr(1)
            c = dr(2)
            dt = dr(3)

        End While