ASP.NET

namespace EssentialTools.Models {
    public class Product {
        public int ProductID { get; set; }
        public string Name { get; set; }
        public string Description { get; set; }
        public decimal Price { get; set; }
        public string Category { set; get; }
    }
}

// class LinqValueCalculator 
using System.Collections.Generic;
using System.Linq;
namespace EssentialTools.Models {
    public class LinqValueCalculator {
        public decimal ValueProducts(IEnumerable<Product> products) {
            return products.Sum(p => p.Price);
        }
    }

//    ========
using System.Collections.Generic;
namespace EssentialTools.Models {
    public class ShoppingCart {
        private LinqValueCalculator calc;
        public ShoppingCart(LinqValueCalculator calcParam) {
            calc = calcParam;
        }
        public IEnumerable<Product> Products { get; set; }
        public decimal CalculateProductTotal() {
            return calc.ValueProducts(Products);
        }
    }
}
}

<meta name="description" content="mua bá#" />

public class Tag
{
    public Tag()
    {
        this.Rights = new List<Right>();
    }

    public string Name { get; set; }
    public virtual ICollection<Right> Rights { get; set; }
}

public ActionResult Edit(Tag entity)
{
    var rights = _rightsRepository.Get(r => r.IsActive == true).ToList();

    entity.Rights = rights;

    Repository.Update(entity);
    UnitOfWork.Commit();
    return View("Index");
}

// In the "TagMap" class
this.HasMany(t => t.Rights)
    .WithMany(r => r.Tags)
    .Map(m =>
    {
        m.ToTable("Tag_Right_Relation");
        m.MapLeftKey("RightId");
        m.MapRightKey("TagId");
    }

        Dim StrSQL As String = ""
        Dim strWHERE As String = ""
        Dim rs As SqlDataReader
        Dim val As String = tripType.SelectedItem.Value
        Dim suv As String = vpreferred.SelectedItem.Value
        'Response.Write(val)
        'Response.End()
        If val = "hourly" Then
            StrSQL = "select DISTINCT s.carTypes, s.Newfare as Fares, s.tip, (s.total+^SUV^) as total from vwhourly s "
            strWHERE = " WHERE s.Hourly = @hourly"
            If Len(suv) <> 0 Then
                strWHERE += " AND s.carTypes = '" & suv & "'"
            End If
        Else
            '     StrSQL = "SELECT city, fare, (fare*(10/100)) AS Discount, (fare-Discount) * ^RT^ AS NewFare, (Newfare*(7/100)) AS tax, (newFare*(20/100)) AS tip, (Newfare + (Newfare*(7/100)) + (newFare*(20/100)) + ^SUV^) AS total FROM Rates "

            StrSQL = "with CTE_Rates as " & _
"( " & _
 "   Select DISTINCT " & _
            "City, " & _
       "     Fare " & _
     "       FROM Rates " & _
") " & _
"SELECT  " & _
"City, " & _
"Fare,  " & _
"Fare * 0.1 AS Discount,  " & _
"(Fare * 0.9) * ^RT^ AS NewFare,  " & _
"Fare * 0.063 AS Tax,  " & _
"Fare * 0.18 AS Tip, " & _
"Fare * 1.143 + ^SUV^ AS Total  " & _
"FROM CTE_Rates "
            strWHERE = " Where city In('" & lblPreviewfromCityState.Text & "' , '" & lblPreviewDropOff.Text & "')"
        End If
        If suv = "SportUtilityVehicle" Then
            StrSQL = Replace(StrSQL, "^SUV^", "12")
        Else
            StrSQL = Replace(StrSQL, "^SUV^", "0")
        End If
        If val Like "round_trip_*airport" Then
            StrSQL = Replace(StrSQL, "^RT^", "2")
        Else
            StrSQL = Replace(StrSQL, "^RT^", "1")
        End If

        Dim conn As New SqlConnection(connStr)
        Dim cmd As New SqlCommand(StrSQL & strWHERE, conn)

        If val = "hourly" Then
            cmd.Parameters.AddWithValue("@hourly", HourlyCharter.SelectedValue)
        End If
        Response.Write(StrSQL)
        Response.End()
        'Now open connection to the db
        conn.Open()

        'open recordset to receive db values
        rs = cmd.ExecuteReader()

          While rs.Read()

            Dim tipValue As Decimal = rs("tip")
            Dim totValue = rs("total")
            Dim tp As String = [String].Format("{0:C}", tipValue)
            Dim tot As String = [String].Format("{0:C}", totValue)
            lblTip.Text = tp
            lblTotal.Text = tot

        End While

VBMain VBM;
VBM = New VBMain(this);

Dim MyLblMsg as System.Web.UI.WebControls.Label = pWebCtl.FindControl("lblMsg")