#!/usr/bin/perl
$number = int(rand(10000));

$ad = "<A HREF=\"http://www.burstnet.com/ads/ad6389a-map.cgi/$number\" target=\"new\"><IMG SRC=\"http://www.burstnet.com/cgi-bin/ads/ad6389a.cgi/$number\" BORDER=\"0\" WIDTH=\"468\" HEIGHT=\"60\"></A>";

$docurl=$ENV{'QUERY_STRING'};

# remove any .'s from $docurl
$docurl =~ s/"test"/"car"/gie;

# If $docurl contains http then redirect to main page
if($docurl =~ "http") { print "location: http://www.funguide.com\n\n"; exit; }


print "Content-type: text/html\n\n";
print "<HTML><HEAD>";
print "<META  name=\"description\" content=\"FunGuide  -- the Internet Directory of Fun Places; Hundreds of Amusement Parks World-wide, 
Ski Resorts, Hotels, Restaurants, Golf Courses, Museums, other Attractions, Historical Facts, and . . . more! 
\">\n\n";

print "<META  name=\"keywords\" content=\"Amusement Parks, Theme Parks, Water Parks, Amusement,
Fun, Roller Coasters, Carousels, Hotels,Restaurants, Golf Courses, Museums, 
Attractions, Historical Facts, Princess Diana, Skiing, Spring Break\">\n\n";

print "<TITLE>FunGuide - the Internet Directory of Fun Places</TITLE></HEAD>";

print " <FRAMESET ROWS=\"90,*\">
        <FRAME 
        SRC=\"burst.pl\" 
        NAME=\"banner\" 
        FRAMEBORDER=yes 
        SCROLLING=no 
        NORESIZE
        >\n";

print " <FRAME 
        SRC=\"$docurl\" 
        NAME=\"FunGuide main\" 
        FRAMEBORDER=yes 
        SCROLLING=yes
        >
    </FRAMESET>\n";

print "<NOFRAMES>\n";

print "<center>$ad</center><br><br>\n\n";
print "<font color=\"#FF0000\"><b>We have optimized FunGuide for Frames Capable Browsers.</b></font><br>\n";
print "Because you do not have the latest Netscape or Internet Explorer, or have your frames option disabled, we can not automatically load documents.<br><br>\n";
print "<a href=\"$docurl\"> Click to Load Document </a><br><br>\n";
print "<a href=\"mailto:feedback\@funguide.com?subject=PROBLEM:\">Contact us if you are having problems</a><br><br>\n";

print "<center><a href=\"http://ad.linkexchange.com/$number/X483973/gotoad.map\"  target=\"new\">\n";
print "<img width=440 height=40 border=1 ismap alt=\"LinkExchange\" src=\"http://ad.linkexchange.com/$number/X483973/logoshowad?free\"></a>\n";
print "<br> <font size=1><a href=\"http://www.linkexchange.com/\"                       target=\"new\">LinkExchange Member</a></font><br>\n";

print "</center>\n";
print "</NOFRAMES>\n";
print "</HTML>";

