Help for this page

Select Code to Download

Select or download this
```
if($es =~ /\b$    0.00 \b/)
{print "
```

Select or download this

sub searchcustomer {
open (HANDLE, $datafilename) or &diedatafilenotfound;
...
 if ($found == 0) {print "Sorry, no match was found<br>\n";}
 print "<a href=$ENV{REQUEST_URI}>Click Here</a> to search again