Database

WITH CTE AS
(
 SELECT DISTINCT
  ProductID
, PostageImage
, PartNumber
, ShortDescription
, Price
, Thumbnail
, ActionThumbnail1
, ActionThumbnail2
, ActionThumbnail3
, FlatFee
, FlatFeeName
, VendorName
, ROW_NUMBER() OVER(ORDER BY PartNumber DESC) AS RowId
 FROM PRODUCTINFO p
), CTE1 AS (
 SELECT RowId FROM CTE WHERE PartNumber = @PartNumber
)
 SELECT * FROM CTE WHERE RowId BETWEEN (SELECT RowId-4 FROM CTE1) AND (SELECT RowId+3 FROM CTE1) ORDER BY PartNumber

SELECT 
  h.FINVNO 
, h.FSHIPDATE 
 FROM ARINV01H.dbf h 
 WHERE 
 h.FSALESPN = @FSALESPN 
 AND 
 h.FSHIPDATE >= @startDate AND h.FSHIPDATE <= @stopDate 
UNION ALL 
SELECT 
  v.FINVNO 
, v.FSHIPDATE 
 FROM ARINV01.dbf v 
 WHERE 
 v.FSALESPN = @FSALESPN 
 AND 
 v.FSHIPDATE >= @startDate AND v.FSHIPDATE <= @stopDate 

SELECT
 DISTINCT FITEMNO
, SUM(FSHIPQTY)
, SUM(FCOST * FSHIPQTY)
, SUM(FPRICE * FSHIPQTY)
, (SELECT FDESCRIPT FROM ICITM01.dbf i WHERE i.FITEMNO = h.FITEMNO) AS FREALDESC
 FROM
(
   SELECT
      h.FITEMNO
    , h.FSHIPQTY
    , h.FCOST
    , h.FPRICE
   FROM ARTRS01H.dbf h
   WHERE
   h.FINVNO = @FINVNO
   UNION
   SELECT
      v.FITEMNO
    , v.FSHIPQTY
    , v.FCOST
    , v.FPRICE
   FROM ARTRS01.dbf v
   WHERE
   v.FINVNO = @FINVNO
)
 GROUP BY FITEMNO "

pResults = _
                (
                    From ca In context.Customer_Accounts
                    Where ca.DateOpened >= DbFunctions.AddDays(Today, -1)
                    Order By ca.DateOpened Descending
                    Select New accountIndex With
                    {
                        .ID = ca.ID,
                        .firstName = ca.FirstName,
                        .lastName = ca.LastName,
                        .accountName = ca.AccountName,
                        .secure_EmailAdddress = ca.EmailAddress,
                        .dateOpened = ca.DateOpened
                    }
                ).AsEnumerable()

pResults = _
                (
                    From ca In context.Customer_Accounts
                    Join ba In context.CUstomer_BillingAddress On ba.CustomerID Equals ca.ID
                    Join sa In context.Customer_ShippingAddress On sa.CustomerID Equals ca.ID
                    Where ca.DateOpened >= DbFunctions.AddDays(Today, -7)
                    Order By ca.DateOpened Descending
                    Select New accountIndex With
                    {
                        .ID = ca.ID,
                        .firstName = ca.FirstName,
                        .lastName = ca.LastName,
                        .accountName = ca.AccountName,
                        .secure_EmailAdddress = ca.EmailAddress,
                        .dateOpened = ca.DateOpened,
                        .billing_FirstName = If(ba.Name1 Is Nothing, Nothing, ba.Name1),
                        .billing_LastName = If(ba.Name2 Is Nothing, Nothing, ba.Name2),
                        .shipping_FirstName = If(sa.Name1 Is Nothing, Nothing, sa.Name1),
                        .shipping_LastName = If(sa.Name2 Is Nothing, Nothing, sa.Name2)
                    }
                ).AsEnumerable()

DECLARE @startDate AS DATETIME, @stopDate AS DATETIME; 
 SET @startDate = DATETIMEFROMPARTS(@Year, @Month, @Day, 0, 0, 0, 0); 
 SET @stopDate = DATETIMEFROMPARTS(@Year, @Month, @Day, 23, 59, 59, 999); 
 SELECT 
   TOP 20 
   CartID 
 , PartNumber 
 , Thumbnail 
 , SDescription 
 , Qty 
 , Price 
 , Category 
 , Date 
 , ProductID 
  FROM 
 ( 
    SELECT 
      sc.CartID 
    , sc.PartNumber 
    , sc.Thumbnail 
    , sc.SDescription 
    , sc.Qty 
    , sc.Price 
    , sc.Category 
    , sc.Date 
    , pi.productID 
    FROM ShoppingCart sc 
    LEFT JOIN PRODUCTINFO pi ON sc.PartNumber = pi.PartNumber 
    WHERE sc.Date > @startDate 
    AND sc.Date < @stopDate 
 ) x 
 ORDER BY Date 

Dim pValue As Integer = 0
        Dim DateStart As New Date(Now.Year, Now.Month, Now.Day, 0, 0, 0, 0)
        Dim DateStop As New Date(Now.Year, Now.Month, Now.Day, 23, 59, 59, 0)

        Dim productContext As New ProductContext()
        Dim shoppingContext As New ShoppingCartContext()

        Dim query = _
        (
            From sc In shoppingContext.ShoppingCart
            Where sc.CartDate >= DateStart _
            And sc.CartDate <= DateStop
            Take 20
            Select
            {
                sc.CartID,
                sc.PartNumber,
                sc.ThumbNail,
                sc.SDescription,
                sc.Qty,
                sc.Price,
                sc.Category,
                sc.CartDate
            }
        ).AsEnumerable()