<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive] <% Dim rsg1__MMColParam rsg1__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rsg1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg1 Dim rsg1_numRows Set rsg1 = Server.CreateObject("ADODB.Recordset") rsg1.ActiveConnection = MM_connccm_STRING rsg1.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg1__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg1.CursorType = 0 rsg1.CursorLocation = 2 rsg1.LockType = 1 rsg1.Open() rsg1_numRows = 0 %> <% Dim rsg2__MMColParam rsg2__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then rsg2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg2 Dim rsg2_numRows Set rsg2 = Server.CreateObject("ADODB.Recordset") rsg2.ActiveConnection = MM_connccm_STRING rsg2.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg2__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg2.CursorType = 0 rsg2.CursorLocation = 2 rsg2.LockType = 1 rsg2.Open() rsg2_numRows = 0 %> <% Dim rsg3__MMColParam rsg3__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then rsg3__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg3 Dim rsg3_numRows Set rsg3 = Server.CreateObject("ADODB.Recordset") rsg3.ActiveConnection = MM_connccm_STRING rsg3.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg3__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg3.CursorType = 0 rsg3.CursorLocation = 2 rsg3.LockType = 1 rsg3.Open() rsg3_numRows = 0 %> <% Dim rsg4__MMColParam rsg4__MMColParam = "4" If (Request("MM_EmptyValue") <> "") Then rsg4__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg4 Dim rsg4_numRows Set rsg4 = Server.CreateObject("ADODB.Recordset") rsg4.ActiveConnection = MM_connccm_STRING rsg4.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg4__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg4.CursorType = 0 rsg4.CursorLocation = 2 rsg4.LockType = 1 rsg4.Open() rsg4_numRows = 0 %> <% Dim rsg5__MMColParam rsg5__MMColParam = "5" If (Request("MM_EmptyValue") <> "") Then rsg5__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg5 Dim rsg5_numRows Set rsg5 = Server.CreateObject("ADODB.Recordset") rsg5.ActiveConnection = MM_connccm_STRING rsg5.Source = "SELECT prod_group, prod_name, prodID, pkgtyp_desc, pkgtypID, pkg_type, pkg_volgal, pkg_volL, pkg_volml, pkg_voloz, pkgID FROM tblprod, tblclass, tblpkgtype, tblpkg WHERE prod_group = " + Replace(rsg5__MMColParam, "'", "''") + " AND classID = prod_class AND pkgID =prod_pkg AND pkg_type = pkgtypID ORDER BY prod_name ASC" rsg5.CursorType = 0 rsg5.CursorLocation = 2 rsg5.LockType = 1 rsg5.Open() rsg5_numRows = 0 %> <% Dim rsg6__MMColParam rsg6__MMColParam = "6" If (Request("MM_EmptyValue") <> "") Then rsg6__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg6 Dim rsg6_numRows Set rsg6 = Server.CreateObject("ADODB.Recordset") rsg6.ActiveConnection = MM_connccm_STRING rsg6.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg6__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg6.CursorType = 0 rsg6.CursorLocation = 2 rsg6.LockType = 1 rsg6.Open() rsg6_numRows = 0 %> <% Dim rsg7__MMColParam rsg7__MMColParam = "7" If (Request("MM_EmptyValue") <> "") Then rsg7__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg7 Dim rsg7_numRows Set rsg7 = Server.CreateObject("ADODB.Recordset") rsg7.ActiveConnection = MM_connccm_STRING rsg7.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg7__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg7.CursorType = 0 rsg7.CursorLocation = 2 rsg7.LockType = 1 rsg7.Open() rsg7_numRows = 0 %> <% Dim rsg8__MMColParam rsg8__MMColParam = "8" If (Request("MM_EmptyValue") <> "") Then rsg8__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg8 Dim rsg8_numRows Set rsg8 = Server.CreateObject("ADODB.Recordset") rsg8.ActiveConnection = MM_connccm_STRING rsg8.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg8__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg8.CursorType = 0 rsg8.CursorLocation = 2 rsg8.LockType = 1 rsg8.Open() rsg8_numRows = 0 %> <% Dim rsg9__MMColParam rsg9__MMColParam = "9" If (Request("MM_EmptyValue") <> "") Then rsg9__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg9 Dim rsg9_numRows Set rsg9 = Server.CreateObject("ADODB.Recordset") rsg9.ActiveConnection = MM_connccm_STRING rsg9.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg9__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg9.CursorType = 0 rsg9.CursorLocation = 2 rsg9.LockType = 1 rsg9.Open() rsg9_numRows = 0 %> <% Dim rsg10__MMColParam rsg10__MMColParam = "10" If (Request("MM_EmptyValue") <> "") Then rsg10__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg10 Dim rsg10_numRows Set rsg10 = Server.CreateObject("ADODB.Recordset") rsg10.ActiveConnection = MM_connccm_STRING rsg10.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg10__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg10.CursorType = 0 rsg10.CursorLocation = 2 rsg10.LockType = 1 rsg10.Open() rsg10_numRows = 0 %> <% Dim rsg11__MMColParam rsg11__MMColParam = "11" If (Request("MM_EmptyValue") <> "") Then rsg11__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg11 Dim rsg11_numRows Set rsg11 = Server.CreateObject("ADODB.Recordset") rsg11.ActiveConnection = MM_connccm_STRING rsg11.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg11__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg11.CursorType = 0 rsg11.CursorLocation = 2 rsg11.LockType = 1 rsg11.Open() rsg11_numRows = 0 %> <% Dim rsg12__MMColParam rsg12__MMColParam = "12" If (Request("MM_EmptyValue") <> "") Then rsg12__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg12 Dim rsg12_numRows Set rsg12 = Server.CreateObject("ADODB.Recordset") rsg12.ActiveConnection = MM_connccm_STRING rsg12.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg12__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg12.CursorType = 0 rsg12.CursorLocation = 2 rsg12.LockType = 1 rsg12.Open() rsg12_numRows = 0 %> <% Dim rsg13__MMColParam rsg13__MMColParam = "13" If (Request("MM_EmptyValue") <> "") Then rsg13__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg13 Dim rsg13_numRows Set rsg13 = Server.CreateObject("ADODB.Recordset") rsg13.ActiveConnection = MM_connccm_STRING rsg13.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg13__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg13.CursorType = 0 rsg13.CursorLocation = 2 rsg13.LockType = 1 rsg13.Open() rsg13_numRows = 0 %> <% Dim rsg14__MMColParam rsg14__MMColParam = "16" If (Request("MM_EmptyValue") <> "") Then rsg14__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsg14 Dim rsg14_numRows Set rsg14 = Server.CreateObject("ADODB.Recordset") rsg14.ActiveConnection = MM_connccm_STRING rsg14.Source = "SELECT prod_group, prod_name, prodID FROM tblprod, tblclass WHERE prod_group = " + Replace(rsg14__MMColParam, "'", "''") + " AND classID = prod_class ORDER BY prod_name ASC" rsg14.CursorType = 0 rsg14.CursorLocation = 2 rsg14.LockType = 1 rsg14.Open() rsg14_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rsg2_numRows = rsg2_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsg3_numRows = rsg3_numRows + Repeat2__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 rsg4_numRows = rsg4_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Dim Repeat3__index Repeat5__numRows = -1 Repeat5__index = 0 rsg5_numRows = rsg5_numRows + Repeat5__numRows %> <% Dim Repeat21__numRows Dim Repeat21__index Repeat21__numRows = -1 Repeat21__index = 0 rsg13_numRows = rsg13_numRows + Repeat21__numRows %> <% Dim Repeat11__numRows Dim Repeat11__index Repeat11__numRows = -1 Repeat11__index = 0 rsg12_numRows = rsg12_numRows + Repeat11__numRows %> <% Dim HLooper2__numRows HLooper2__numRows = -3 Dim HLooper2__index HLooper2__index = 0 rsg5_numRows = rsg5_numRows + HLooper2__numRows %> <% Dim Repeat10__numRows Dim Repeat10__index Repeat10__numRows = -1 Repeat10__index = 0 rsg11_numRows = rsg11_numRows + Repeat10__numRows %> <% Dim Repeat9__numRows Dim Repeat9__index Repeat9__numRows = -1 Repeat9__index = 0 rsg10_numRows = rsg10_numRows + Repeat9__numRows %> <% Dim Repeat8__numRows Dim Repeat8__index Repeat8__numRows = -1 Repeat8__index = 0 rsg9_numRows = rsg9_numRows + Repeat8__numRows %> <% Dim Repeat7__numRows Dim Repeat7__index Repeat7__numRows = -1 Repeat7__index = 0 rsg8_numRows = rsg8_numRows + Repeat7__numRows %> <% Dim Repeat20__numRows Dim Repeat20__index Repeat20__numRows = -1 Repeat20__index = 0 rsg7_numRows = rsg7_numRows + Repeat20__numRows %> <% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = -1 Repeat6__index = 0 rsg6_numRows = rsg6_numRows + Repeat6__numRows %> <% Dim Repeat22__numRows Dim Repeat22__index Repeat22__numRows = -1 Repeat22__index = 0 rsg14_numRows = rsg22_numRows + Repeat22__numRows %> Coca-Cola Beverage Company (Micronesia), Inc.

