ASP.NET

Private Sub BindListView()
        Dim constr As String = ConfigurationManager.ConnectionStrings("Tokens4UDissertationSite").ConnectionString
        Using con As New SqlConnection(constr)
            Using cmd As New SqlCommand()
                cmd.CommandText = "SELECT ProductID, ProductName, ProductDescription, ProdImage, CustomerID, Cost FROM Product ORDER BY ProductID DESC"
                cmd.Connection = con
                Using sda As New SqlDataAdapter(cmd)
                    Dim dt As New DataTable()
                    sda.Fill(dt)
                    ListView2.DataSource = dt
                    ListView2.DataBind()
                End Using
            End Using
        End Using
    End Sub

namespace coastEnviromental
{
    public class MvcApplication : System.Web.HttpApplication
    {
        protected void Application_Start()
        {
            AreaRegistration.RegisterAllAreas();
            FilterConfig.RegisterGlobalFilters(GlobalFilters.Filters);
            RouteConfig.RegisterRoutes(RouteTable.Routes);

            // Create and Populate the Binary Data Files
            BinaryDataConfig.RegisterGlobalBinaries();
        }

        protected void Session_Start(Object sender, EventArgs e)
        {
            Session["init"] = 0;
        }

        public static string GetWebsiteName()
        {
            string pValue = Properties.Settings.Default.WebsiteName;
            return pValue;
        }

@{ 
    string websiteName = MvcApplication.GetWebsiteName();
}