C#

Imports System
Imports System.Net
Imports System.Net.Mail
Imports System.Net.Mail.MailMessage
Imports System.Net.Mail.SmtpClient


Partial Class contacts

    Inherits System.Web.UI.Page

    Protected Sub Menu1_MenuItemClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MenuEventArgs) Handles Menu1.MenuItemClick

    End Sub

    Protected Sub ContactName_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContactName.TextChanged

    End Sub

    Protected Sub ContactAddress_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContactAddress.TextChanged

    End Sub

    Protected Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButtonList1.SelectedIndexChanged

    End Sub

    Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Public Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strName As String
        Dim strAddress As String
        Dim strMessage As String
        Dim strType As String
        Dim strSendTo As String
        Dim strSendFrom As String = "website@address.com"
        Dim CompleteMessage As String

        strName = ContactName.Text()
        strAddress = ContactAddress.Text()
        strMessage = TextBox1.Text()
        strType = RadioButtonList1.SelectedValue

        Select Case strType
            Case "sales"
                strSendTo = "Person1@address.com"
            Case "contractors"
                strSendTo = "Person2@Address.com"
            Case "general"
                strSendTo = "Person3@Address.com"
            Case Else
                strSendTo = "Person4@Address.com"
        End Select
        CompleteMessage = "Message From Website " & vbNewLine & strSendFrom & vbNewLine & strSendTo _
        & vbNewLine & vbNewLine & strType & vbNewLine & strMessage


        Dim mailClient As New SmtpClient()
        Dim Message As New MailMessage()
        Dim ToEmail As New MailAddress("Person1@address.com", "")
        Dim FromEmail As New MailAddress(strSendFrom, "")
        'String builder is used for performance reasons whil appending strings
        Dim messageBody As New System.Text.StringBuilder()
        messageBody.Append("Message Received From Website")
        messageBody.AppendLine()
        messageBody.Append(strType)
        messageBody.AppendLine()
        messageBody.Append(strSendFrom)
        messageBody.AppendLine()
        messageBody.Append(strSendTo)
        messageBody.AppendLine()
        messageBody.Append(strMessage)

        Message.Body = HttpUtility.HtmlDecode(messageBody.ToString)
        Message.Subject = strType
        'Message is sent in html format
        Message.IsBodyHtml = True
        Message.To.Add(ToEmail)
        Message.From = FromEmail
        Try
            mailClient.Send(Message)
        Catch ex As Exception

        End Try

    End Sub
    
End Class

            </td>
            <td colspan="2" bgcolor="#CCFFCC">
                
                We are happy to hear from you on any matter, so please feel free to make 
                any comments or ask any questions using this form.<br />
                <br />
&nbsp;&nbsp;&nbsp;&nbsp;
                <asp:TextBox ID="ContactName" runat="server" Width="300px">Your Name</asp:TextBox>
&nbsp;&nbsp;&nbsp;&nbsp;
                <asp:TextBox ID="ContactAddress" runat="server" Width="300px">Email Address</asp:TextBox>
                <br />
                <br />
                Please indicate what type of contact:<br />
                <asp:RadioButtonList ID="RadioButtonList1" runat="server" Width="237px">
                    <asp:ListItem Value="sales">Sales Enquiry</asp:ListItem>
                    <asp:ListItem Value="contractors">Contractors Enquiry</asp:ListItem>
                    <asp:ListItem Value="general">General Enquiry</asp:ListItem>
                    <asp:ListItem Value="other">Other</asp:ListItem>
                </asp:RadioButtonList>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                <asp:TextBox ID="TextBox1" runat="server" Height="130px" TextMode="MultiLine" 
                    Width="618px"></asp:TextBox>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                <asp:Button ID="Button1" runat="server" Height="36px" Text="Send" 
                    Width="102px" />
                
                </td>

SLSalariesCollection		salariers = new SLSalariesCollection (this._Session);
			    salariers.Init ();

protected override void OnLoad (EventArgs e)
		{
			try
			{
				// Ne pas inclure la page dans le cache client (Par défaut).
				_ApplyCacheStrategy ();
				// Titre.
				string					pageTitle = this.PageTitle;

				if (pageTitle != null && (
					this.Title == null || this.Title == this.SessionData.PageTitleToOverride))
				{
					this.Title = pageTitle;
				}
				// Inclure le script pour la vérification des erreurs coté serveur.
				_AddCheckServerErrorScript ();
				// Inclure le script pour la gestion des erreurs coté client.
				_AddJsReportingScript ();
				// Avoir le jeton de l'application racine.
				if (this.RootToken == null)
					this.RootToken = _GetRootToken ();
				// Fixer la tâche en cours.
				this._PageTask = new WEAppPageTask (this.PageTaskString);
				// Vérifier l'accès à la page.
				WEAppPageAccess						pageAccess;
				// Récupérer en cours de la page - Récupération 1.
				pageAccess = GetAccess ();
				// Vérifier l'accès.
				WEAppCheckingAccessResult			checkResult = _CheckPageAccess (pageAccess);
				// Récupérer à nouveau l'accès - Récupération 2.
				pageAccess = GetAccess ();
				// 1. Accès réfusé. Essayer de résoudre l'autorisation.
				if (checkResult != WEAppCheckingAccessResult.AUTHORIZED_ACCESS && !_TryChangePageAccess (pageAccess, checkResult))
				{
					// Récupérer à nouveau l'accès - Récupération 3.
					pageAccess = GetAccess ();
					// Exécution du code de l'autorisation.
					_PageAccessDenied (pageAccess, checkResult);
					// Générer une exception.
					throw new BSCInvalidOperationException ("Method _PageAccessDenied must throws exception or aborts current thread");
				}
				// Récupérer à nouveau l'accès - Récupération 4.
				pageAccess = GetAccess ();
				// Vérifier que l'accès est fourni.
				if (pageAccess == null)
					throw new BSCInvalidOperationException ("Null access");
				// 2. Accès autorisé.
				if (pageAccess.AccessWeight > -1)
					pageAccess.AccessWeight --;
				// Status de l'accès de la page.
				pageAccess.PageAccessState = WEAppPageAccess.GetPageAccessState ();
				this.PageAccessState = pageAccess.PageAccessState;
				// Remplir la méthode de nettoyage d'accès si elle n'est pas renseignée.
				if (pageAccess.PageAccessClean == null)
					pageAccess.PageAccessClean = new WEAppPageAccessClean (PageAccessClean);
				// Imposer la culture francaise au Thread en cours.
				Thread.CurrentThread.CurrentCulture = this.AppCultureInfo;
				// Exécution de la méthode de la classe de base.
				base.OnLoad (e);
				// Lier les données.
				if (this.BindablePage)
					DataBind ();
			}
			catch (Exception exception)
			{throw BSCExceptionPropagation.Throw (exception, MethodBase.GetCurrentMethod (), GetType ());}
		}

Pierre besquent wrote:

the problem appears in the collection'initiation