Coca-Cola Beverage Company (Micronesia), Inc.

""  PRODUCTS  ""  DISTRIBUTION  ""  CONTACT US

canned drinks
CANNED SODA:
<% startrw = 0 endrw = HLooper1__index numberColumns = 2 numrows = 5 while((numrows <> 0) AND (Not rsg1.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsg1.EOF)) %> <% startrw = startrw + 1 rsg1.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
  ','price','width=250,height=350')"><%=(rsg1.Fields.Item("prod_name").Value)%>
Fanta cans
FANTA CANNED SODA: NESCAFE 250 ML:
<% While ((Repeat1__numRows <> 0) AND (NOT rsg2.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsg2.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg2.Fields.Item("prod_name").Value)%>
 
<% While ((Repeat2__numRows <> 0) AND (NOT rsg3.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsg3.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg3.Fields.Item("prod_name").Value)%>
 
MULTI-PACKS:
<% While ((Repeat4__numRows <> 0) AND (NOT rsg4.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 rsg4.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg4.Fields.Item("prod_name").Value)%>
 
PET bottles
PET 2 LITER/1.25 LITER AND 500 ML BOTTLES:
<% startrw = 0 endrw = HLooper2__index numberColumns = 3 numrows = -1 while((numrows <> 0) AND (Not rsg5.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsg5.EOF)) %> <% startrw = startrw + 1 rsg5.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
','price','width=250,height=350')"><%=(rsg5.Fields.Item("prod_name").Value)%>  <% If rsg5.Fields.Item("pkg_voloz").Value <> "" Then %> <%=(rsg5.Fields.Item("pkg_voloz").Value)%> ounces, <% End If %> <% If rsg5.Fields.Item("pkg_volml").Value <> "" Then %> <%=(rsg5.Fields.Item("pkg_volml").Value)%> ml <% End If %> <% If rsg5.Fields.Item("pkg_volL").Value <> "" Then %> <%=(rsg5.Fields.Item("pkg_volL").Value)%> Liter <% End If %> <% If rsg5.Fields.Item("pkg_volgal").Value <> "" Then %> <%=(rsg5.Fields.Item("pkg_volgal").Value)%> Gallon <% End If %> <%=(rsg5.Fields.Item("pkgtyp_desc").Value)%>
Nestea bottles Nestea Can
NESTEA BOTTLES: NESTEA CAN:
<% While ((Repeat6__numRows <> 0) AND (NOT rsg6.EOF)) %> <% Repeat6__index=Repeat6__index+1 Repeat6__numRows=Repeat6__numRows-1 rsg6.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg6.Fields.Item("prod_name").Value)%>
 
<% While ((Repeat20__numRows <> 0) AND (NOT rsg7.EOF)) %> <% Repeat20__index=Repeat20__index+1 Repeat20__numRows=Repeat20__numRows-1 rsg7.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg7.Fields.Item("prod_name").Value)%>
 
Dasani Water
<% While ((Repeat22__numRows <> 0) AND (NOT rsg14.EOF)) %> <% Repeat22__index=Repeat22__index+1 Repeat22__numRows=Repeat22__numRows-1 rsg14.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg14.Fields.Item("prod_name").Value)%>
 
