salut
c'est vraiment tres gentil de votre part,je sais que vous allez m'aider

pour ce qui est de l'appli.
j'ai crée une base BDDM.avec 2 tables dt voici les structures:
tb_User(id_user,nom,prenom,adressemail,poste)
tb_messagerie(id_message,expediteur,destinataire,objet,message,date_envoi)
j'ai crée mon site extranet.
j'ai 3 pages.
accueil.aspx ,envoi_message.aspx,messagerie.aspx.
accueil n'as que le bouton messagerie interne(response.direct("messagerie.aspx") )
envoi_message.aspx(j'ai txt_exp,txt_dest,_text,objet,txt_messgae)
messagerie.aspx(tableux pour l'instant vide avec 4 colones expediteur,destinateur,message,supprimer)c'est vide pour l'instant.

ce que je veux c'est ecriture et lecture dans une table maintenant.
j'ecris mon message exp(tot@dre.fr,destina.,objet,msg......)qu'est que je dois faire pour que quand je clic sur envoyer cela aille dans les champs correspondant de la table messagerie? afin de creer un enregistrement)
quesque je doit faire pour que quand je clic sur messagerie,il recupere les messages stockés et rempli mon tableau de messagerie.aspx?

voici le code de creation d'enreigistrement:
il ne crée rien mais n'indique aucune erruer:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Protected Sub btn_envoi_msg_Click(ByVal sender As Object, ByVal e As System.EventArgs) 
 
Dim InsertText, lblMsg As String 
Dim j As Integer 
Dim int_Admin As Integer = 0 
Dim int_Fact As Integer = 0 
Dim int_Devis As Integer = 0 
' Connection à la base de données 
Dim cn As New SqlConnection() 
cn.ConnectionString = ConfigurationSettings.AppSettings("BDD") 
cn.Open() 
 
'création d'un mail 
 
InsertText = "INSERT INTO BDD_messagerie_interne(expediteur,destinateur,objet,message) 
VALUES (lb_expediteur.Text, lb_destinataire.Text lb_objet, txtmsg )" 
 
Dim Ins1 As New SqlCommand(InsertText, cn) 
Try 
j = Ins1.ExecuteNonQuery() 
lblMsg = "l'Agent a été Ajouté" 
Response.Redirect("accueil_societe.aspx") 
Catch ex As Exception 
lblMsg = "erreur lors de l'ajout" 
End Try 
Ins1 = Nothing 
cn.Close() 
End Sub
j'ai mon html qui correcte par la suite