Errors Output
  1. Can't locate object method "new" via package "CGI" at /home/areth/public_html/highest.asp line 8, <FILE> line 14654. , /usr/local/share/perl5/Apache/ASP.pm line 1522
Debug Output
  1. Can't locate object method "new" via package "CGI" at /home/areth/public_html/highest.asp line 8, line 14654. , /usr/local/share/perl5/Apache/ASP.pm line 1522 
ASP to Perl Script 

  -: no strict;;use vars qw($Application $Session $Response $Server $Request);;
  -: #line 1 /home/areth/public_html/highest.asp
  1: ;;&Apache::ASP::WriteRef($main::Response, \('<html><title>Areth</title>
  2: '));
  -: #line 1 /home/areth/public_html/header.frag
  1: ; &Apache::ASP::WriteRef($main::Response, \('<html><title>Areth</title>
  2: <body bgcolor=#000000 fgcolor=#fefefe text=#c0c0c0 link=#d0d0d0 vlink=#8080ff>
'));
  -: #line 2 /home/areth/public_html/highest.asp
  2: ; &Apache::ASP::WriteRef($main::Response, \('
  3: <center><table width=60%>
  4: <tr><td valign=middle width="150">
  5: <td width=150 valign=top>
  6: ')); CS::NavBar('/home/areth/public_html/tablenav.dat'); ; &Apache::ASP::WriteRef($main::Response, \('<td>
  7: <center><h1>Highest Areth Characters</h1>
  8: ')); use strict; my $q=new CGI;
  9: my $dbh=CS::MakeConnect;
 10: my (@numdisp, $sth, $Counter, $name, $randnum, $race, $class, $timeon, $level, $lastlevel, $Terms, $WhereClause, $Limit, $tier, %Tier);
 11: $Tier{51}="Adept";
 12: $Tier{101}="Expert";
 13: $Tier{151}="Master";
 14: $Tier{201}="Master Adept";
 15: $Tier{251}="Grand Master";
 16: $Limit=25; $Limit=$q->param('numdisp') if($q->param('numdisp') ne '');
 17: $Limit=~s/\D//g;
 18: @numdisp=(10,25,50,100,500);
 19: ; &Apache::ASP::WriteRef($main::Response, \('<form method="get">
 20: <table>
 21: <tr><td>Race: <select name="race"><option value="">No Preference
 22: ')); $sth=$dbh->prepare("SELECT DISTINCT race FROM char_snapshot WHERE level<800000 ORDER BY race;");
 23: $sth->execute; $sth->bind_columns(\$race);
 24: while($sth->fetch) {
 25:  if($race eq $q->param('race')) { $Terms='SELECTED'; } else { $Terms=''; } ; &Apache::ASP::WriteRef($main::Response, \('
 26: <option '.($Terms).'>'.($race))); } $sth->finish; ; &Apache::ASP::WriteRef($main::Response, \('
 27: </select>
 28: </td><td>Class: <select name="class"><option value="">No Preference
 29: ')); $sth=$dbh->prepare("SELECT DISTINCT class FROM char_snapshot WHERE level<800000 ORDER BY class;");
 30: $sth->execute; my ($class); $sth->bind_columns(\$class);
 31: while($sth->fetch) { 
 32:  if($class eq $q->param('class')) { $Terms='SELECTED'; } else { $Terms=''; } ; &Apache::ASP::WriteRef($main::Response, \('
 33: <option '.($Terms).'>'.($class))); } $sth->finish; ; &Apache::ASP::WriteRef($main::Response, \('
 34: </select>
 35: </td><td>Number to show: <select name="numdisp">
 36: ')); foreach my $i (@numdisp) {
 37:  if($Limit eq $i) { $Terms='SELECTED'; }
 38:  else { $Terms=''; } ; &Apache::ASP::WriteRef($main::Response, \('<option '.($Terms).'>'.($i))); } ; &Apache::ASP::WriteRef($main::Response, \('
 39: </select></td></tr>
 40: <tr><td colspan=3>
 41: <center><input type="submit" name="action" value="Search"></center>
 42: </table>
 43: </form>
 44: ')); $Terms='';
 45: if($q->param('race') ne "")
 46:  { $Terms.=", race ".$q->param('race');   $WhereClause.=" AND race=".$dbh->quote($q->param('race')); }
 47: if($q->param('class') ne "")
 48:  { $Terms.=", class ".$q->param('class'); $WhereClause.=" AND class=".$dbh->quote($q->param('class')); }
 49: if($Terms ne '') { $Terms='('.substr($Terms, 2, length($Terms)-2).')'; }
 50: ; &Apache::ASP::WriteRef($main::Response, \('
 51: Results of your search '.($Terms).'<p>
 52: <table border><tr><th>Rank</th><th>Name</th><th>Race</th><th>Class</th><th>Tier</th><th>Level</th><th>Played</th></tr>
 53: '));
 54: $sth=CS::SelectRecs($dbh, 'char_snapshot', 'name,randnum,race,class,level,timeon', "level<800000 $WhereClause ORDER BY level DESC LIMIT $Limit", \$name, \$randnum, \$race, \$class, \$level, \$timeon);
 55: while($sth->fetch) { ++$Counter if($lastlevel ne $level);
 56: $timeon=sprintf("%02d:%02d:%02d", int($timeon/3600), int($timeon/60)%60, $timeon%60);
 57: $lastlevel=$level;
 58: $tier=int($level/1000);
 59: if($Tier{$tier}) { $tier=$Tier{$tier}; } else { $tier="Apprentice"; }
 60: if($level>51000) { $level=$level%1000; } else { $level/=1000; } ; &Apache::ASP::WriteRef($main::Response, \('
 61: <tr><td align=right>'.($Counter).'</td>
 62: <td><a href="details.asp?name='.($name).'&id='.($randnum).'">'.($name).'</a></td>
 63: <td>'.($race).'</td>
 64: <td>'.($class).'</td>
 65: <td>'.($tier).'</td>
 66: <td align="right">'.($level).'</td>
 67: <td align="right">'.($timeon).'</td>
 68: </tr>
 69: ')); } $sth->finish; $dbh->disconnect; ; &Apache::ASP::WriteRef($main::Response, \('</table></center></td></tr></table>'));
An error has occured with the Apache::ASP script just run. If you are the developer working on this script, and cannot work through this problem, please try researching it at the Apache::ASP web site, specifically the FAQ section. Failing that, check out your support options, and if necessary include this debug output with any query.