
Enviro-Candles
Enviro-candles: Candles that never melt away. Attractive,
environmentally friendly, Enviro-Candles are reusable and burn for
hours.
Japanese Tableware
We combine the age old traditional styles of Japan and fuse them with
a modern uptown elegance to create a luscious line of tableware that
will blow your mind and wow your friends.
|
 |
|
What STUDIO 55 customers are saying...
Feb 13, 2002: "I just wanted to drop you a line to let you know that
the five rice bowls that I ordered from you as a gift arrived. Even
more important, I am told by the recipient that they are absolutely
more beautiful than she can describe. Thank you for sharing
your art with those of us who are looking for something more than
ordinary. Your fine workmanship made me look very very good. They
are appreciated.
Thanks again."
Janet A. Meyers
Director, Human Resources, National Hockey League, New York, NY |
Current Date:
Saturday, September 04 2010
Visitors to our gallery since Oct 2002:
#!/usr/bin/perl
################################################
# #
# Advanced Text Counter v1.0 #
# Copyright 2002 by Alan Barber #
# webmaster@advanced-basic.com #
# http://www.advanced-basic.com #
# #
################################################
#
# Copyright Notice:
# Copyright 2002 Alan Barber. All Rights Reserved.
#
# This code may be used and modified by anyone so long as this header and
# copyright information remains intact. By using this code you agree to
# indemnify Alan Barber from any liability that might arise from its
# use. You must obtain written consent before selling or redistributing
# this code.
#
################################################
################################################
# No need to modify anything below this line #
################################################
require "formparser.lib";
&Parse_Form;
$calling_page = "$ENV{'DOCUMENT_URI'}";
$found = "false";
open (COUNTER, ";
close(COUNTER);
open (COUNTER, ">counter.dat") || &fatal_error;
foreach $line (@page_counts) {
($page, $access_count, $null) = split(/\|/,$line);
if($page eq $calling_page) {
$found = "true";
$access_count++;
$display_count = $access_count;
print COUNTER "$page|$access_count|\n";
} else {
print COUNTER "$page|$access_count|\n";
}
}
if($found eq "false") {
print COUNTER "$calling_page|1|\n";
$access_count = "1";
$display_count = "1";
}
close(COUNTER);
print "Content-type:text/html\n\n";
if (exists $formdata{'format'}) {
@format_digits = split(//, $formdata{'format'});
@count_digits = split(//, $display_count);
$num_of_format_digits = @format_digits;
$num_of_count_digits = @count_digits;
$leading_zeros = $num_of_format_digits - $num_of_count_digits;
if($leading_zeros > 0) {
for ($i = $leading_zeros; $i > 0; --$i) {
print "0";
}
}
}
print "$display_count";
exit;
sub fatal_error
{
print "Fatal counter error. Could not open data file. ";
exit;
}
|