<% use vars qw($demo $title); use DemoASP; $demo = &DemoASP::new; my $gifdir = (-e '../asptitlelogo.gif') ? '..' : '../..'; %> <%=$title || $demo->{title}%> <% # if we are serving from nodeworks.com or chamas.com, then use banner if($Request->ServerVariables('HTTP_REFERER') =~ /nodeworks\.com|chamas\.com|apache-asp/ and $0 !~ /\.xml$/ ) { my $PageCount = 50 + int rand 25; %> <% } %>
Apache::ASP Powered by ModPerl & Apache Powered by Apache::ASP Links Checked by NodeWorks
<%=$title || $demo->{title}%> <% my $date = HTTP::Date::time2iso(); $date =~ s/:\d\d$//; %> <%=$date %> PST
=pod
Banner Ad
Click!
=cut