<% if request("txtDate") <> "" and IsDate(request("txtDate")) then PriceSheetDate = SQLClean(request("txtDate")) else PriceSheetDate = Date() end if %> Coast to Coast Produce - Price Sheet <% =PriceSheetDate %> <% strSQL = "SELECT * FROM [CTC_PriceSheet] INNER JOIN [CTC_Category] ON [CTC_Category].CategoryID = [CTC_PriceSheet].CategoryID WHERE PriceSheetDate = '" & SQLClean(PriceSheetDate) & "' ORDER BY CategoryOrder ASC, ProductName" set rstMenu = objConn.Execute(strSQL) %>

  Date: <% =StripCode(PriceSheetDate) %>
 
125 COMMERCE CT
P O BOX 250
CHESHIRE, CT 06410
Phone: 203-271-2006
Fax: 203-271-2796
E-mail: mailbox@ctcproduce.com
<% LastCategoryID = "" %> <% do while not rstMenu.eof %> <% if LastCategoryID <> rstMenu("CategoryID") then %> <% Gray = false %> <% end if %> <% Gray = not Gray %> <% LastCategoryID = StripCode(rstMenu("CategoryID")) %> bgcolor="#EDEDED"<% end if %>> bgcolor="#EDEDED"<% end if %>> bgcolor="#EDEDED"<% end if %>> <% rstMenu.MoveNext loop %>

