if (!open (DB, $szDbPath)) {
        print ("<H1><FONT COLOR=\"red\">Cannot open database \"$szDbPath\" for reading.</FONT></H1><BR>reason: " . $!);
        print ("</BODY></HTML>\n");
        exit (0);
    }