bonjour a tous,
j'essayer d'enregistrer les données d'un mail dans une table mails.en VB.net
j'ai parmis mes objet un textarea et des texbox.
Probleme:
il ne reconnait pas mon textarea que j'appelle txtmsg.il veux que je le declare.
quand je met txtmsg.text"" (erreur :txtmsg n'est pa déclaré)
comment declare-ton un textarea?
voici le code avant le html
Code VBScript :
<@ Page Language="VB" AutoEventWireup="false" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script runat="server">
Private Sub page_load()
' Connection à la base de données
Dim cn As New SqlConnection()
cn.ConnectionString = ConfigurationSettings.AppSettings("BASE")
'on vide les zones de saisie
txtDest.Text = ""
txtExp.Text = ""
txtObj.Text = ""
txtmsg.text = "" [color=red]ERREUR ICI declaration txtmsg(c mon textarea)[/color]
If Not cn Is Nothing AndAlso cn.State = ConnectionState.Open Then [color=red]ERREUR ICI ConnectionState [/color]
cn.Close()
cn = Nothing
End If
End Sub
Protected Sub Btn_envoi_msg_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim InsText As String
' Connection à la base de données
Dim cn As New SqlConnection()
cn.ConnectionString = ConfigurationSettings.AppSettings("BASE")
'Ecriture dans la table
InsText = "INSERT INTO wts_messagerie_interne(expediteur,destinataire,objet,contenu_msg) VALUES ('" & txtExp.Text & "', '" & txtDest.Text & "', '" & txtObj.Text & "', '" & txtExp.Text & "')"
Response.Write(InsText)
Dim InsSQL As New SqlCommand(InsText, cn)
Dim x As Integer
Try
x = InsSQL.ExecuteNonQuery()
Response.Write("Message Envoyé" & "<br />")
Catch ex As Exception
Response.Write(ex)
End Try
InsSQL = Nothing
End Sub
Protected Sub Btn_annul_envoi_Click(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
<html>
<tr><td class="style11"> Message :</td>
<td><textarea id="txtmsg" cols="20" name="txt_message" rows="4"></textarea>
</td></tr>
<html>
Et quand je vais voir dans ma table me mail n'est pas enregitré
Pour trouver sans chercher,il faut avoir longtemps cherché sans trouver.