<% Set LConn = Server.CreateObject("ADODB.Connection") Set LS = Server.CreateObject("ADODB.Recordset") LConn.Open "monicas_LeamanADO", "leamanCon", "leatainer" LSQL = "SELECT * FROM LeaQuotes ORDER BY QuoteID Asc " LS.Open LSQL, LConn, 1, 3 LSFound = LS.Recordcount Randomize QShow = Int(Rnd * LSFound) LS.Move(QShow) QBy = Server.HTMLEncode(LS("QuoteBy")) QText = Server.HTMLEncode(LS("QuoteText")) LS.Close Set LS = Nothing Set PS = Server.CreateObject("ADODB.Recordset") pSQL = "SELECT * FROM LeaBoxes WHERE BoxFeature = 1 " PS.Open pSQL, LConn, 1, 3 PName = PS("BoxName") PDesc = PS("BoxDesc") PCat = PS("BoxCat") PImage = PS("BoxImage") PS.Close Set PS = Nothing Set ColS = Server.CreateObject("ADODB.Recordset") colSQL = "SELECT * FROM BoxCollege WHERE Image IS NOT NULL " ColS.Open colSQL, LConn, 1, 3 ColSFound = ColS.Recordcount Randomize ColShow = Int(Rnd * ColSFound) ColS.Move(ColShow) strColName = ColS("Name") strColDef = ColS("Definition") strColImg = ColS("Image") ColS.Close Set ColS = Nothing LConn.Close %> the Box Outlet - We Never Sell An Empty Box
  the Box Outlet  
  
 
     
Leaman Container
Search for Products
XX

Packaging Products
 • Online Catalog
 • Business to Business
 • Shipping & Savings
 • Request a Brochure

Custom Packaging
 • Design
 • Customer Service

About Leaman
 • Company History
 • Quality Policy
 

Box Outlet #1

5701 E. Rosedale

Fort Worth, TX  76112

817-451-8845     Fax 817-507-0970

Box Outlet #2

4011-A Benbrook Hwy.

Fort Worth, TX  76116

817-731-1616   Fax 817-731-1617

Box Outlet #3

2106 Harwood Road

Bedford, TX  76021

817-354-8998   Fax 817-354-8999

Over 25 Years of Quality Service
At the Box Outlet, we never sell an empty box because we fill EVERY box with:

• Courteous, professional, and
  hard-working people
• Extraordinary service
• Exceptional quality that
  exceeds expectations
• Competitive pricing
• Promises—that we keep!

Founded in 1980, the Box Outlet is a family-owned business. We take personal pride in building strong business relationships. Please, put us to the test and give us the chance to amaze you.

   

<%=Server.HTMLEncode(PName)%>
<% if IsNULL(PImage) then else %>  <% end if %>