|
The Art Of Packaging
Bag Arts is the leading
manufacturer of plastic & paper bags. We manufacture elegant,
upscale and value-added bags for a list of retail stores including:
bakery and deli, beauty supply, books and crafts, cards and gifts,
clothing, grocery store, music and video, office supply, restaurant,
sporting goods, shoe stores, toy store, and trade show bags. We
specialize in bags for two main markets; soft and hard-line
retailers, and restaurant carryout.
Bag Arts is the
recognized industry leader in the Retail and Promotional marketplace
and is the ultimate source for all styles and sizes of HDPE, LDPE,
Co-Ex plastic bags and upscale "Euro Tote" gloss or matte laminated
paper shopping bags.
We pride ourselves on being
different!
We offer quality, service and price.
We understand the needs of our clients and execute them accurately,
efficiently and cost effectively in the finished product.
We consistently strive for
excellence!
Call Bag Arts
at (212)
684-7020 today!
<%
'# Set the values of some variable
imageStyle = "s1"
serverPath = "http://plugins.websitecomplete.com/wsc_images"
DataSource = "FileDSN=c:\winnt\system32\dsn\plugins.dsn"
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open DataSource
'# grab all their records to see what they have to offer
sqlQuery = "SELECT current_value FROM hitcounter WHERE pluginID = 'WQY5QVFX'"
Set oRst = DataConn.Execute(sqlQuery)
if not oRst.eof then
counterNumber = CLng(oRst("current_value"))
if Session("Counted") = "" then
counterNumber = counterNumber + 1
'#update the current value in the database
sqlQuery = "UPDATE hitcounter SET current_value = " & counterNumber & " WHERE pluginID = 'WQY5QVFX';"
DataConn.Execute(sqlQuery)
DataConn.close
Set DataConn = nothing
Session("Counted") = true
end if
counterNumber = "0000000000" & counterNumber
counterNumber = right(counterNumber,8)
counterDisplay = ""
howLong = len(counterNumber)
for i=1 to howLong
thisNumber = mid(counterNumber,i,1)
counterDisplay = counterDisplay & "![](" & serverPath & "/" & imageStyle & "/" & thisNumber & ".gif) "
next
counterDisplay = "" & counterDisplay & ""
else
counterDisplay = ""
end if
Set oRst = nothing
%><%= counterDisplay %>
| 