<% =rstMenu("CategoryName") %>
<% =Replace(StripCode(rstMenu("CategoryDesc")), "
", chr(13) & chr(10)) %>

<% if not isNull(rstMenu("PictureSRC")) and rstMenu("PictureSRC") <> "" then %>">
<% end if %>
<% =StripCode(rstMenu("ProductName")) %>
<% =StripCode(rstMenu("ProductDesc")) %>

<% if rstMenu("Price1NA") or rstMenu("Price1Call") or CDbl(rstMenu("Price1")) <> 0 then %><% =StripCode(rstMenu("Price1Desc")) %><% if not rstMenu("Price1Call") then %><% if CDbl(rstMenu("Price1")) <> 0 then %>
<% end if %><% else %><% =GetOffices(StripCode(rstMenu("Price1Offices")),2) %>

<% end if %>
<% end if %> <% if rstMenu("Price2NA") or rstMenu("Price2Call") or CDbl(rstMenu("Price2")) <> 0 then %><% =StripCode(rstMenu("Price2Desc")) %><% if not rstMenu("Price2Call") then %><% if CDbl(rstMenu("Price2")) <> 0 then %>
<% end if %><% else %><% =GetOffices(StripCode(rstMenu("Price2Offices")),2) %>

<% end if %>
<% end if %> <% if rstMenu("Price3NA") or rstMenu("Price3Call") or CDbl(rstMenu("Price3")) <> 0 then %><% =StripCode(rstMenu("Price3Desc")) %><% if not rstMenu("Price3Call") then %><% if CDbl(rstMenu("Price3")) <> 0 then %>
<% end if %><% else %><% =GetOffices(StripCode(rstMenu("Price3Offices")),2) %>

<% end if %>
<% end if %> <% if rstMenu("Price4NA") or rstMenu("Price4Call") or CDbl(rstMenu("Price4")) <> 0 then %><% =StripCode(rstMenu("Price4Desc")) %><% if not rstMenu("Price4Call") then %><% if CDbl(rstMenu("Price4")) <> 0 then %>
<% end if %><% else %><% =GetOffices(StripCode(rstMenu("Price4Offices")),2) %>

<% end if %>
<% end if %> <% if rstMenu("Price5NA") or rstMenu("Price5Call") or CDbl(rstMenu("Price5")) <> 0 then %><% =StripCode(rstMenu("Price5Desc")) %><% if not rstMenu("Price5Call") then %><% if CDbl(rstMenu("Price5")) <> 0 then %>
<% end if %><% else %><% =GetOffices(StripCode(rstMenu("Price5Offices")),2) %>

<% end if %>
<% end if %> <% if rstMenu("Price6NA") or rstMenu("Price6Call") or CDbl(rstMenu("Price6")) <> 0 then %><% =StripCode(rstMenu("Price6Desc")) %><% if not rstMenu("Price6Call") then %><% if CDbl(rstMenu("Price6")) <> 0 then %>
<% end if %><% else %><% =GetOffices(StripCode(rstMenu("Price6Offices")),2) %>

<% end if %>
<% end if %> <% if rstMenu("Price7NA") or rstMenu("Price7Call") or CDbl(rstMenu("Price7")) <> 0 then %><% =StripCode(rstMenu("Price7Desc")) %><% if not rstMenu("Price7Call") then %><% if CDbl(rstMenu("Price7")) <> 0 then %>
<% end if %><% else %><% =GetOffices(StripCode(rstMenu("Price7Offices")),2) %>

<% end if %>
<% end if %> <% if rstMenu("Price8NA") or rstMenu("Price8Call") or CDbl(rstMenu("Price8")) <> 0 then %><% =StripCode(rstMenu("Price8Desc")) %><% if not rstMenu("Price8Call") then %><% if CDbl(rstMenu("Price8")) <> 0 then %>
<% end if %><% else %><% =GetOffices(StripCode(rstMenu("Price8Offices")),2) %>

<% end if %>
<% end if %> <% if rstMenu("Price9NA") or rstMenu("Price9Call") or CDbl(rstMenu("Price9")) <> 0 then %><% =StripCode(rstMenu("Price9Desc")) %><% if not rstMenu("Price9Call") then %><% if CDbl(rstMenu("Price9")) <> 0 then %>
<% end if %><% else %><% =GetOffices(StripCode(rstMenu("Price9Offices")),2) %>

<% end if %>
<% end if %> <% if rstMenu("Price10NA") or rstMenu("Price10Call") or CDbl(rstMenu("Price10")) <> 0 then %><% =StripCode(rstMenu("Price10Desc")) %><% if not rstMenu("Price10Call") then %><% if CDbl(rstMenu("Price10")) <> 0 then %>
<% end if %><% else %><% =GetOffices(StripCode(rstMenu("Price10Offices")),2) %>

<% end if %>
<% end if %>

<% if rstMenu("Price1NA") or rstMenu("Price1Call") or CDbl(rstMenu("Price1")) <> 0 then %><% if rstMenu("Price1NA") then %>N/A<% else %><% if not rstMenu("Price1Call") then %><% if CDbl(rstMenu("Price1")) <> 0 then %><% =FormatCurrency(StripCode(rstMenu("Price1")),2) %><% if not isNull(rstMenu("Price1End")) then %> - <% =FormatCurrency(StripCode(rstMenu("Price1End")),2) %><% end if %>
<% end if %><% else %>Call for price <% if rstMenu("Price1CallPA") then %> & availability<% end if %>:
<% =GetOffices(StripCode(rstMenu("Price1Offices")),1) %>
<% end if %><% end if %>
<% end if %> <% if rstMenu("Price2NA") or rstMenu("Price2Call") or CDbl(rstMenu("Price2")) <> 0 then %><% if rstMenu("Price2NA") then %>N/A<% else %><% if not rstMenu("Price2Call") then %><% if CDbl(rstMenu("Price2")) <> 0 then %><% =FormatCurrency(StripCode(rstMenu("Price2")),2) %><% if not isNull(rstMenu("Price2End")) then %> - <% =FormatCurrency(StripCode(rstMenu("Price2End")),2) %><% end if %>
<% end if %><% else %>Call for price <% if rstMenu("Price2CallPA") then %> & availability<% end if %>:
<% =GetOffices(StripCode(rstMenu("Price2Offices")),1) %>
<% end if %><% end if %>
<% end if %> <% if rstMenu("Price3NA") or rstMenu("Price3Call") or CDbl(rstMenu("Price3")) <> 0 then %><% if rstMenu("Price3NA") then %>N/A<% else %><% if not rstMenu("Price3Call") then %><% if CDbl(rstMenu("Price3")) <> 0 then %><% =FormatCurrency(StripCode(rstMenu("Price3")),2) %><% if not isNull(rstMenu("Price3End")) then %> - <% =FormatCurrency(StripCode(rstMenu("Price3End")),2) %><% end if %>
<% end if %><% else %>Call for price <% if rstMenu("Price3CallPA") then %> & availability<% end if %>:
<% =GetOffices(StripCode(rstMenu("Price3Offices")),1) %>
<% end if %><% end if %>
<% end if %> <% if rstMenu("Price4NA") or rstMenu("Price4Call") or CDbl(rstMenu("Price4")) <> 0 then %><% if rstMenu("Price4NA") then %>N/A<% else %><% if not rstMenu("Price4Call") then %><% if CDbl(rstMenu("Price4")) <> 0 then %><% =FormatCurrency(StripCode(rstMenu("Price4")),2) %><% if not isNull(rstMenu("Price4End")) then %> - <% =FormatCurrency(StripCode(rstMenu("Price4End")),2) %><% end if %>
<% end if %><% else %>Call for price <% if rstMenu("Price4CallPA") then %> & availability<% end if %>:
<% =GetOffices(StripCode(rstMenu("Price4Offices")),1) %>
<% end if %><% end if %>
<% end if %> <% if rstMenu("Price5NA") or rstMenu("Price5Call") or CDbl(rstMenu("Price5")) <> 0 then %><% if rstMenu("Price5NA") then %>N/A<% else %><% if not rstMenu("Price5Call") then %><% if CDbl(rstMenu("Price5")) <> 0 then %><% =FormatCurrency(StripCode(rstMenu("Price5")),2) %><% if not isNull(rstMenu("Price5End")) then %> - <% =FormatCurrency(StripCode(rstMenu("Price5End")),2) %><% end if %>
<% end if %><% else %>Call for price <% if rstMenu("Price5CallPA") then %> & availability<% end if %>:
<% =GetOffices(StripCode(rstMenu("Price5Offices")),1) %>
<% end if %><% end if %>
<% end if %> <% if rstMenu("Price6NA") or rstMenu("Price6Call") or CDbl(rstMenu("Price6")) <> 0 then %><% if rstMenu("Price6NA") then %>N/A<% else %><% if not rstMenu("Price6Call") then %><% if CDbl(rstMenu("Price6")) <> 0 then %><% =FormatCurrency(StripCode(rstMenu("Price6")),2) %><% if not isNull(rstMenu("Price6End")) then %> - <% =FormatCurrency(StripCode(rstMenu("Price6End")),2) %><% end if %>
<% end if %><% else %>Call for price <% if rstMenu("Price6CallPA") then %> & availability<% end if %>:
<% =GetOffices(StripCode(rstMenu("Price6Offices")),1) %>
<% end if %><% end if %>
<% end if %> <% if rstMenu("Price7NA") or rstMenu("Price7Call") or CDbl(rstMenu("Price7")) <> 0 then %><% if rstMenu("Price7NA") then %>N/A<% else %><% if not rstMenu("Price7Call") then %><% if CDbl(rstMenu("Price7")) <> 0 then %><% =FormatCurrency(StripCode(rstMenu("Price7")),2) %><% if not isNull(rstMenu("Price7End")) then %> - <% =FormatCurrency(StripCode(rstMenu("Price7End")),2) %><% end if %>
<% end if %><% else %>Call for price <% if rstMenu("Price7CallPA") then %> & availability<% end if %>:
<% =GetOffices(StripCode(rstMenu("Price7Offices")),1) %>
<% end if %><% end if %>
<% end if %> <% if rstMenu("Price8NA") or rstMenu("Price8Call") or CDbl(rstMenu("Price8")) <> 0 then %><% if rstMenu("Price8NA") then %>N/A<% else %><% if not rstMenu("Price8Call") then %><% if CDbl(rstMenu("Price8")) <> 0 then %><% =FormatCurrency(StripCode(rstMenu("Price8")),2) %><% if not isNull(rstMenu("Price8End")) then %> - <% =FormatCurrency(StripCode(rstMenu("Price8End")),2) %><% end if %>
<% end if %><% else %>Call for price <% if rstMenu("Price8CallPA") then %> & availability<% end if %>:
<% =GetOffices(StripCode(rstMenu("Price8Offices")),1) %>
<% end if %><% end if %>
<% end if %> <% if rstMenu("Price9NA") or rstMenu("Price9Call") or CDbl(rstMenu("Price9")) <> 0 then %><% if rstMenu("Price9NA") then %>N/A<% else %><% if not rstMenu("Price9Call") then %><% if CDbl(rstMenu("Price9")) <> 0 then %><% =FormatCurrency(StripCode(rstMenu("Price9")),2) %><% if not isNull(rstMenu("Price9End")) then %> - <% =FormatCurrency(StripCode(rstMenu("Price9End")),2) %><% end if %>
<% end if %><% else %>Call for price <% if rstMenu("Price9CallPA") then %> & availability<% end if %>:
<% =GetOffices(StripCode(rstMenu("Price9Offices")),1) %>
<% end if %><% end if %>
<% end if %> <% if rstMenu("Price10NA") or rstMenu("Price10Call") or CDbl(rstMenu("Price10")) <> 0 then %><% if rstMenu("Price10NA") then %>N/A<% else %><% if not rstMenu("Price10Call") then %><% if CDbl(rstMenu("Price10")) <> 0 then %><% =FormatCurrency(StripCode(rstMenu("Price10")),2) %><% if not isNull(rstMenu("Price10End")) then %> - <% =FormatCurrency(StripCode(rstMenu("Price10End")),2) %><% end if %>
<% end if %><% else %>Call for price <% if rstMenu("Price10CallPA") then %> & availability<% end if %>:
<% =GetOffices(StripCode(rstMenu("Price10Offices")),1) %>
<% end if %><% end if %>
<% end if %>


PRICING AND AVAILABILITY: Prices and availability are subject to change. All orders are F.O.B. Good Delivery, unless otherwise stated.