#!/usr/bin/perl ### Cookies $hostip = $ENV{'REMOTE_ADDR'}; require '../cookie.lib'; $cartid = "nocookies"; if (&GetCookies('cart')) { $cartid = $Cookies{'cart'}; } else { ($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $cartid = "$sec$hr$min.$hostip"; &SetCookies('cart',$cartid); } # if (not &GetCookies('cart')) { # $cartid = "nocookies"; # } ##################################################### print "Content-type:text/html\n\n"; $start = 0; $deptid = "access"; @values = split(/&/,$ENV{'QUERY_STRING'}); foreach $i (@values) { ($varname, $mydata) = split(/=/,$i); if ($varname eq "start") { $start = $mydata; } } open(FILE, "../data.dat") || die &error_file; while() { chomp; @datafile = split(/\n/); foreach $line (@datafile) { next if /#.*/; ($depart, $prodid, $prodtitle, $proddetail, $prodprice, $prodimage, $prodthumb, $s1, $s2, $s3, $t1, $wsprice, $wsunit, $wsmin, $rtla, $wsa, $prodbrief, $prodlink) = split(/::/, $line); if ($deptid eq $depart && $rtla eq "1") { push(@pdp,$depart); push(@pid,$prodid); push(@ptl,$prodtitle); push(@pdt,$proddetail); push(@ppr,$prodprice); push(@pim,$prodimage); push(@ptm,$prodthumb); push(@wsu,$wsunit); push(@wsm,$wsmin); push(@pbf,$prodbrief); push(@prodlink,$prodlink); } } } close(FILE); $noofitems = scalar(@pdp); $noofpages = 1 + int($noofitems/10); if (int($noofitems / 10) == $noofitems / 10) { $noofpages = $noofpages - 1; } if (int($start / 10) != $start / 10) { $start = 0; } if ($start > $noofitems) { $start = 0; } $htmltitle = "Princess Accessoires - Purses, Keychains, Ornaments - The Princess Store"; $max = $#pdp; print < $htmltitle
The Princess Store
 
View Your CartHelp and SupportContact InformationAbout The Princess Store



Search
 



EndOfHTML open (LEFTNAV,"../leftnav.dat") || print "Could not open file \n"; while () { print $_; } close(LEFTNAV); print <

Wholesale Resellers


Home - Accessories

 Princess Accessories - Jewelry Boxes - Purses - Keychains - Ornaments
Free shipping when you buy \$30 or more.

From purses to keychains, The Princess Store brings you a large variety of accessories which can be used for any occasion. Free shipping is available when you buy \$30 or more.



 EndOfHTML print "\n"; $iii = $start; $number = 1; while($iii <= $max) { print "\n"; print "\n"; print "\n"; if ($ptm[$iii+1] eq "") { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($ptm[$iii+1] eq "") { print "
\n"; print "\"$ptl[$iii]\"\n"; print "
\n"; } else { print "		\n"; print "\"$ptl[$iii+1]\"\n"; } print "
\n"; print "$ptl[$iii] -\n"; print "$pbf[$iii]
\n"; #print "• More Details
• $plink[$iii]"; #print "\$$ppr[$iii]
\n"; #print "Item# $pid[$iii]

\n"; #print "\"Add \n"; #print "\"More
\n"; print "
\n"; } else { print "		\n"; print "$ptl[$iii+1] - \n"; print "$pbf[$iii+1]
\n"; #print "• More Details
• $plink[$iii+1]"; #print "\$$ppr[$iii+1]
\n"; #print "Item# $pid[$iii+1]

\n"; #print "\"Add \n"; #print "\"More
\n"; } print "
\n"; $iii = $iii + 2; $number = $number + 2; } print <
EndOfHTML open (BOTTOMNAV,"../bottomnav.dat") || print "Could not open file \n"; while () { print $_; } close(BOTTOMNAV); print < © 2000-2011 The Princess Store - All Rights Reserved



EndOfHTML sub error_file { print < Please Wait...




L O A D I N G

If this page does not refresh automaticly, click here.
END_of_html exit; }