System error

error:  Can't call method "prepare" on an undefined value at /var/www/html/middleaging/ok.mhtml line 221.
context: 
... 
217:  my ($sec,$m, $h, $d, $mo, $y) = localtime;
218:  $y = $y + 1900;
219:  $mo = $mo + 1;
220:  $time = $y."-".$mo."-".$d;
221:  $sth = $dbh->prepare('select num,l_date,line,t_num from jss where url=? and portal=?');
222:  $sth->execute($a,$portalname);
223:  $ref = $sth->fetchrow_arrayref();
224:  ($year,$mot,$date) = split(/-/,$ref->[1]);
225:  $datet = &ji_date($mot);
... 
code stack:  /var/www/html/middleaging/ok.mhtml:221
raw error






























Can't call method "prepare" on an undefined value at /var/www/html/middleaging/ok.mhtml line 221.


Trace begun at /usr/lib/perl5/site_perl/5.8.3/HTML/Mason/Exceptions.pm line 131
HTML::Mason::Exceptions::rethrow_exception('Can\'t call method "prepare" on an undefined value at /var/www/html/middleaging/ok.mhtml line 221.^J') called at /var/www/html/middleaging/ok.mhtml line 221
HTML::Mason::Commands::__ANON__('a', 'Dima') called at /usr/lib/perl5/site_perl/5.8.3/HTML/Mason/Component.pm line 136
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0xaa8def4)', 'a', 'Dima') called at /usr/lib/perl5/site_perl/5.8.3/HTML/Mason/Request.pm line 1069
eval {...} at /usr/lib/perl5/site_perl/5.8.3/HTML/Mason/Request.pm line 1068
HTML::Mason::Request::comp(undef, undef, undef, 'a', 'Dima') called at /usr/lib/perl5/site_perl/5.8.3/HTML/Mason/Request.pm line 338
eval {...} at /usr/lib/perl5/site_perl/5.8.3/HTML/Mason/Request.pm line 338
eval {...} at /usr/lib/perl5/site_perl/5.8.3/HTML/Mason/Request.pm line 297
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0xa544e10)') called at /usr/lib/perl5/site_perl/5.8.3/HTML/Mason/ApacheHandler.pm line 134
eval {...} at /usr/lib/perl5/site_perl/5.8.3/HTML/Mason/ApacheHandler.pm line 134
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0xa544e10)') called at /usr/lib/perl5/site_perl/5.8.3/HTML/Mason/ApacheHandler.pm line 827
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0xa545008)', 'Apache=SCALAR(0xa529944)') called at (eval 33) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache=SCALAR(0xa529944)') called at /dev/null line 0
eval {...} at /dev/null line 0