POWERADE 32 OZ.
<% While ((Repeat7__numRows <> 0) AND (NOT rsg8.EOF)) %> <% Repeat7__index=Repeat7__index+1 Repeat7__numRows=Repeat7__numRows-1 rsg8.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg8.Fields.Item("prod_name").Value)%>
 
   
Powerade24/20 oz.
POWERADE 24/20 OZ. POWERADE 12 OZ.
<% While ((Repeat8__numRows <> 0) AND (NOT rsg9.EOF)) %> <% Repeat8__index=Repeat8__index+1 Repeat8__numRows=Repeat8__numRows-1 rsg9.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg9.Fields.Item("prod_name").Value)%>
 
<% While ((Repeat9__numRows <> 0) AND (NOT rsg10.EOF)) %> <% Repeat9__index=Repeat9__index+1 Repeat9__numRows=Repeat9__numRows-1 rsg10.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg10.Fields.Item("prod_name").Value)%>
 
HI-C TETRA BRIK JUICES/TEAS 250 ML:
<% While ((Repeat10__numRows <> 0) AND (NOT rsg11.EOF)) %> <% Repeat10__index=Repeat10__index+1 Repeat10__numRows=Repeat10__numRows-1 rsg11.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg11.Fields.Item("prod_name").Value)%>
 
