#! /usr/bin/perl $| = 1; # Print out a content-type for HTTP/1.0 compatibility print "Content-type:text/html\n\n"; # Print a title and initial heading print ""; print "Buy Resort Properties Maintain Regions"; print "\n"; use DBI; use Config; use Cwd; #use strict; my $dbh = DBI->connect('DBI:mysql:computercar', 'rclee', '0419') || die ("can't connect to the database: $!"); # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; $value =~ s/<([^>]|\n)*>//g; $FORM{$name} = $value; } print <<"HTML_STUFF";
Buy

To list Properties- Listing Rates: One listing- \$39.95 per month. Exclusive area general section per year \$360.00 Please go to front page and click on red button to get username and password. Please follow instructions from there.

Featured Section- Exclusive advertising section that places your listings apart from the General Section listings. Rate: \$89.95 per month. Go to front page, click on red button for username and password. Scroll down to Featured Section red button and follow instructions on that page to schedule.

Realtors, Buyers Agents, and Exclusive Buyers Agents Directory- Seen on all front pages and over all listing pages world wide. Rate: \$150.00 per year Per 2 areas. Please e-mail the following information: Company name, Location, Contact name, Phone, e-mail, and URL.

Pay by Visa or Master Card

Or

Send check to:

BRP
1010 Idaho Ave.
Natrona Heights, PA 15065 USA.

Special Property Section- Seen over every listing. \$200.00 per month. E-mail now to reserve your area. info\@buyresortproperties.com

Individual Property Ad Between Featured Section and Shopping Mall button on Front Pages- Rates: Real Estate Front Page- \$800.00 per month. Rental Front Page-\$600.00 per month. Timeshare Front Page: \$600.00 per month. Schedule now. Only three spots per month.

Banner Ad Section in Shopping Mall: Rate: \$60.00 per region per year. E-mail for multiple rates. Please complete form below and paste banner.

HTML_STUFF print "\n"; print "\n"; print "\n"; #print "\n"; print "
Company Name
Contact Name
Address
City
State
Zip
Phone #
email
Category:
Region:
Banner:
"; #print "(for example )

\n"; print "\n"; print "

"; print "
"; print "\n"; my $rc2 = $dbh->disconnect;