#!/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 = "kjbr"; @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) = 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); } } } 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 Charm Bracelets for Girls - 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 - Girls Jewelry - Charm Bracelets

 Princess Charm Bracelets
Stretch Bracelets - Princess Bracelets - Link Bracelets

These darling charm bracelets are for any fairy princess girl. Choose from a wide selection of styles and colors. Free shipping is available when you buy \$50 or more.



EndOfHTML print "\n"; $iii = $start; $number = 1; while($iii <= $max && $number <= 10) { 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 "\"$ptl[$iii]\"\n"; #print "
$pbf[$iii]
\n"; print "
\n"; } else { print "		\n"; print "$ptl[$iii+1]
\n"; print "\"$ptl[$iii+1]\"\n"; #print "
$pbf[$iii+1]
\n"; } print "
\n"; print "\$$ppr[$iii]
\n"; print "Item# $pid[$iii]

\n"; print "\"Add \n"; print "\"More
\n"; print "
\n"; } else { print "		\n"; 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 "

\n"; $firstitem = $start+1; $lastitem = $start+10; if ($lastitem > $noofitems) { $lastitem = $noofitems; } print "Items $firstitem - $lastitem of $noofitems Items Found
\n"; if ($noofitems > 10){ if ($start >= 10){ $prevpage = $start - 10; if ($prevpage == 0) { print "\<- Previous \n"; } if ($prevpage != 0) { print "\<- Previous \n"; } } $iii = 0; while($iii <= $noofpages-1) { $thispage = $iii*10; $printpage = $iii + 1; if ($thispage != $start && $thispage == 0) { print "- $printpage \n"; } if ($thispage != $start && $thispage != 0) { print "- $printpage \n"; } if ($thispage == $start && $thispage != 0) { print "- $printpage \n"; } if ($thispage == $start && $thispage == 0) { print "$printpage \n"; } $iii = $iii + 1; } if ($start+10 < $noofpages*10){ $nextpage = $start + 10; print "- Next -\> \n"; } } print "



\n"; print <

EndOfHTML open (BOTTOMNAV,"../bottomnav.dat") || print "Could not open file \n"; while () { print $_; } close(BOTTOMNAV); print < © 2000-2006 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; }