HI-C TETRA BRIK JUICES/TEAS 375 ML:
<% While ((Repeat21__numRows <> 0) AND (NOT rsg13.EOF)) %> <% Repeat21__index=Repeat21__index+1 Repeat21__numRows=Repeat21__numRows-1 rsg13.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg13.Fields.Item("prod_name").Value)%>
 
Qoo 250
QOO 250
<% While ((Repeat11__numRows <> 0) AND (NOT rsg12.EOF)) %> <% Repeat11__index=Repeat11__index+1 Repeat11__numRows=Repeat11__numRows-1 rsg12.MoveNext() Wend %>
','price','width=250,height=350')"><%=(rsg12.Fields.Item("prod_name").Value)%>
 
 
Coolers and Vending Machines
440 Vending Machine Single Door Cooler Double Door Cooler Triple Door Cooler
Dixie Narco Model 440 GDM 23 Upright with 1 single door GDM 45 Upright with two doors GDM 69 Upright with three doors
Please contact us for current vending, cooler and postmix machine prices.
Spirit Postmix Venture Postmix Vanguard Postmix 2230 Postmix
Spirit Postmix Venture Postmix Vanguard Postmix 2230 Postmix
       
   
   
Coca-Cola, Coke and contour bottle design are the registered trademarks of the The Coca-Cola Company.
<% rsg1.Close() Set rsg1 = Nothing %> <% rsg2.Close() Set rsg2 = Nothing %> <% rsg3.Close() Set rsg3 = Nothing %> <% rsg4.Close() Set rsg4 = Nothing %> <% rsg5.Close() Set rsg5 = Nothing %> <% rsg6.Close() Set rsg6 = Nothing %> <% rsg7.Close() Set rsg7 = Nothing %> <% rsg8.Close() Set rsg8 = Nothing %> <% rsg9.Close() Set rsg9 = Nothing %> <% rsg10.Close() Set rsg10 = Nothing %> <% rsg11.Close() Set rsg11 = Nothing %> <% rsg12.Close() Set rsg12 = Nothing %> <% rsg13.Close() Set rsg13 = Nothing %> <% rsg14.Close() Set rsg14 = Nothing %>