Beispiel #1
0
function F_GBI($p)
{
    global $db;
    $tokens = explode("|", $p);
    $sAction = $tokens[0];
    if ($sAction == "DATASETSEARCH") {
        F_LOG("Zoeken op trefwoord");
        F_STYLE();
        print "<div class=\"zoekkolom\">\n";
        print "<div class=\"broodkruimel\">\n";
        print "<a href=\"http://www.provincie.drenthe.nl\">Home</a><span class=\"tussenteken\"> </span><a href=\"index.php\">Geoportaal</a><span class=\"tussenteken\"> </span>Zoeken op trefwoord </span>\n";
        print "</div>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "<div class=\"zoeken\"><h2>Zoek naar</h2><form NAME=FRMQUERY METHOD=POST ACTION=\"?e=@GBI&p=SEARCHLIST\">";
        print "<input size=\"30\" type=\"text\" class=\"zoekbox\" name=\"KEYWORDS\"/>\n";
        print "<input type=\"submit\" class=\"zoekbutton\" value=\"zoeken\"/>\n";
        print "</div>\n";
        print "</div>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
    }
    if ($sAction == "DATASETLIST") {
        F_LOG("Alfabetisch zoeken");
        F_STYLE();
        if (count($tokens) == 2) {
            $sLetter = $tokens[1];
        } else {
            $sLetter = $tokens[2];
        }
        print "<div class=\"linkerkolom\">\n";
        if ($sLetter != "" and $sLetter != NULL) {
            if (@$_SESSION["PROVINCIE"] == TRUE) {
                $sWhere = "DATASET.DATASET_TITEL LIKE '" . $sLetter . "%' AND DATASET.TYPE = 1 OR DATASET.DATASET_TITEL LIKE '" . $sLetter . "%' AND DATASET.TYPE = 3";
            } else {
                $sWhere = "DATASET.DATASET_TITEL LIKE '" . $sLetter . "%' AND DATASET.TYPE = 1 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR DATASET.DATASET_TITEL LIKE '" . $sLetter . "%' AND DATASET.TYPE = 3 AND DATASET.VEILIGHEID = 'vrij toegankelijk'";
            }
        } else {
            if (@$_SESSION["PROVINCIE"] == TRUE) {
                $sWhere = "DATASET.DATASET_TITEL LIKE 'a%' AND DATASET.TYPE = 1 OR DATASET.DATASET_TITEL LIKE 'a%' AND DATASET.TYPE = 3";
                $sLetter = 'a';
            } else {
                $sWhere = "DATASET.DATASET_TITEL LIKE 'a%' AND DATASET.TYPE = 1 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR DATASET.DATASET_TITEL LIKE 'a%' AND DATASET.TYPE = 3 AND DATASET.VEILIGHEID = 'vrij toegankelijk'";
                $sLetter = 'a';
            }
        }
        if (@$_SESSION["PROVINCIE"] == TRUE) {
            $totaantal = F_SELECTRECORD("SELECT COUNT(*) FROM DATASET WHERE TYPE = 1 OR TYPE = 3");
        } else {
            $totaantal = F_SELECTRECORD("SELECT COUNT(*) FROM DATASET WHERE TYPE = 1 AND VEILIGHEID = 'vrij toegankelijk' OR TYPE = 3 AND VEILIGHEID = 'vrij toegankelijk'");
        }
        //$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL, DATASET.EIGENAAR FROM DATASET, TREFCODE, TREFTEXT, MEMOTABEL WHERE TREFCODE.DATACODE = DATASET.DATACODE AND TREFCODE.TREFCODE = TREFTEXT.TREFCODE AND DATASET.DATACODE = MEMOTABEL.CODE AND " . $sWhere . " ORDER BY " . $sOrder;
        $sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL, DATASET.ALT_TITEL, MEMOTABEL.TEKST, DATASET.STATUS, DATASET.TYPE, DATASET.INVOERDATUM \r\n\tFROM ((DATASET INNER JOIN MEMOTABEL ON DATASET.OMSCHRIJVING_CODE = MEMOTABEL.CODE) INNER JOIN TREFCODE ON DATASET.DATACODE = TREFCODE.DATACODE) INNER JOIN TREFTEXT \r\n\tON TREFCODE.TREFCODE = TREFTEXT.TREFCODE \r\n\tWHERE " . $sWhere . " ORDER BY DATASET.STATUS, DATASET.DATASET_TITEL";
        //WHERE " . $sWhere . " ORDER BY DATASET.STATUS, DATASET.INVOERDATUM DESC, DATASET.DATASET_TITEL";
        $sRecords = F_SELECTRECORD($sSQL);
        unset($aRecords);
        if ($sRecords != "") {
            $aRecords = explode("|", $sRecords);
        }
        $aantal = count($aRecords);
        print "<div class=\"broodkruimel\">\n";
        print "<a href=\"http://www.provincie.drenthe.nl\">Home</a><span class=\"tussenteken\"> </span><a href=\"index.php\">Geoportaal</a><span class=\"tussenteken\"> </span><a href=\"?e=@GBI&p=DATASETLIST\">Alfabetisch zoeken</a><span class=\"tussenteken\"> </span>{$sLetter} </span>\n";
        print "</div>\n";
        print "<br>\n";
        print "<div class=\"geo\">\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|a\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter A.\">A</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|b\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter B.\">B</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|c\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter C.\">C</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|d\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter D.\">D</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|e\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter E.\">E</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|f\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter F.\">F</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|g\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter G.\">G</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|h\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter H.\">H</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|i\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter I.\">I</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|j\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter J.\">J</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|k\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter K.\">K</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|l\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter L.\">L</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|m\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter M.\">M</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|n\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter N.\">N</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|o\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter O.\">O</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|p\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter P.\">P</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|q\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter Q.\">Q</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|r\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter R.\">R</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|s\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter S.\">S</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|t\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter T.\">T</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|u\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter U.\">U</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|v\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter V.\">V</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|w\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter W.\">W</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|x\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter X.\">X</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|y\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter Y.\">Y</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "<A HREF=\"?e=@GBI&p=DATASETLIST|z\" TITLE=\"Bekijk alle kaartlagen waarvan de titel begint met de letter Z.\">Z</A>\n";
        print "<span class=\"pijplijn\"> </span>\n";
        print "</div>\n";
        print "<div class=\"titel\">\n";
        print "<br>\n";
        print "<h2>{$aantal} kaartlagen van de {$totaantal} kaartlagen</h2>\n";
        print "</div>\n";
        if (count($aRecords) > 0) {
            if ($sFilterValue != "" and $sFilterValue != NULL) {
                print "<center>\n";
                print "Gevonden kaartlagen die voldoen aan uw zoekopdracht: <B>" . $sFilterValue . "</B>.<br><br>\n";
                print "</center>\n";
            }
        } else {
            if ($sFilterValue != "" and $sFilterValue != NULL) {
                print "<center>\n";
                print "Geen kaartlagen gevonden die voldoen aan uw zoekopdracht: <B>" . $sFilterValue . "</B>.<br>Wilt u opnieuw <a href=\"index.php?e=@GBI&p=DATASETSEARCH\">zoeken</a>?<br><br>";
                print "</center>\n";
            }
        }
        if (isset($aRecords)) {
            for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
                $sRecord = $aRecords[$iRecord];
                $aRecord = explode("^", $sRecord);
                if ($aRecord[4] == "historisch archief") {
                    print "<div class=\"nieuwsberichtenhist\">\n";
                    print "<div class=\"geo\">\n";
                    //print("<A class=\"extlink\" HREF=\"http://www.drenthe.info/kaarten/geoserver/geo/wms?service=WMS&version=1.1.0&request=GetMap&layers=geo:" . $aRecord[2] . "&styles=&bbox=206874.0,517761.0,265459.062,574830.0&width=512&height=498&srs=EPSG:28992&format=application/openlayers\"" . " TITLE=\"" . $aRecord[1]. "\">Bekijk kaartlaag</A>");
                    //print("<A class=\extlink\" HREF=\"http://www.drenthe.info/kaarten/geoserver/geo/wms?service=WMS&version=1.1.0&request=GetMap&layers=geo:" . $aRecord[2] . "&styles=&bbox=206874.0,517761.0,265459.062,574830.0&width=512&height=498&srs=EPSG:28992&format=application/openlayers\"" . " TITLE=\"" . $aRecord[1]. "\">Bekijk kaartlaag</A>");
                    print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\">Bekijk kaartlaag</A>";
                    //print("<a href=\"?e=@GBILEGEND&p=DATASETLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $sLetter . "|" . $aRecord[2] . "\" class=\"extlink\" title=\"Bekijk de gegevens op kaart.\" >Bekijk kaartlaag</A>\n");
                    print "</div>\n";
                    print "<br>\n";
                    print "<div class=\"nieuwsitem\">\n";
                    print "<div class=\"inhoud\"><div class=\"kop\"><A HREF='?e=@GBI&p=DATASETEDIT|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $sLetter . "|" . $aRecord[2] . "|" . "' class=\"extlink1\" title=\"Bekijk de metagegevens van de kaartlaag.\" >" . $aRecord[1] . " HISTORISCH ARCHIEF</A>\n";
                    print "</div>\n";
                } else {
                    print "<div class=\"nieuwsberichten\">\n";
                    print "<div class=\"geo\">\n";
                    //print("<A class=\"extlink\" HREF=\"http://www.drenthe.info/kaarten/geoserver/geo/wms?service=WMS&version=1.1.0&request=GetMap&layers=geo:" . $aRecord[2] . "&styles=&bbox=206874.0,517761.0,265459.062,574830.0&width=512&height=498&srs=EPSG:28992&format=application/openlayers\"" . " TITLE=\"" . $aRecord[1]. "\">Bekijk kaartlaag</A>");
                    //print("<A class=\"extlink\" HREF=\"http://www.drenthe.info/kaarten/geoserver/geo/wms?service=WMS&version=1.1.0&request=GetMap&layers=geo:" . $aRecord[2] . "&styles=&bbox=206874.0,517761.0,265459.062,574830.0&width=1200&height=600&srs=EPSG:28992&format=application/openlayers\"" . " TITLE=\"" . $aRecord[1]. "\">Bekijk kaartlaag</A>");
                    print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\">Bekijk kaartlaag</A>";
                    //print("<A HREF=\"?e=@GBILEGEND&p=DATASETLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $sLetter . "|" . $aRecord[2] . "\" title=\"Bekijk de gegevens op kaart.\" class=\"extlink\">Bekijk kaartlaag</A>\n");
                    print "</div>\n";
                    print "<br>\n";
                    print "<div class=\"nieuwsitem\">\n";
                    print "<div class=\"inhoud\"><div class=\"kop\"><A HREF='?e=@GBI&p=DATASETEDIT|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $sLetter . "|" . $aRecord[2] . "|" . "' class=\"extlink1\" title=\"Bekijk de metagegevens van de kaartlaag.\" >" . $aRecord[1] . "</A>\n";
                    print "</div>\n";
                }
                $sCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $aRecord[0]);
                $sPlaattitel = F_SELECTRECORD("SELECT ALT_TITEL FROM DATASET WHERE DATACODE = " . $aRecord[0]);
                $sImsid = explode(".", $sPlaattitel);
                $sPlaattitel = $sImsid[1];
                print "<div class=\"tekstplaat\">\n";
                //print("<A class=\"extlink\" HREF=\"http://www.drenthe.info/kaarten/geoserver/geo/wms?service=WMS&version=1.1.0&request=GetMap&layers=geo:" . $aRecord[2] . "&styles=&bbox=206874.0,517761.0,265459.062,574830.0&width=512&height=498&srs=EPSG:28992&format=application/openlayers\"" . " TITLE=\"" . $aRecord[1]. "\"><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>");
                print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\"><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>";
                //print ("<A HREF=\"?e=@GBILEGEND&p=DATASETLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $sLetter . "|" . $aRecord[2] . "\" BORDER=\"0\" class=\"extlink\" title=\"Bekijk de gegevens op kaart.\"><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>");
                print "</div>\n";
                print "<div class=\"tekst1\">\n";
                print F_GBIOMSCHRIJF("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sCode);
                print "<br><br>\n";
                print "</div>\n";
                //$sarxml = new ArcService("paros", "GDB_Geoportaal");
                //print("<div class=\"tekstthumb\">\n");
                //print ("<img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\">");
                //copy($sarxml->ImageLaag($sPlaattitel, $sarxml->minx, $sarxml->miny, $sarxml->maxx, $sarxml->maxy),'../metadata/thumbs/' . $sPlaattitel . '.jpg');
                //$fp=fopen('../metadata/thumbs/' . $sPlaattitel . '.jpg','wb');
                //fwrite($fp,$sarxml->ImageLaag($sPlaattitel, $sarxml->minx, $sarxml->miny, $sarxml->maxx, $sarxml->maxy));
                // fclose($fp);
                //	print("</div>\n");
                print "</div>\n";
                print "</div>\n";
                print "</div>\n";
            }
        }
        print "<br>\n";
        F_ENDSTYLE();
    }
    if ($sAction == "SEARCHLIST") {
        F_STYLE();
        print "<div class=\"linkerkolom\">\n";
        $sWhere = "DATASET.TYPE = 1 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR DATASET.TYPE = 3 AND DATASET.VEILIGHEID = 'vrij toegankelijk'";
        $sFilterValue = @$_POST["KEYWORDS"];
        if ($sFilterValue != "" and $sFilterValue != NULL) {
            F_LOG("Trefwoord : " . $sFilterValue);
            if (@$_SESSION["PROVINCIE"] == TRUE) {
                $sWhere = "instr(DATASET.DATASET_TITEL, '" . $sFilterValue . "') AND DATASET.TYPE = 1 OR instr(DATASET.DATASET_TITEL, '" . $sFilterValue . "') AND DATASET.TYPE = 3 OR instr(MEMOTABEL.TEKST, '" . $sFilterValue . "') AND DATASET.TYPE = 1 OR instr(MEMOTABEL.TEKST, '" . $sFilterValue . "') AND DATASET.TYPE = 3 OR instr(TREFTEXT.TREFWOORD, '" . $sFilterValue . "') AND DATASET.TYPE = 1 OR instr(TREFTEXT.TREFWOORD, '" . $sFilterValue . "') AND DATASET.TYPE = 3\n";
                $sWaarde = $sFilterValue;
            } else {
                $sWhere = "instr(DATASET.DATASET_TITEL, '" . $sFilterValue . "') AND DATASET.TYPE = 1 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR instr(DATASET.DATASET_TITEL, '" . $sFilterValue . "') AND DATASET.TYPE = 3 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR instr(MEMOTABEL.TEKST, '" . $sFilterValue . "') AND DATASET.TYPE = 1 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR instr(MEMOTABEL.TEKST, '" . $sFilterValue . "') AND DATASET.TYPE = 3 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR instr(TREFTEXT.TREFWOORD, '" . $sFilterValue . "') AND DATASET.TYPE = 1 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR instr(TREFTEXT.TREFWOORD, '" . $sFilterValue . "') AND DATASET.TYPE = 3 AND DATASET.VEILIGHEID = 'vrij toegankelijk'\n";
                $sWaarde = $sFilterValue;
            }
        }
        $sPosition = 0;
        if (count($tokens) > 1) {
            $sPosition = $tokens[1];
            if ($sPosition == 0) {
                $sWelk = "";
                $sWaarde = $tokens[3];
            } else {
                $sWelk = $tokens[2];
                $sWaarde = $tokens[3];
            }
        }
        if ($sWaarde != "") {
            if (@$_SESSION["PROVINCIE"] == TRUE) {
                $sWhere = "DATASET.DATASET_TITEL LIKE '%" . $sWaarde . "%' AND DATASET.TYPE = 1 OR DATASET.DATASET_TITEL LIKE '%" . $sWaarde . "%' AND DATASET.TYPE = 3 OR MEMOTABEL.TEKST Like '%" . $sWaarde . "%' AND DATASET.TYPE = 1 OR MEMOTABEL.TEKST LIKE '%" . $sWaarde . "%' AND DATASET.TYPE = 3 OR TREFTEXT.TREFWOORD LIKE '%" . $sWaarde . "%' AND DATASET.TYPE = 1 OR TREFTEXT.TREFWOORD LIKE '%" . $sWaarde . "%' AND DATASET.TYPE = 3\n";
            } else {
                $sWhere = "DATASET.DATASET_TITEL LIKE '%" . $sWaarde . "%' AND DATASET.TYPE = 1 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR DATASET.DATASET_TITEL LIKE '%" . $sWaarde . "%' AND DATASET.TYPE = 3 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR MEMOTABEL.TEKST LIKE '%" . $sWaarde . "%' AND DATASET.TYPE = 1 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR MEMOTABEL.TEKST LIKE '%" . $sWaarde . "%' AND DATASET.TYPE = 3 AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR TREFTEXT.TREFWOORD LIKE '%" . $sWaarde . "%' AND DATASET.TYPE = 1  AND DATASET.VEILIGHEID = 'vrij toegankelijk' OR TREFTEXT.TREFWOORD LIKE '%" . $sWaarde . "%' AND DATASET.TYPE = 3  AND DATASET.VEILIGHEID = 'vrij toegankelijk'\n";
            }
        }
        //$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL, DATASET.EIGENAAR FROM DATASET, TREFCODE, TREFTEXT, MEMOTABEL WHERE TREFCODE.DATACODE = DATASET.DATACODE AND TREFCODE.TREFCODE = TREFTEXT.TREFCODE AND DATASET.DATACODE = MEMOTABEL.CODE AND " . $sWhere . " ORDER BY " . $sOrder;
        $sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL, DATASET.ALT_TITEL, MEMOTABEL.TEKST, DATASET.STATUS, DATASET.TYPE, DATASET.INVOERDATUM \r\n\tFROM ((DATASET INNER JOIN MEMOTABEL ON DATASET.OMSCHRIJVING_CODE = MEMOTABEL.CODE) INNER JOIN TREFCODE ON DATASET.DATACODE = TREFCODE.DATACODE) INNER JOIN TREFTEXT \r\n\tON TREFCODE.TREFCODE = TREFTEXT.TREFCODE \r\n\tWHERE " . $sWhere . " ORDER BY DATASET.STATUS, DATASET.INVOERDATUM DESC, DATASET.DATASET_TITEL";
        //print ($sSQL);
        $sRecords = F_SELECTRECORD($sSQL);
        unset($aRecords);
        if ($sRecords != "") {
            $aRecords = explode("|", $sRecords);
        }
        $aantal = count($aRecords);
        print "<div class=\"broodkruimel\">\n";
        print "<a href=\"http://www.provincie.drenthe.nl\">Home</a><span class=\"tussenteken\"> </span><a href=\"index.php\">Geoportaal</a><span class=\"tussenteken\"> </span>Zoeken op trefwoord </span>\n";
        print "</div>\n";
        print "<br>\n";
        if ($Welk == "") {
            $sPositionNext = $sPosition + 8;
            $sPositionPrev = $sPosition;
        }
        if ($sWelk == "next") {
            $sPositionNext = $sPosition + 8;
            $sPositionPrev = $sPosition;
        }
        if ($sWelk == "prev") {
            $sPositionNext = $sPosition;
            $sPositionPrev = $sPosition - 8;
            if ($sPositionPrev < 0) {
                $sPositionPrev = 0;
                $sPositionNext = 8;
            }
        }
        $aantal_laag = $sPositionPrev + 1;
        if ($sPositionNext + 8 > $aantal) {
            $aantal_hoog = $aantal;
        } else {
            $aantal_hoog = $sPositionNext;
        }
        if (count($aRecords) > 0) {
            if ($sFilterValue != "" and $sFilterValue != NULL) {
                print "<div class=\"searchkop\">\n";
                print "Gevonden kaartlagen die voldoen aan uw zoekopdracht: <B>" . $sFilterValue . "</B>.<br><br>\n";
                print "</div>\n";
            } elseif ($sWaarde != "") {
                print "<div class=\"searchkop\">\n";
                print "Gevonden kaartlagen die voldoen aan uw zoekopdracht: <B>" . $sWaarde . "</B>.<br><br>\n";
                print "</div>\n";
            }
        } else {
            if ($sFilterValue != "" and $sFilterValue != NULL) {
                print "<div class=\"searchkop\">\n";
                print "Geen kaartlagen gevonden die voldoen aan uw zoekopdracht: <B>" . $sFilterValue . "</B>. <br>Wilt u opnieuw <a href=\"index.php\">zoeken</a>?<br><br>";
                print "</div>\n";
            }
        }
        if (count($aRecords) > 0) {
            if ($sPositionPrev == 0 and $aantal > 8) {
                print "<A HREF='?e=@GBI&p=SEARCHLIST|" . $sPositionNext . "|next|" . $sWaarde . "' class=\"leesverder\">Volgende</A>\n";
            } elseif ($sPositionNext + 8 > $aantal) {
                print "<A HREF='?e=@GBI&p=SEARCHLIST|" . $sPositionPrev . "|prev|" . $sWaarde . "' class=\"leesterug\">Vorige</A>\n";
            } else {
                print "<A HREF='?e=@GBI&p=SEARCHLIST|" . $sPositionPrev . "|prev|" . $sWaarde . "' class=\"leesterug\">Vorige</A><span class=\"pijplijn\"> </span><A HREF='?e=@GBI&p=SEARCHLIST|" . $sPositionNext . "|next|" . $sWaarde . "' class=\"leesverder\">Volgende</A>\n";
            }
            print "<div class=\"titel\">\n";
            print "<br>\n";
            print "<h2>Kaartlaag {$aantal_laag} tot {$aantal_hoog} van de {$aantal} kaartlagen</h2>\n";
            print "</div>\n";
            if (isset($aRecords)) {
                if (count($aRecords) > 8) {
                    if ($sPositionNext + 8 > $aantal) {
                        for ($iRecord = $sPositionPrev; $iRecord < count($aRecords); $iRecord++) {
                            $sRecord = $aRecords[$iRecord];
                            $aRecord = explode("^", $sRecord);
                            if ($aRecord[4] == "historisch archief") {
                                print "<div class=\"nieuwsberichtenhist\">\n";
                                print "<div class=\"geo\">\n";
                                //type kaart checken
                                if ($aRecord[5] == 3) {
                                    print "<A TARGET=\"_blank\" HREF=\"" . $aRecord[2] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n";
                                } else {
                                    print "<a href=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\">Bekijk kaartlaag</a>";
                                    //print("<A HREF=\"?e=@GBILEGEND&p=SEARCHLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . $sWaarde . "|&laag=geoportaal&vis=" . $aRecord[2] . "&gdb=" . $aRecord[1] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n");
                                }
                                print "</div>\n";
                                print "<br>\n";
                                print "<div class=\"nieuwsitem\">\n";
                                print "<div class=\"inhoud\"><div class=\"kop\"><A HREF='?e=@GBI&p=DATASETEDIT|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . "' class=\"extlink1\" title=\"Bekijk de metagegevens van de kaartlaag.\">" . $aRecord[1] . " HISTORISCH ARCHIEF</A>\n";
                                print "</div>\n";
                            } else {
                                print "<div class=\"nieuwsberichten\">\n";
                                print "<div class=\"geo\">\n";
                                //type kaart checken
                                if ($aRecord[5] == 3) {
                                    print "<A TARGET=\"_blank\" HREF=\"" . $aRecord[2] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n";
                                } else {
                                    print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink1\">Bekijk kaartlaag</A>";
                                    //print("<A HREF=\"?e=@GBILEGEND&p=SEARCHLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . $sWaarde . "|&laag=geoportaal&vis=" . $aRecord[2] . "&gdb=" . $aRecord[1] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n");
                                }
                                print "</div>\n";
                                print "<br>\n";
                                print "<div class=\"nieuwsitem\">\n";
                                print "<div class=\"inhoud\"><div class=\"kop\"><A HREF='?e=@GBI&p=DATASETEDIT|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . "' class=\"extlink\" title=\"Bekijk de metagegevens van de kaartlaag.\">" . $aRecord[1] . "</A>\n";
                                print "</div>\n";
                            }
                            $sCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $aRecord[0]);
                            $sPlaattitel1 = F_SELECTRECORD("SELECT ALT_TITEL FROM DATASET WHERE DATACODE = " . $aRecord[0]);
                            $sType = F_SELECTRECORD("SELECT TYPE FROM DATASET WHERE DATACODE = " . $aRecord[0]);
                            $sImsid = explode(".", $sPlaattitel1);
                            $sPlaattitel = $sImsid[1];
                            if ($sType == 3) {
                                $sPlaattitel = "TYPE3";
                            }
                            print "<div class=\"tekstplaat\">\n";
                            if ($sType == 3) {
                                print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\"><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>";
                                //print ("<A HREF=\"" . $sPlaattitel1 . "\" TARGET=\"_blank\" BORDER=\"0\" TITLE=\"Bekijk de gegevens op kaart.\" ><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>");
                            } else {
                                print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\"><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>";
                                //print ("<A HREF=\"?e=@GBILEGEND&p=DATASETLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $sLetter . "|" . $aRecord[2] . "\" BORDER=\"0\" TITLE=\"Bekijk de gegevens op kaart.\" ><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>");
                            }
                            print "</div>\n";
                            print "<div class=\"tekst1\">\n";
                            print F_GBIOMSCHRIJF("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sCode);
                            print "<br><br>\n";
                            print "</div>\n";
                            print "</div>\n";
                            print "</div>\n";
                            print "</div>\n";
                        }
                    } else {
                        for ($iRecord = $sPositionPrev; $iRecord < $sPositionNext; $iRecord++) {
                            $sRecord = $aRecords[$iRecord];
                            $aRecord = explode("^", $sRecord);
                            if ($aRecord[4] == "historisch archief") {
                                print "<div class=\"nieuwsberichtenhist\">\n";
                                print "<div class=\"geo\">\n";
                                //type kaart checken
                                if ($aRecord[5] == 3) {
                                    print "<A TARGET=\"_blank\" HREF=\"" . $aRecord[2] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n";
                                } else {
                                    print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\">Bekijk kaartlaag</A>";
                                    //print("<A HREF=\"?e=@GBILEGEND&p=SEARCHLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . $sWaarde . "|&laag=geoportaal&vis=" . $aRecord[2] . "&gdb=" . $aRecord[1] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n");
                                }
                                print "</div>\n";
                                print "<br>\n";
                                print "<div class=\"nieuwsitem\">\n";
                                print "<div class=\"inhoud\"><div class=\"kop\"><A HREF='?e=@GBI&p=DATASETEDIT|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . "' class=\"extlink1\" title=\"Bekijk de metagegevens van de kaartlaag.\">" . $aRecord[1] . " HISTORISCH ARCHIEF</A>\n";
                                print "</div>\n";
                            } else {
                                print "<div class=\"nieuwsberichten\">\n";
                                print "<div class=\"geo\">\n";
                                //type kaart checken
                                if ($aRecord[5] == 3) {
                                    print "<A TARGET=\"_blank\" HREF=\"" . $aRecord[2] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n";
                                } else {
                                    print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\">Bekijk kaartlaag</A>";
                                    //print("<A HREF=\"?e=@GBILEGEND&p=SEARCHLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . $sWaarde . "|&laag=geoportaal&vis=" . $aRecord[2] . "&gdb=" . $aRecord[1] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n");
                                }
                                print "</div>\n";
                                print "<br>\n";
                                print "<div class=\"nieuwsitem\">\n";
                                print "<div class=\"inhoud\"><div class=\"kop\"><A HREF='?e=@GBI&p=DATASETEDIT|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . "' class=\"extlink1\" title=\"Bekijk de metagegevens van de kaartlaag.\">" . $aRecord[1] . "</A>\n";
                                print "</div>\n";
                            }
                            $sCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $aRecord[0]);
                            $sPlaattitel1 = F_SELECTRECORD("SELECT ALT_TITEL FROM DATASET WHERE DATACODE = " . $aRecord[0]);
                            $sType = F_SELECTRECORD("SELECT TYPE FROM DATASET WHERE DATACODE = " . $aRecord[0]);
                            $sImsid = explode(".", $sPlaattitel1);
                            $sPlaattitel = $sImsid[1];
                            if ($sType == 3) {
                                $sPlaattitel = "TYPE3";
                            }
                            print "<div class=\"tekstplaat\">\n";
                            if ($sType == 3) {
                                print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\"><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>";
                                //print ("<A HREF=\"" . $sPlaattitel1 . "\" TARGET=\"_blank\" BORDER=\"0\" TITLE=\"Bekijk de gegevens op kaart.\" ><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>");
                            } else {
                                print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\"><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>";
                                //print ("<A HREF=\"?e=@GBILEGEND&p=DATASETLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $sLetter . "|" . $aRecord[2] . "\" BORDER=\"0\" TITLE=\"Bekijk de gegevens op kaart.\" ><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>");
                            }
                            print "</div>\n";
                            print "<div class=\"tekst1\">\n";
                            print F_GBIOMSCHRIJF("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sCode);
                            print "<br><br>\n";
                            print "</div>\n";
                            print "</div>\n";
                            print "</div>\n";
                            print "</div>\n";
                        }
                    }
                } else {
                    for ($iRecord = $sPosition; $iRecord < count($aRecords); $iRecord++) {
                        $sRecord = $aRecords[$iRecord];
                        $aRecord = explode("^", $sRecord);
                        if ($aRecord[4] == "historisch archief") {
                            print "<div class=\"nieuwsberichtenhist\">\n";
                            print "<div class=\"geo\">\n";
                            //type kaart checken
                            if ($aRecord[5] == 3) {
                                print "<A TARGET=\"_blank\" HREF=\"" . $aRecord[2] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n";
                            } else {
                                print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\">Bekijk kaartlaag</A>";
                                //print("<A HREF=\"?e=@GBILEGEND&p=SEARCHLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . $sWaarde . "|&laag=geoportaal&vis=" . $aRecord[2] . "&gdb=" . $aRecord[1] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n");
                            }
                            print "</div>\n";
                            print "<br>\n";
                            print "<div class=\"nieuwsitem\">\n";
                            print "<div class=\"inhoud\"><div class=\"kop\"><A HREF='?e=@GBI&p=DATASETEDIT|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . "' class=\"extlink1\" title=\"Bekijk de metagegevens van de kaartlaag.\">" . $aRecord[1] . " HISTORISCH ARCHIEF</A>\n";
                            print "</div>\n";
                        } else {
                            print "<div class=\"nieuwsberichten\">\n";
                            print "<div class=\"geo\">\n";
                            //type kaart checken
                            if ($aRecord[5] == 3) {
                                print "<A TARGET=\"_blank\" HREF=\"" . $aRecord[2] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n";
                            } else {
                                print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\">Bekijk kaartlaag</A>";
                                //print("<A HREF=\"?e=@GBILEGEND&p=SEARCHLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . $sWaarde . "|&laag=geoportaal&vis=" . $aRecord[2] . "&gdb=" . $aRecord[1] . "\" TITLE=\"Bekijk de gegevens op kaart.\">Bekijk kaartlaag</A>\n");
                            }
                            print "</div>\n";
                            print "<br>\n";
                            print "<div class=\"nieuwsitem\">\n";
                            print "<div class=\"inhoud\"><div class=\"kop\"><A HREF='?e=@GBI&p=DATASETEDIT|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $iRecord . "|" . $aRecord[2] . "|" . "' class=\"extlink1\" title=\"Bekijk de metagegevens van de kaartlaag.\">" . $aRecord[1] . "</A>\n";
                            print "</div>\n";
                        }
                        $sCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $aRecord[0]);
                        $sPlaattitel1 = F_SELECTRECORD("SELECT ALT_TITEL FROM DATASET WHERE DATACODE = " . $aRecord[0]);
                        $sType = F_SELECTRECORD("SELECT TYPE FROM DATASET WHERE DATACODE = " . $aRecord[0]);
                        $sImsid = explode(".", $sPlaattitel1);
                        $sPlaattitel = $sImsid[1];
                        if ($sType == 3) {
                            $sPlaattitel = "TYPE3";
                        }
                        print "<div class=\"tekstplaat\">\n";
                        if ($sType == 3) {
                            print "<A HREF=\"" . $sPlaattitel1 . "\" TARGET=\"_blank\" BORDER=\"0\" TITLE=\"Bekijk de gegevens op kaart.\" ><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>";
                        } else {
                            print "<A HREF=\"kaart.php?e=@KAART&p=" . $aRecord[2] . "\" TITLE=\"" . $aRecord[1] . "\" class=\"extlink\"><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>";
                            //print ("<A HREF=\"?e=@GBILEGEND&p=DATASETLIST|" . $aRecord[0] . "|" . $aRecord[1] . "|" . $sLetter . "|" . $aRecord[2] . "\" BORDER=\"0\" TITLE=\"Bekijk de gegevens op kaart.\" ><img src=\"../metadata/thumbs/" . $sPlaattitel . ".jpg\" style=\"border: none;\"></A>");
                        }
                        print "</div>\n";
                        print "<div class=\"tekst1\">\n";
                        print F_GBIOMSCHRIJF("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sCode);
                        print "<br><br>\n";
                        print "</div>\n";
                        print "</div>\n";
                        print "</div>\n";
                        print "</div>\n";
                    }
                }
            }
            print "<br>\n";
            if (count($aRecords) > 0) {
                if ($sPositionPrev == 0 and $aantal > 8) {
                    print "<A HREF='?e=@GBI&p=SEARCHLIST|" . $sPositionNext . "|next|" . $sWaarde . "' class=\"leesverder\">Volgende</A>\n";
                } elseif ($sPositionNext + 8 > $aantal) {
                    print "<A HREF='?e=@GBI&p=SEARCHLIST|" . $sPositionPrev . "|prev|" . $sWaarde . "' class=\"leesterug\">Vorige</A>\n";
                } else {
                    print "<A HREF='?e=@GBI&p=SEARCHLIST|" . $sPositionPrev . "|prev|" . $sWaarde . "' class=\"leesterug\">Vorige</A><span class=\"pijplijn\"> </span><A HREF='?e=@GBI&p=SEARCHLIST|" . $sPositionNext . "|next|" . $sWaarde . "' class=\"leesverder\">Volgende</A>\n";
                }
            }
        }
        F_ENDSTYLE();
    }
    if ($sAction == "DATASETEDIT") {
        //$sDatacode = "-1";
        print "<link href=\"css/metadata.css\" rel=\"stylesheet\" type=\"text/css\"/>\n";
        //print("<link href=\"css/DynamischDrenthe.css\" rel=\"stylesheet\" type=\"text/css\"/>\n");
        //print("<link href=\"css/formulier.css\" rel=\"stylesheet\" type=\"text/css\"/>\n");
        //print("<link href=\"css/verticaleNav.css\" rel=\"stylesheet\" type=\"text/css\"/>\n");
        if (count($tokens) >= 2) {
            $sDatacode = $tokens[1];
            $sKaart = $tokens[2];
            $sPosition = $tokens[3];
            $sSpatial = $tokens[4];
            $sWaarde = $tokens[5];
        }
        F_LOG("Metagegevens : " . $sKaart);
        if (@$_SESSION["GBIMUTEREN"] == TRUE) {
            if (count($tokens) > 3) {
                $_SESSION["GBIPRO"] = $tokens[2];
            } else {
                $_SESSION["GBIPRO"] = "";
            }
        } else {
            $_SESSION["GBIPRO"] = "RO";
        }
        //<A HREF=\"?e=@GBI&p=DATASETLIST|DATASET.DATACODE\">PDF gegevens</A>
        //<A HREF=\"?e=@GBI&p=DATASETLIST|DATASET.DATACODE\">XML gegevens</A>
        //<A HREF=\"?e=@GBIKAART&laag=layer1&vis=$sDatacode\">Bekijk gegevens</A>
        $sPDF = F_SELECTRECORD("SELECT ALT_TITEL FROM DATASET WHERE DATACODE = " . $sDatacode);
        //print("<div class=\"linkerkolom\">\n");
        //print("<div class=\"nieuwsberichten\">\n");
        //print("<div class=\"nieuwsitem\">\n");
        //print("<div class=\"inhoud\">\n");
        //print("<div class=\"tekst\">\n");
        print "<a href=\"../metadata/{$sPDF}.pdf\" class=\"lefturl\" target=\"_blank\" title=\"Een PDF bestand van de metadatagegevens.\">PDF gegevens</a>\n";
        print "<div class=\"metawrapper\">\n";
        print "<div class=\"lefttekst\">\n";
        print "<table WIDTH=95% cellpadding=5 CELLSPACING=\"3\">\n";
        print "<TR><TD COLSPAN=\"2\"><B>Algemeen:</B></TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Titel kaartlaag</TD><TD >\n";
        print F_GBITEXTBOX("DATASET" . "|" . "DATASET_TITEL" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Alternatieve titel</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "ALT_TITEL" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Omschrijving kaartlaag</TD><TD>\n";
        $sCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $sDatacode);
        print F_GBIMEMOBOX("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sCode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Algemene opmerking</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "OPMERKING" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Referentie datum</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "BRONDATUM" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Brondatum</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "OPBOUWDATUM" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Bronvermelding</TD><TD>\n";
        print F_GBITEXTBOX("GEOGRAFISCH" . "|" . "BRONVERMELDING" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Opbouwmethode</TD><TD>\n";
        print F_GBILISTBOXTYPE("GEOGRAFISCH" . "|" . "OPBOUWMETHODE" . "|" . "DATACODE=" . $sDatacode . "|" . "OPBOUWMETHODE");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Gebeurtenis</TD><TD>\n";
        print F_GBILISTBOXTYPE("DATASET" . "|" . "ACTIE" . "|" . "DATACODE=" . $sDatacode . "|" . "ACTIE");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Status</TD><TD>\n";
        print F_GBILISTBOXTYPE("DATASET" . "|" . "STATUS" . "|" . "DATACODE=" . $sDatacode . "|" . "STATUS");
        print "</TD></TR>\n";
        print "</table>\n";
        print "<table WIDTH=95% cellpadding=5>\n";
        print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><br></TD></TR>\n";
        print "</table>\n";
        print "<table WIDTH=95% cellpadding=5 CELLSPACING=\"3\">\n";
        print "<TR><TD COLSPAN=\"2\"><B>Inhoud:</B></TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Contactpersoon inhoud</TD><TD>\n";
        print F_GBILISTBOX("DATASET" . "|" . "CONTACTPERSOON" . "|" . "DATACODE=" . $sDatacode . "|" . "CONTACT");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Beleidsterrein</TD><TD>\n";
        print F_GBILISTBOXTYPE("DATASET" . "|" . "BELEIDSVELD" . "|" . "DATACODE=" . $sDatacode . "|" . "BELEIDSTERREIN");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Team</TD><TD>\n";
        print F_GBILISTBOXTYPE("DATASET" . "|" . "TEAM" . "|" . "DATACODE=" . $sDatacode . "|" . "TEAM");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Thema</TD><TD>\n";
        print F_GBILISTBOXTYPE("DATASET" . "|" . "THEMA" . "|" . "DATACODE=" . $sDatacode . "|" . "THEMA");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Gebruiksbeperkingen</TD><TD>\n";
        print F_GBILISTBOXTYPE("DATASET" . "|" . "GEBRUIKSBEPERKING" . "|" . "DATACODE=" . $sDatacode . "|" . "BEPERKING");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Veiligheidsrestricties</TD><TD>\n";
        print F_GBILISTBOXTYPE("DATASET" . "|" . "VEILIGHEID" . "|" . "DATACODE=" . $sDatacode . "|" . "BEPERKING");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Toegangsrestricties</TD><TD>\n";
        print F_GBILISTBOXTYPE("DATASET" . "|" . "JURIDISCH" . "|" . "DATACODE=" . $sDatacode . "|" . "JURIDISCH");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Copyright</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "COPYRIGHT" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Herzienings frequentie</TD><TD>\n";
        print F_GBILISTBOXTYPE("DATASET" . "|" . "BIJHOUDING" . "|" . "DATACODE=" . $sDatacode . "|" . "HERZIENING");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Toepassingsschaal</TD><TD>\n";
        print F_GBILISTBOXTYPE("GEOGRAFISCH" . "|" . "SCHAAL" . "|" . "DATACODE=" . $sDatacode . "|" . "SCHAAL");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Contact leverancier</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "CONTACT_LEVERANCIER" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Trefwoorden</TD><TD>\n";
        print "<table cellpadding=\"10\" width=\"100%\">\n";
        print "<TR><TD VALIGN=top></TD><TD VALIGN=top></TD></TR>\n";
        print "<TR><TD VALIGN=top>\n";
        $sTrefwoorden = F_SELECTRECORD("SELECT TREFTEXT.TREFCODE, TREFTEXT.TREFWOORD FROM TREFCODE INNER JOIN TREFTEXT ON TREFCODE.TREFCODE = TREFTEXT.TREFCODE WHERE TREFCODE.DATACODE=" . $sDatacode . " ORDER BY TREFTEXT.TREFWOORD");
        $aRecords = explode("|", $sTrefwoorden);
        for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
            $sRecord = $aRecords[$iRecord];
            $aRecord = explode("^", $sRecord);
            print $aRecord[1] . "<br>\n";
        }
        print "</TD></TR></table>\n";
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Temporele dekking (begin datum)</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "DEKKING_BEGIN" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Temporele dekking (eind datum)</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "DEKKING_EIND" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "</table>\n";
        print "<table WIDTH=95% cellpadding=5>\n";
        print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><br></TD></TR>\n";
        print "</table>\n";
        print "<table WIDTH=95% cellpadding=5 CELLSPACING=\"3\">\n";
        print "<TR><TD COLSPAN=\"2\"><B>Items:</B></TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Standaarditem</TD><TD>\n";
        print F_GBITEXTBOX("GEOGRAFISCH" . "|" . "STD_ITEM" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        $sItem = F_SELECTRECORD("SELECT STD_ITEM FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode);
        $sCode = F_SELECTRECORD("SELECT ITEMDEFINITIE FROM ITEMS WHERE ITEMS.DATACODE = " . $sDatacode . " AND ITEMS.ITEMNAAM = '" . $sItem . "'");
        print "<TR><TD WIDTH=25% VALIGN=top>Items</TD><TD>\n";
        $sRecords = F_SELECTRECORD("SELECT VOLGNR, ITEMNAAM, ITEMDEFINITIE FROM ITEMS WHERE DATACODE=" . $sDatacode . " ORDER BY VOLGNR");
        unset($aRecords);
        if ($sRecords != "") {
            $aRecords = explode("|", $sRecords);
        }
        print "<table WIDTH=100% cellpadding=3>\n";
        print "<TR><TD>Volgnummer</TD><TD>Kolomnaam</TD><TD>Kolomdefinitie</TD></TR>\n";
        if (isset($aRecords)) {
            for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
                $sRecord = $aRecords[$iRecord];
                $aRecord = explode("^", $sRecord);
                $sVolgnr = $aRecord[0];
                $sKolomnaam = $aRecord[1];
                $sKolomdef = $aRecord[2];
                print "<TR>\n";
                print "<TD VALIGN=top>" . F_GBITEXTBOX("ITEMS" . "|" . "VOLGNR" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode) . "</TD><TD VALIGN=top>" . F_GBITEXTBOX("ITEMS" . "|" . "ITEMNAAM" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode) . "</TD><TD VALIGN=top>" . F_GBITEXTBOX("ITEMS" . "|" . "ITEMDEFINITIE" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode) . "</TD><TD>\n";
                if (@$_SESSION["GBIPRO"] == "") {
                    print "<A HREF='#' ONCLICK=\"execserver('?e=@GBIEXEC&p=DELETE" . "|" . "ITEMS" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode . "');\">";
                    print "<IMG SRC='images\\wissen1.png' ALT='Verwijderen' BORDER=0 HEIGHT=20 WIDTH=20></A>\n";
                }
                print "</TD>\n";
                print "</TR>\n";
                print "</TR>\n";
            }
        }
        if (@$_SESSION["GBIPRO"] == "") {
            print "<TR><TD>\n";
            print "<A HREF='#' ONCLICK=" . "\"" . "execserver('?e=@GBIEXEC&p=INSERT" . "|" . "ITEMS" . "|" . "DATACODE" . "|" . $sDatacode . "'); document.location.reload();" . "\"" . ">\n";
            print "<IMG SRC='images\\maak.png' ALT='Toevoegen' BORDER=0 HEIGHT=20 WIDTH=20></A>\n";
            print "</TD><TD></TD><TD></TD><TD></TD></TR>\n";
        }
        print "</table>\n";
        print "</TD></TR>\n";
        print "</table>\n";
        print "<table WIDTH=95% cellpadding=5>\n";
        print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><br></TD></TR>\n";
        print "</table>\n";
        print "<table WIDTH=95% cellpadding=5 CELLSPACING=\"3\">\n";
        print "<TR><TD COLSPAN=\"2\"><B>Metadata:</B></TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Contactpersoon metadata</TD><TD >\n";
        print F_GBILISTBOXMETA("DATASET" . "|" . "METAPERSOON" . "|" . "DATACODE=" . $sDatacode . "|" . "CONTACT");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Metadata datum</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "INVOERDATUM" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Taal kaartlaag</TD><TD>\n";
        print F_GBITEXTBOXVAST("DATASET" . "|" . "TAAL" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Karakterset</TD><TD>\n";
        print F_GBITEXTBOXVAST("DATASET" . "|" . "KARAKTERSET" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Metadatastandaard</TD><TD>\n";
        print F_GBITEXTBOXVAST("DATASET" . "|" . "METADATASTD" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Versie metadatastandaard</TD><TD>\n";
        print F_GBITEXTBOXVAST("DATASET" . "|" . "VERSIE_METASTD" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Code referentiesysteem</TD><TD>\n";
        print F_GBITEXTBOXVAST("DATASET" . "|" . "CODE_REF" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Organisatie referentiesysteem</TD><TD>\n";
        print F_GBITEXTBOXVAST("DATASET" . "|" . "ORG_NAMESPACE" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Contactpersoon ditributie</TD><TD>\n";
        print F_GBILISTBOXGEO("DATASET" . "|" . "GEOLOKET" . "|" . "DATACODE=" . $sDatacode . "|" . "CONTACT");
        print "</TD></TR>\n";
        print "</table>\n";
        print "<table WIDTH=95% cellpadding=5>\n";
        print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><br></TD></TR>\n";
        print "</table>\n";
        print "<table WIDTH=95% cellpadding=5 CELLSPACING=\"3\">\n";
        print "<TR><TD COLSPAN=\"2\"><B>Specifiek:</B></TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Geografisch gebied</TD><TD>\n";
        print F_GBILISTBOXTYPE("GEOGRAFISCH" . "|" . "DEELGEBIED" . "|" . "DATACODE=" . $sDatacode . "|" . "GEBIED");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Aanvullende informatie</TD><TD>\n";
        print F_GBIMEMOBOX("DATASET" . "|" . "AANVUL_INFO" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Ruimtelijk schema</TD><TD>\n";
        print F_GBILISTBOXTYPE("DATASET" . "|" . "RSCHEMA" . "|" . "DATACODE=" . $sDatacode . "|" . "RSCHEMA");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Bestandsnaam</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "NAAM" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Fysieke locatie</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "FYSIEKE_LOCATIE" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Datatype</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "DATATYPE" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Geometrie</TD><TD>\n";
        print F_GBITEXTBOX("GEOGRAFISCH" . "|" . "GEOMETRIE" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Nauwkeurigheid</TD><TD>\n";
        print F_GBITEXTBOX("GEOGRAFISCH" . "|" . "POS_NAUWKEURIGHEID" . "|" . "DATACODE=" . $sDatacode);
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Hi&euml;rarchieniveau</TD><TD>\n";
        print F_GBITEXTBOX("DATASET" . "|" . "KWALITEIT_BESCH" . "|" . "DATACODE=" . $sDatacode . "|" . "SCOPECODE");
        print "</TD></TR>\n";
        $sGebied = F_SELECTRECORD("SELECT DEELGEBIED FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode);
        print "<TR><TD WIDTH=25% VALIGN=top>Minimale x-co&ouml;rdinaat</TD><TD>\n";
        print F_GBITEXTBOX("GEBIED" . "|" . "MIN_X" . "|" . "GEBIED='" . $sGebied . "'");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Maximale x-co&ouml;rdinaat</TD><TD>\n";
        print F_GBITEXTBOX("GEBIED" . "|" . "MAX_X" . "|" . "GEBIED='" . $sGebied . "'");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Minimale y-co&ouml;rdinaat</TD><TD>\n";
        print F_GBITEXTBOX("GEBIED" . "|" . "MIN_Y" . "|" . "GEBIED='" . $sGebied . "'");
        print "</TD></TR>\n";
        print "<TR><TD WIDTH=25% VALIGN=top>Maximale y-co&ouml;rdinaat</TD><TD>\n";
        print F_GBITEXTBOX("GEBIED" . "|" . "MAX_Y" . "|" . "GEBIED='" . $sGebied . "'");
        print "</TD></TR>\n";
        print "</table>\n";
        print "</center>\n";
        print "</div>\n";
        print "</div>\n";
        print "<br>\n";
    }
    if ($sAction == "MAAKKAART") {
        F_LOG("Maak een kaart");
        F_STYLE();
        print "<Script Language=\"JavaScript\">";
        print "function laadkaart() {";
        print "waarde = document.forms[0]['kaart'].value;";
        print "url = 'http://www.drenthe.info/kaarten/website/geoportaal/kaart.php?e=@KAART&title=Geoportaal | Provincie Drenthe&p=' + waarde;";
        //print ("$(\".extlink\").trigger('click');\n");
        print "\$.fancybox({\n";
        print "'href' : url,\n";
        //print("'autoDimensions'	: false,\n");
        print "'width'         \t\t: '90%',\n";
        print "'height'        \t\t: '90%',\n";
        print "'transitionIn'\t\t: 'none',\n";
        print "'transitionOut'\t\t: 'none',\n";
        print "'type' : 'iframe'\n";
        //print("'href' : 'http://www.drenthe.nl'\n");
        print "});\n";
        print "return false;\n";
        //print ("('body').append('<a class=\"extlink\" href=url></a>');");
        //print ("var load = window.open (url,'', 'left=0,top=0');" );
        //print ("var load = window.open('http://www.google.com','','scrollbars=no,menubar=no,height=600,width=800,resizable=yes,toolbar=no,location=no,status=no');");
        print "}";
        print "</Script>";
        print "<script type=\"text/javascript\" src=\"js/selectbox.js\"></script>\n";
        print "<div class=\"linkerkolom\">\n";
        print "<div class=\"broodkruimel\">\n";
        print "<a href=\"http://www.provincie.drenthe.nl\">Home</a><span class=\"tussenteken\"> </span><a href=\"index.php\">Geoportaal</a><span class=\"tussenteken\"> </span>Maak een kaart";
        print "</div>\n";
        print "<br>\n";
        print "<br>\n";
        print "<h2>MAAK EEN KAART</h2>\n";
        print "<div class=\"nieuwsberichten\">\n";
        print "<div class=\"nieuwsitem\">\n";
        print "<br>\n";
        print "<div class=\"inhoud\">\n";
        print "<div class=\"tekst1\">\n";
        print "Selecteer een kaartlaag en druk op de knop toevoegen. Doe dit voor alle kaartlagen die u wilt zien.<br>\n";
        print "Druk nu op de knop <STRONG>Maak een Kaart</STRONG> om uw kaart te maken.\n";
        print "</div>\n";
        print "</div>\n";
        //print("<div class=\"formulier\">\n");
        print "<br>\n";
        print "<br>\n";
        print "<div class=\"invoer\">\n";
        print "<FORM METHOD=POST ACTION=\"kaart.php?e=@KAART&p=" . @$_POST["KAART"] . "\">";
        //@$_POST["KAART"];
        //print("<FORM METHOD=POST ACTION=\"?e=@GBILEGENDKAART\">\n");
        print "<table cellpadding=\"0\" width=\"100%\">\n";
        print "<TR><TD VALIGN=top></TD><TD VALIGN=top></TD><TD VALIGN=top></TD></TR>\n";
        print "<TR><TD VALIGN=top WIDTH=40%>\n";
        if (@$_SESSION["PROVINCIE"] == TRUE) {
            $sDatasets = F_SELECTRECORD("SELECT ALT_TITEL, DATASET_TITEL FROM DATASET WHERE TYPE = 1 ORDER BY DATASET_TITEL");
        } else {
            $sDatasets = F_SELECTRECORD("SELECT ALT_TITEL, DATASET_TITEL FROM DATASET WHERE TYPE = 1 AND VEILIGHEID = 'vrij toegankelijk' ORDER BY DATASET_TITEL");
        }
        $aRecords = explode("|", $sDatasets);
        print "<SELECT NAME=\"list1\" SIZE=5 ONDBLCLICK=\"moveSelectedOptions(this.form['list1'],this.form['list2'],true)\">\n";
        for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
            $sRecord = $aRecords[$iRecord];
            $aRecord = explode("^", $sRecord);
            print "<OPTION VALUE=" . "\"" . $aRecord[0] . ";" . $aRecord[1] . "\"" . ">" . $aRecord[1] . "</OPTION>\n";
        }
        print "</SELECT>\n";
        print "</TD>";
        print "<TD ALIGN=\"center\" WIDTH=20% ID=\"kopnav\">";
        print "<A HREF=\"#\" onClick=\"moveSelectedOptions(document.forms[0]['list1'],document.forms[0]['list2'],false);return false;\" class=\"leesverder\">Toevoegen</A><br><br>";
        print "<A HREF=\\#\" onClick=\"moveSelectedOptions(document.forms[0]['list2'],document.forms[0]['list1'],false); return false;\" class=\"leesterug\">Verwijderen</A><br><br>";
        print "</TD>";
        print "<TD VALIGN=top WIDTH=40%>\n";
        print "<SELECT TYPE=\"TEXT\" NAME=\"list2\" SIZE=5 onDblClick=\"moveSelectedOptions(this.form['list2'],this.form['list1'],true)\">";
        print "</SELECT>";
        //print("<SELECT STYLE=" . "\"" . "{width: 300px; height: 500px; font-family: Georgia, Times, serif;}" . "\"" . " NAME=" . "'PVVPS2'" . " SIZE=5 MULTIPLE ONDBLCLICK=" . "\"" . "if(this.selectedIndex >=0)  { var optObj = document.createElement('option'); optObj.text=this(selectedIndex).text; optObj.value=this(selectedIndex).value; PVVPS1.options.add(optObj); this.remove(this.selectedIndex);  } " . "\"" . ">\n");
        //print("</SELECT>\n");
        print "</TD></TR></table>\n";
        print "<br>\n";
        print "<br>\n";
        print "&nbsp;&nbsp;<INPUT TYPE=\"text\" STYLE=\"font-family: Georgia, Times, serif; width: 300px; visibility:hidden\" WIDTH=\"300px\"NAME=\"kaart\" VALUE=\"\">";
        print "</div>\n";
        print "<div class=\"knoppen\">\n";
        //print("<LI>Zoeken naar&nbsp;&nbsp;<INPUT SIZE=30 TYPE=TEXT NAME='KEYWORDS'>\n");
        //print("&nbsp;&nbsp;<input id=submit type=submit value=Zoek name=submit></input>\n");
        //print ("<A HREF=\"javascript:laadkaart();\">Maak een kaart</A>");
        print "&nbsp;&nbsp;<input type=button value='Maak een Kaart' onClick='laadkaart();'></input>\n";
        print "</FORM>\n";
        print "</div>\n";
        print "</div>\n";
        print "</div>\n";
        print "</div>\n";
        //print("</div>\n");
        print "<br>\n";
        F_ENDSTYLE();
    }
    if ($sAction == "AFDRUK") {
        print "<br><br><br>\n";
        print "<center>\n";
        print "<table BORDER=\"0\" CELLSPACING=\"10\">\n";
        print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" class=\"kopbegin\">\n";
        print "<center>Afdrukopties</center>\n";
        print "</TD></TR></table></center>\n";
        print "<br>\n";
        print "<center>\n";
        print "<table BORDER=\"0\" CELLSPACING=\"10\">\n";
        print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
        if (@$_SESSION["GBIMUTEREN"] == TRUE) {
            print "<LI><A HREF='?e=@PRINT&p=TOTAL'>PDF met alle kaartlagen</A><br><br>\n";
            print "<FORM NAME=FRMCOPY METHOD=POST ACTION=\"?e=@PRINT&p=SUB\">\n";
            print "<LI>Selecteer een dataset &nbsp;&nbsp;<INPUT SIZE=20 TYPE=TEXT NAME='COPY'>\n";
            print "&nbsp;&nbsp;<input id=submit type=submit value=Kopieëren name=submit></input>\n";
            print "</FORM>\n";
        }
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "<br>\n";
        print "</TD></TR></table>\n";
        print "</center>\n";
    }
    if ($sAction == "ADMIN") {
        print "<br><br><br>\n";
        print "<center>\n";
        print "<table BORDER=\"0\" CELLSPACING=\"10\">\n";
        print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"800px\" class=\"kopbegin\">\n";
        print "<center>Administratieve taken</center>\n";
        print "</TD></TR></table></center>\n";
        print "<br>\n";
    }
}
Beispiel #2
0
function F_GBI($p)
{
    //global $DBCON;
    global $db, $dsn;
    $tokens = explode("|", $p);
    $sAction = $tokens[0];
    F_STYLE();
    if (@$_SESSION["GBIMUTEREN"] == TRUE) {
        if ($sAction == "CREATETREFWOORD") {
            $sFilterValueTref = @$_POST["NEWTREF"];
            if ($sFilterValueTref != "" and $sFilterValueTref != NULL) {
                print "<div id=\"nav_path\">\n";
                print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Toevoegen trefwoord </span>\n";
                print "</div>\n";
                print "<BR><BR><BR>\n";
                print "<CENTER>\n";
                print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
                print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
                print "<CENTER>Toevoegen trefwoord</CENTER>\n";
                print "</TD></TR></TABLE></CENTER>\n";
                print "<BR>\n";
                print "<CENTER>\n";
                print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
                print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
                $sMax = F_SELECTRECORD("SELECT MAX(TREFCODE) FROM TREFTEXT");
                $sMax = $sMax + 1;
                F_CREATERECORD("INSERT INTO TREFTEXT (TREFCODE, TREFWOORD) VALUES ('" . $sMax . "', '" . $sFilterValueTref . "')");
                print "Trefwoord " . $sFilterValueTref . " met succes toegevoegd.<BR>";
                print "<A HREF='?e=@GBI&p=ADMIN'>Terug naar administratieve taken</A>";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "</TD></TR></TABLE>\n";
                print "</CENTER>\n";
            }
        }
        if ($sAction == "DELETEDATASET") {
            if (count($tokens) >= 2) {
                $sDatacode = $tokens[1];
            }
            print "<div id=\"nav_path\">\n";
            print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Verwijderen dataset </span>\n";
            print "</div>\n";
            print "<BR><BR><BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
            print "<CENTER>Verwijderen dataset</CENTER>\n";
            print "</TD></TR></TABLE></CENTER>\n";
            print "<BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
            $sNaam = F_SELECTRECORD("SELECT DATASET_TITEL FROM DATASET WHERE DATACODE = " . $sDatacode);
            $sOmCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $sDatacode);
            $sType = F_SELECTRECORD("SELECT TYPE FROM DATASET WHERE DATACODE = " . $sDatacode);
            F_DELETERECORD("DELETE FROM DATASET WHERE DATACODE = " . $sDatacode);
            if ($sType == 1) {
                F_DELETERECORD("DELETE FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode);
            }
            F_DELETERECORD("DELETE FROM MEMOTABEL WHERE CODE = " . $sOmCode);
            if ($sType == 1) {
                $sSQL = "SELECT DOMEIN FROM ITEMS WHERE DATACODE = " . $sDatacode;
                unset($aRecords);
                $sRecords = F_SELECTRECORD($sSQL);
                $aRecords = explode("|", $sRecords);
                for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
                    $sRecord = $aRecords[$iRecord];
                    $aRecord = explode("^", $sRecord);
                    F_DELETERECORD("DELETE FROM MEMOTABEL WHERE CODE = " . $aRecord[0]);
                }
                F_DELETERECORD("DELETE FROM ITEMS WHERE DATACODE = " . $sDatacode);
            }
            F_DELETERECORD("DELETE FROM TREFCODE WHERE DATACODE = " . $sDatacode);
            print "Dataset " . $sNaam . " met succes verwijderd.<BR>";
            print "<A HREF='?e=@GBI&p=DATASETLIST|DATASET.DATASET_TITEL'>Terug naar lijst met datasets</A>";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "</TD></TR></TABLE>\n";
            print "</CENTER>\n";
        }
        if ($sAction == "THUMBNAIL") {
            if (count($tokens) >= 2) {
                $sDatacode = $tokens[1];
            }
            print "<div id=\"nav_path\">\n";
            print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Maken van thumbnail dataset </span>\n";
            print "</div>\n";
            print "<BR><BR><BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
            print "<CENTER>Maken van thumbnail dataset</CENTER>\n";
            print "</TD></TR></TABLE></CENTER>\n";
            print "<BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
            $sAlttitel = F_SELECTRECORD("SELECT ALT_TITEL FROM DATASET WHERE DATACODE = " . $sDatacode);
            $sImsid = explode(".", $sAlttitel);
            $sAlttitel = $sImsid[1];
            $sarxml = new ArcService("paros", "GDB_Geoportaal");
            copy($sarxml->ImageLaag($sAlttitel), '../metadata/thumbs/' . $sAlttitel . '.jpg');
            copy($sarxml->Legend($sAlttitel), '../metadata/legenda/' . $sAlttitel . '.jpg');
            print "Thumbnail van dataset " . $sAlttitel . " met succes aangemaakt.<BR>";
            print "<A HREF='?e=@GBI&p=DATASETLIST|DATASET.DATASET_TITEL'>Terug naar lijst met datasets</A>";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "</TD></TR></TABLE>\n";
            print "</CENTER>\n";
        }
        if ($sAction == "CREATEDATASET") {
            $sFilterValueNew = @$_POST["NEW"];
            $sFilterValueSNew = @$_POST["SNEW"];
            $sFilterValueCopy = @$_POST["COPY"];
            $sFilterValueNCopy = @$_POST["NCOPY"];
            if ($sFilterValueNew != "" and $sFilterValueNew != NULL and $sFilterValueSNew != "" and $sFilterValueSNew != NULL) {
                print "<div id=\"nav_path\">\n";
                print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Dataset aanmaken </span>\n";
                print "</div>\n";
                print "<BR><BR><BR>\n";
                print "<CENTER>\n";
                print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
                print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
                print "<CENTER>Dataset aanmaken</CENTER>\n";
                print "</TD></TR></TABLE></CENTER>\n";
                print "<BR>\n";
                print "<CENTER>\n";
                print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
                print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
                $sMax = F_SELECTRECORD("SELECT MAX(DATACODE) FROM DATASET");
                $sMax = $sMax + 1;
                $sMaxTekst = F_SELECTRECORD("SELECT MAX(CODE) FROM MEMOTABEL");
                $sMaxTekst = $sMaxTekst + 1;
                if ($sFilterValueSNew == "Dataset") {
                    $sSoortType = 1;
                } elseif ($sFilterValueSNew == "CD/DVD") {
                    $sSoortType = 2;
                } else {
                    $sSoortType = 3;
                }
                //genereren van fileidentifier UUID (ISO nr. 207)
                $sha1 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, $sFilterValueNew, 'www.drenthe.info');
                //generenen van bronidentifier UUID (ISO nr. 2)
                $sha2 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, 'provincie drenthe', 'www.drenthe.info');
                F_CREATERECORD("INSERT INTO DATASET (DATACODE, DATASET_TITEL, OMSCHRIJVING_CODE, TYPE, TAAL, KARAKTERSET, METADATASTD, VERSIE_METASTD, CODE_REF, ORG_NAMESPACE, UUIDBRON, UUID) VALUES ('" . $sMax . "', '" . $sFilterValueNew . "', '" . $sMaxTekst . "', '" . $sSoortType . "', 'dut', 'utf8', 'ISO 19115', 'Nederlandse metadata profiel op ISO 19115 voor geografie 1.2', '28992', 'EPSG', '" . $sha2 . "', '" . $sha1 . "')");
                if ($sSoortType == 1) {
                    F_CREATERECORD("INSERT INTO GEOGRAFISCH (DATACODE) VALUES ('" . $sMax . "')");
                }
                F_CREATERECORD("INSERT INTO MEMOTABEL (CODE) VALUES ('" . $sMaxTekst . "')");
                $sMaxTekst = $sMaxTekst + 1;
                if ($sSoortType == 1) {
                    F_CREATERECORD("INSERT INTO ITEMS (DATACODE, VOLGNR, DOMEIN) VALUES ('" . $sMax . "', '1', '" . $sMaxTekst . "')");
                    F_CREATERECORD("INSERT INTO MEMOTABEL (CODE) VALUES ('" . $sMaxTekst . "')");
                }
                print "Dataset " . $sFilterValueNew . " met succes aangemaakt.<BR>";
                print "<A HREF='?e=@GBI&p=DATASETEDIT|" . $sMax . "'>Klik hier om de metagegevens van de dataset te bewerken</A>";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "</TD></TR></TABLE>\n";
                print "</CENTER>\n";
            }
            if ($sFilterValueCopy != "" and $sFilterValueCopy != NULL and $sFilterValueNCopy != "" and $sFilterValueNCopy != NULL) {
                print "<div id=\"nav_path\">\n";
                print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Dataset kopie&#235;ren </span>\n";
                print "</div>\n";
                print "<BR><BR><BR>\n";
                print "<CENTER>\n";
                print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
                print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
                print "<CENTER>Dataset kopie&#235;ren</CENTER>\n";
                print "</TD></TR></TABLE></CENTER>\n";
                print "<BR>\n";
                print "<CENTER>\n";
                print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
                print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
                $sMax = F_SELECTRECORD("SELECT MAX(DATACODE) FROM DATASET");
                $sMax = $sMax + 1;
                $sMaxTekst = F_SELECTRECORD("SELECT MAX(CODE) FROM MEMOTABEL");
                $sMaxTekst = $sMaxTekst + 1;
                $sType = F_SELECTRECORD("SELECT TYPE FROM DATASET WHERE DATACODE = " . $sFilterValueCopy);
                if ($sType == 1) {
                    $sSQL = "SELECT a.ORGANISATIECODE, a.ALT_TITEL, a.NAAM, a.FYSIEKE_LOCATIE, a.EIGENAAR, a.CONTACTPERSOON, a.METAPERSOON, a.GEOLOKET, a.BELEIDSVELD, a.TEAM, a.INVOERDATUM, a.GROUPCODE, a.EDITGROUP, a.BITMAP, a.RSCHEMA, a.DATATYPE, a.TYPE, a.GEBRUIKSBEPERKING, a.VEILIGHEID, a.COPYRIGHT, a.STATUS, a.CONTACT_LEVERANCIER, a.BRONDATUM, a.OPBOUWDATUM, a.ACTIE, a.BIJHOUDING, a.OPMERKING, a.THEMA, a.TAAL, a.KARAKTERSET, a.AANVUL_INFO, a.KWALITEIT_BESCH, a.JURIDISCH, a.METADATASTD, a.VERSIE_METASTD, a.CODE_REF, a.ORG_NAMESPACE, a.DEKKING_BEGIN, a.DEKKING_EIND, b.SCHAAL, b.BRONVERMELDING, b.OPBOUWMETHODE, b.DEELGEBIED, b.LEGENDA_FILE, b.GEOMETRIE, b.POS_NAUWKEURIGHEID, b.MINSCHAAL, b.MAXSCHAAL, b.STD_ITEM, c.TEKST FROM DATASET a, GEOGRAFISCH b, MEMOTABEL c WHERE a.OMSCHRIJVING_CODE = c.CODE AND a.DATACODE = b.DATACODE AND a.DATACODE = " . $sFilterValueCopy;
                    unset($aRecords);
                    $sRecords = F_SELECTRECORD($sSQL);
                    if ($sRecords != "") {
                        $aRecords = explode("^", $sRecords);
                        if ($aRecords[37] == "") {
                            $aRecords[37] = '1980-1-1';
                        }
                        if ($aRecords[38] == "") {
                            $aRecords[38] = '1980-1-1';
                        }
                        //genereren van fileidentifier UUID (ISO nr. 2)
                        $sha1 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, $sFilterValueNCopy, 'www.drenthe.info');
                        //generenen van bronidentifier UUID (ISO nr. 2)
                        $sha2 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, 'provincie drenthe', 'www.drenthe.info');
                        $sSQL = "INSERT INTO DATASET (DATACODE, ORGANISATIECODE, DATASET_TITEL, ALT_TITEL, OMSCHRIJVING_CODE, NAAM, FYSIEKE_LOCATIE, EIGENAAR, CONTACTPERSOON, METAPERSOON, GEOLOKET, BELEIDSVELD, TEAM, INVOERDATUM, GROUPCODE, EDITGROUP, BITMAP, RSCHEMA, DATATYPE, TYPE, GEBRUIKSBEPERKING, VEILIGHEID, COPYRIGHT, STATUS, CONTACT_LEVERANCIER, BRONDATUM, OPBOUWDATUM, ACTIE, BIJHOUDING, OPMERKING, THEMA, TAAL, KARAKTERSET, AANVUL_INFO, KWALITEIT_BESCH, JURIDISCH, METADATASTD, VERSIE_METASTD, CODE_REF, ORG_NAMESPACE, DEKKING_BEGIN, DEKKING_EIND, UUIDBRON, UUID) VALUES ('" . $sMax . "', '" . $aRecords[0] . "', '" . $sFilterValueNCopy . "', '" . $aRecords[1] . "', '" . $sMaxTekst . "', '" . $aRecords[2] . "', '" . $aRecords[3] . "', '" . $aRecords[4] . "', '" . $aRecords[5] . "', '" . $aRecords[6] . "', '" . $aRecords[7] . "', '" . $aRecords[8] . "', '" . $aRecords[9] . "', '" . $aRecords[10] . "', '" . $aRecords[11] . "', '" . $aRecords[12] . "', '" . $aRecords[13] . "', '" . $aRecords[14] . "', '" . $aRecords[15] . "', '" . $aRecords[16] . "', '" . $aRecords[17] . "', '" . $aRecords[18] . "', '" . $aRecords[19] . "', '" . $aRecords[20] . "', '" . $aRecords[21] . "', '" . $aRecords[22] . "', '" . $aRecords[23] . "', '" . $aRecords[24] . "', '" . $aRecords[25] . "', '" . $aRecords[26] . "', '" . $aRecords[27] . "', '" . $aRecords[28] . "', '" . $aRecords[29] . "', '" . $aRecords[30] . "', '" . $aRecords[31] . "', '" . $aRecords[32] . "', '" . $aRecords[33] . "', '" . $aRecords[34] . "', '" . $aRecords[35] . "', '" . $aRecords[36] . "', '" . $aRecords[37] . "', '" . $aRecords[38] . "', '" . $sha2 . "', '" . $sha1 . "')";
                        F_CREATERECORD($sSQL);
                        if ($aRecords[46] == "") {
                            $aRecords[46] = 0;
                        }
                        if ($aRecords[47] == "") {
                            $aRecords[47] = 0;
                        }
                        if ($aRecords[16] == "1") {
                            $sSQL = "INSERT INTO GEOGRAFISCH (DATACODE, SCHAAL, BRONVERMELDING, OPBOUWMETHODE, DEELGEBIED, LEGENDA_FILE, GEOMETRIE, POS_NAUWKEURIGHEID, MINSCHAAL, MAXSCHAAL,  STD_ITEM) VALUES ('" . $sMax . "', '" . $aRecords[39] . "', '" . $aRecords[40] . "', '" . $aRecords[41] . "', '" . $aRecords[42] . "', '" . $aRecords[43] . "', '" . $aRecords[44] . "', '" . $aRecords[45] . "', '" . $aRecords[46] . "', '" . $aRecords[47] . "', '" . $aRecords[48] . "')";
                            F_CREATERECORD($sSQL);
                        }
                        $sSQL = "INSERT INTO MEMOTABEL (CODE, TEKST) VALUES (" . $sMaxTekst . ", '" . $aRecords[49] . "')";
                        F_CREATERECORD($sSQL);
                        if ($aRecords[16] == "1") {
                            $sSQL = "SELECT VOLGNR, ITEMNAAM, ITEMDEFINITIE, EENHEID, DOMEIN, CDF_FILE FROM ITEMS WHERE DATACODE = " . $sFilterValueCopy . " ORDER BY VOLGNR";
                            unset($bRecords);
                            $sbRecords = F_SELECTRECORD($sSQL);
                            $bRecords = explode("|", $sbRecords);
                            for ($ibRecord = 0; $ibRecord < count($bRecords); $ibRecord++) {
                                $sbRecord = $bRecords[$ibRecord];
                                $bRecord = explode("^", $sbRecord);
                                $sMaxTekst = $sMaxTekst + 1;
                                $sSQL = "INSERT INTO ITEMS (DATACODE, VOLGNR, ITEMNAAM, ITEMDEFINITIE, EENHEID, DOMEIN, CDF_FILE) VALUES ('" . $sMax . "', '" . $bRecord[0] . "', '" . $bRecord[1] . "', '" . $bRecord[2] . "', '" . $bRecord[3] . "', '" . $sMaxTekst . "', '" . $bRecord[5] . "')";
                                F_CREATERECORD($sSQL);
                                F_CREATERECORD("INSERT INTO MEMOTABEL (CODE) VALUES ('" . $sMaxTekst . "')");
                            }
                        }
                        if ($aRecords[16] == "1") {
                            $sSQL = "SELECT TREFCODE FROM TREFCODE WHERE DATACODE = " . $sFilterValueCopy;
                            unset($bRecords);
                            $sbRecords = F_SELECTRECORD($sSQL);
                            $bRecords = explode("|", $sbRecords);
                            for ($ibRecord = 0; $ibRecord < count($bRecords); $ibRecord++) {
                                $sbRecord = $bRecords[$ibRecord];
                                $bRecord = explode("^", $sbRecord);
                                $sSQL = "INSERT INTO TREFCODE (DATACODE, TREFCODE) VALUES (" . $sMax . ", " . $bRecord[0] . ")";
                                F_CREATERECORD($sSQL);
                            }
                        }
                    }
                }
                if ($sType == 2 or $sType == 3) {
                    $sSQL = "SELECT a.ORGANISATIECODE, a.ALT_TITEL, a.NAAM, a.FYSIEKE_LOCATIE, a.EIGENAAR, a.CONTACTPERSOON, a.METAPERSOON, a.GEOLOKET, a.BELEIDSVELD, a.TEAM, a.INVOERDATUM, a.GROUPCODE, a.EDITGROUP, a.BITMAP, a.RSCHEMA, a.DATATYPE, a.TYPE, a.GEBRUIKSBEPERKING, a.VEILIGHEID, a.COPYRIGHT, a.STATUS, a.CONTACT_LEVERANCIER, a.BRONDATUM, a.OPBOUWDATUM, a.ACTIE, a.BIJHOUDING, a.OPMERKING, a.THEMA, a.TAAL, a.KARAKTERSET, a.AANVUL_INFO, a.KWALITEIT_BESCH, a.JURIDISCH, a.METADATASTD, a.VERSIE_METASTD, a.CODE_REF, a.ORG_NAMESPACE, a.DEKKING_BEGIN, a.DEKKING_EIND, c.TEKST FROM DATASET a, MEMOTABEL c WHERE a.OMSCHRIJVING_CODE = c.CODE AND a.DATACODE = " . $sFilterValueCopy;
                    unset($aRecords);
                    $sRecords = F_SELECTRECORD($sSQL);
                    if ($sRecords != "") {
                        $aRecords = explode("^", $sRecords);
                        if ($aRecords[37] == "") {
                            $aRecords[37] = '1980-1-1';
                        }
                        if ($aRecords[38] == "") {
                            $aRecords[38] = '1980-1-1';
                        }
                        //genereren van fileidentifier UUID (ISO nr. 2)
                        $sha1 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, $sFilterValueNCopy, 'www.drenthe.info');
                        //generenen van bronidentifier UUID (ISO nr. 2)
                        $sha2 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, 'provincie drenthe', 'www.drenthe.info');
                        $sSQL = "INSERT INTO DATASET (DATACODE, ORGANISATIECODE, DATASET_TITEL, ALT_TITEL, OMSCHRIJVING_CODE, NAAM, FYSIEKE_LOCATIE, EIGENAAR, CONTACTPERSOON, METAPERSOON, GEOLOKET, BELEIDSVELD, TEAM, INVOERDATUM, GROUPCODE, EDITGROUP, BITMAP, RSCHEMA, DATATYPE, TYPE, GEBRUIKSBEPERKING, VEILIGHEID, COPYRIGHT, STATUS, CONTACT_LEVERANCIER, BRONDATUM, OPBOUWDATUM, ACTIE, BIJHOUDING, OPMERKING, THEMA, TAAL, KARAKTERSET, AANVUL_INFO, KWALITEIT_BESCH, JURIDISCH, METADATASTD, VERSIE_METASTD, CODE_REF, ORG_NAMESPACE, DEKKING_BEGIN, DEKKING_EIND, UUIDBRON, UUID) VALUES ('" . $sMax . "', '" . $aRecords[0] . "', '" . $sFilterValueNCopy . "', '" . $aRecords[1] . "', '" . $sMaxTekst . "', '" . $aRecords[2] . "', '" . $aRecords[3] . "', '" . $aRecords[4] . "', '" . $aRecords[5] . "', '" . $aRecords[6] . "', '" . $aRecords[7] . "', '" . $aRecords[8] . "', '" . $aRecords[9] . "', '" . $aRecords[10] . "', '" . $aRecords[11] . "', '" . $aRecords[12] . "', '" . $aRecords[13] . "', '" . $aRecords[14] . "', '" . $aRecords[15] . "', '" . $aRecords[16] . "', '" . $aRecords[17] . "', '" . $aRecords[18] . "', '" . $aRecords[19] . "', '" . $aRecords[20] . "', '" . $aRecords[21] . "', '" . $aRecords[22] . "', '" . $aRecords[23] . "', '" . $aRecords[24] . "', '" . $aRecords[25] . "', '" . $aRecords[26] . "', '" . $aRecords[27] . "', '" . $aRecords[28] . "', '" . $aRecords[29] . "', '" . $aRecords[30] . "', '" . $aRecords[31] . "', '" . $aRecords[32] . "', '" . $aRecords[33] . "', '" . $aRecords[34] . "', '" . $aRecords[35] . "', '" . $aRecords[36] . "', '" . $aRecords[37] . "', '" . $aRecords[38] . "', '" . $sha2 . "', '" . $sha1 . "')";
                        F_CREATERECORD($sSQL);
                        $sSQL = "INSERT INTO MEMOTABEL (CODE, TEKST) VALUES ('" . $sMaxTekst . "', '" . $aRecords[39] . "')";
                        F_CREATERECORD($sSQL);
                    }
                }
                print "Dataset " . $sFilterValueNCopy . " met succes aangemaakt.<BR>";
                print "<A HREF='?e=@GBI&p=DATASETEDIT|" . $sMax . "'>Klik hier om de metagegevens van de dataset te bewerken</A>";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "</TD></TR></TABLE>\n";
                print "</CENTER>\n";
            }
        }
        if ($sAction == "DATASETLIST") {
            print "<div id=\"nav_path\">\n";
            print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Lijst van alle datasets </span>\n";
            print "</div>\n";
            print "<BR>\n";
            print "<CENTER>\n";
            print "<TABLE WIDTH=\"90%\" CELLPADDING=\"5\" CELLSPACING=\"0\" CLASS=\"randtabel\">\n";
            print "<TR><TD ID=\"kopbegin\">Totaal overzicht datasets</TD></TR>\n";
            print "</TABLE>\n";
            print "</CENTER>\n";
            print "<BR>\n";
            $sOrder = "DATASET.DATASET_TITEL";
            if (count($tokens) >= 2) {
                $sOrder = $tokens[1];
            }
            //$sWhere = "DATASET.DATACODE >= 0";
            $sFilterValue = @$_POST["KEYWORDS"];
            if ($sFilterValue != "" and $sFilterValue != NULL) {
                print "<CENTER>\n";
                print "Gevonden datasets die voldoen aan uw zoekopdracht: <B>" . $sFilterValue . "</B>.<BR><BR>\n";
                print "</CENTER>\n";
                $sWhere = "DATASET.DATASET_TITEL LIKE '%" . $sFilterValue . "%' OR MEMOTABEL.TEKST Like '%" . $sFilterValue . "%' OR TREFTEXT.TREFWOORD LIKE '%" . $sFilterValue . "%'\n";
                $sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL FROM ((DATASET INNER JOIN MEMOTABEL ON DATASET.OMSCHRIJVING_CODE = MEMOTABEL.CODE) INNER JOIN TREFCODE ON DATASET.DATACODE = TREFCODE.DATACODE) INNER JOIN TREFTEXT \r\n\tON TREFCODE.TREFCODE = TREFTEXT.TREFCODE \r\n\tWHERE " . $sWhere . " ORDER BY " . $sOrder;
                //$sWhere = "instr(DATASET.DATASET_TITEL, '" . $sFilterValue . "') OR instr(MEMOTABEL.TEKST, '" . $sFilterValue . "')\n";
            } else {
                $sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL FROM DATASET ORDER BY " . $sOrder;
            }
            //$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL, DATASET.EIGENAAR FROM DATASET, TREFCODE, TREFTEXT, MEMOTABEL WHERE TREFCODE.DATACODE = DATASET.DATACODE AND TREFCODE.TREFCODE = TREFTEXT.TREFCODE AND DATASET.DATACODE = MEMOTABEL.CODE AND " . $sWhere . " ORDER BY " . $sOrder;
            //$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL FROM DATASET WHERE " . $sWhere . " ORDER BY " . $sOrder;
            //$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL FROM ((DATASET INNER JOIN MEMOTABEL ON DATASET.OMSCHRIJVING_CODE = MEMOTABEL.CODE) INNER JOIN TREFCODE ON DATASET.DATACODE = TREFCODE.DATACODE) INNER JOIN TREFTEXT ON TREFCODE.TREFCODE = TREFTEXT.TREFCODE WHERE " . $sWhere . " ORDER BY " . $sOrder;
            //$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL FROM DATASET INNER JOIN MEMOTABEL ON DATASET.OMSCHRIJVING_CODE = MEMOTABEL.CODE WHERE " . $sWhere . " ORDER BY " . $sOrder;
            //$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL, DATASET.EIGENAAR FROM ((TREFCODE INNER JOIN DATASET ON TREFCODE.DATACODE = DATASET.DATACODE) INNER JOIN TREFTEXT ON TREFCODE.TREFCODE = TREFTEXT.TREFCODE) INNER JOIN MEMOTABEL ON DATASET.DATACODE = MEMOTABEL.CODE WHERE " . $sWhere . " ORDER BY " . $sOrder;
            $sRecords = F_SELECTRECORD($sSQL);
            $aRecords = explode("|", $sRecords);
            print "<CENTER>\n";
            print "<TABLE WIDTH=\"90%\" CELLPADDING=\"5\" CELLSPACING=\"0\" ID=\"randtabel\">\n";
            print "<TR><TD WIDTH=\"10%\" ID=\"randkop\"><A HREF='?e=@GBI&p=DATASETLIST|DATASET.DATACODE'>Datacode</A></TD><TD WIDTH=\"85%\" ID=\"randkop\"><A HREF='?e=@GBI&p=DATASETLIST|DATASET.DATASET_TITEL'>Titel dataset</A></TD><TD WIDTH=\"2%\" ID=\"randkop\"></TD><TD WIDTH=\"2%\" ID=\"randkop\"></TD></TR>\n";
            for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
                $sRecord = $aRecords[$iRecord];
                $aRecord = explode("^", $sRecord);
                print "<TR>\n";
                for ($iField = 0; $iField < count($aRecord); $iField++) {
                    $sValue = $aRecord[$iField];
                    if ($sValue == "") {
                        $sValue = "-";
                    }
                    if ($iField == 0) {
                        print "<TD VALIGN=top ID=\"rand\"><A HREF='?e=@GBI&p=DATASETEDIT|" . $sValue . "'>" . $sValue . "</A></TD>\n";
                        $sDC = $sValue;
                    } else {
                        print "<TD VALIGN=top ID=\"rand\">" . $sValue . "</TD>\n";
                    }
                }
                print "<TD VALIGN=top ID=\"rand\"><A HREF='?e=@GBI&p=DELETEDATASET" . "|" . $sDC . "'>";
                print "<IMG SRC='images\\wissen1.png' ALT='Verwijderen dataset' BORDER=0 HEIGHT=20 WIDTH=20></A></TD>\n";
                print "<TD VALIGN=top ID=\"rand\"><A HREF='?e=@GBI&p=THUMBNAIL" . "|" . $sDC . "'>";
                print "<IMG SRC='images\\globe.png' ALT='Maak een thumbnail' BORDER=0 HEIGHT=20 WIDTH=20></A></TD>\n";
                print "</TR>\n";
            }
            print "</TABLE>\n";
            print "</CENTER>\n";
            print "</BODY>\n";
        }
        if ($sAction == "DATASETEDIT") {
            //$sDatacode = "-1";
            if (count($tokens) >= 2) {
                $sDatacode = $tokens[1];
                $sType = F_SELECTRECORD("SELECT TYPE FROM DATASET WHERE DATACODE = " . $sDatacode);
            }
            $sFilterValueIms = @$_POST["txtIMSCODE"];
            if ($sFilterValueIms != NULL) {
                F_SELECTRECORD("UPDATE GEOGRAFISCH SET IMSCODE = '" . $sFilterValueIms . "' WHERE DATACODE = " . $sDatacode);
            }
            if (@$_SESSION["GBIMUTEREN"] == TRUE) {
                if (count($tokens) > 3) {
                    $_SESSION["GBIPRO"] = $tokens[2];
                } else {
                    $_SESSION["GBIPRO"] = "";
                }
            } else {
                $_SESSION["GBIPRO"] = "RO";
            }
            print "<IFRAME ID='WAITFRAME' NAME='WAITFRAME' style='z-index:100; position: absolute; width=300px; height: 100px; top:40%; left:40%;' src='' frameBorder='0' scrolling='no' onload=\"initPopup();\"></IFRAME>\n";
            print "<BR>\n";
            print "<div id=\"nav_path\">\n";
            print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > <a href=\"index.php?e=@GBI&p=DATASETLIST|DATASET.DATASET_TITEL\"> Lijst van alle datasets </a> </span>\n";
            print "</div>\n";
            print "<BR>\n";
            print "<CENTER>\n";
            print "<TABLE WIDTH=\"95%\" CELLPADDING=\"5\" CELLSPACING=\"0\" CLASS=\"randtabel\">\n";
            $naam = F_SELECTRECORD("SELECT DATASET_TITEL FROM DATASET WHERE DATACODE = " . $sDatacode);
            print "<TR><TD ID=\"kopbegin\">Gegevens dataset {$naam}</TD></TR>\n";
            print "</TABLE>\n";
            print "</CENTER>\n";
            print "<BR>\n";
            print "<CENTER>\n";
            print "<TABLE WIDTH=\"95%\" CELLPADDING=\"5\" CELLSPACING=\"0\" CLASS=\"randtabel\">\n";
            print "<TR><TD WIDTH=\"59%\"></TD><TD VALIGN=\"RIGHT\" WIDTH=\"12%\" ID=\"randkaartvol\"><A HREF='?e=@EXPORT&p=PDFDATASET|" . $sDatacode . "'> Exporteer PDF</A></TD><TD VALIGN=\"RIGHT\" WIDTH=\"12%\" ID=\"randkaartvol\"><A HREF='?e=@EXPORT&p=XMLDATASET|" . $sDatacode . "'>Exporteer XML</A></TD><TD VALIGN=\"RIGHT\" WIDTH=\"12%\" ID=\"randkaartvol\"><A HREF='?e=@EXPORT&p=PDFITEMSDATASET|" . $sDatacode . "'> Exporteer Items PDF</A></TD></TR>\n";
            print "</TABLE>\n";
            print "</CENTER>\n";
            print "<CENTER>\n";
            print "<TABLE WIDTH=95% cellpadding=5 CELLSPACING=\"3\" ID=\"randtabel2\">\n";
            print "<TR><TD COLSPAN=\"2\" ID=\"randeditkop\">Algemeen:</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Naam van de dataset, CD/DVD of Kaartservice', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\" >Titel dataset</TD><TD ID=\"randedit\">\n";
            print F_GBITEXTBOX("DATASET" . "|" . "DATASET_TITEL" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Vertaling van de dataset titel in een andere taal of een aanvulling op de dataset titel (ondertitel). Wordt binnen de provincie gebruikt als dataset naam in de ruimtelijke dataset. Zie woordenlijst voor de naamgeving', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\" >Alternatieve titel</TD><TD ID=\"randedit\">\n";
            print F_GBITEXTBOX("DATASET" . "|" . "ALT_TITEL" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Korte beschrijving van de inhoud van de dataset, CD/DVD of Kaartservice, CD/DVD of Kaartservice', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Omschrijving dataset</TD><TD ID=\"randedit\">\n";
            $sCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $sDatacode);
            print F_GBIMEMOBOX("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sCode);
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Algemene beschrijving of opmerking, betreffend de geschiedenis van een item in zoverre deze niet te plaatsen zijn in de overige kwaliteitsvelden. Dit kunnen ook beschrijvingen of opmerkingen zijn over de brongegevens en/of het productieproces.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\" >Algemene opmerking</TD><TD ID=\"randedit\">\n";
            print F_GBIMEMOBOX("DATASET" . "|" . "OPMERKING" . "|" . "DATACODE=" . $sDatacode);
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Referentie datum van de dataset.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Referentie datum</TD><TD ID=\"randedit\">\n";
            print F_GBITEXTDATEBOX("DATASET" . "|" . "BRONDATUM" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('De datum waar de laatste gebeurtenis betrekking op heeft.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Wijzigingsdatum</TD><TD ID=\"randedit\">\n";
            print F_GBITEXTDATEBOX("DATASET" . "|" . "OPBOUWDATUM" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            if ($sType == 1) {
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Dit veld kan gebruikt worden om een algemene beschrijving of opmerking te geven betreft de kwaliteit van de (verschillende) brongegevens.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Bronvermelding</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
                print F_GBIMEMOBOX("GEOGRAFISCH" . "|" . "BRONVERMELDING" . "|" . "DATACODE=" . $sDatacode);
                print "</TD></TR>\n";
            }
            if ($sType == 1) {
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Methode die gebruikt is om de brongegevens in te winnen.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Opbouwmethode</TD><TD ID=\"randedit\">\n";
                print F_GBILISTBOXTYPE("GEOGRAFISCH" . "|" . "OPBOUWMETHODE" . "|" . "DATACODE=" . $sDatacode . "|" . "OPBOUWMETHODE");
                print "</TD></TR>\n";
            }
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Gebeurtenis waar de wijzigingsdatum betrekking op heeft.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Gebeurtenis</TD><TD ID=\"randedit\">\n";
            print F_GBILISTBOXTYPE("DATASET" . "|" . "ACTIE" . "|" . "DATACODE=" . $sDatacode . "|" . "ACTIE");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Status van de dataset.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Status</TD><TD ID=\"randedit\">\n";
            print F_GBILISTBOXTYPE("DATASET" . "|" . "STATUS" . "|" . "DATACODE=" . $sDatacode . "|" . "STATUS");
            print "</TD></TR>\n";
            print "</TABLE>\n";
            print "<TABLE WIDTH=95% cellpadding=5 ID=\"randtabel3\">\n";
            print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><BR></TD></TR>\n";
            print "</TABLE>\n";
            print "<TABLE WIDTH=95% cellpadding=5 CELLSPACING=\"3\" ID=\"randtabel2\">\n";
            print "<TR><TD COLSPAN=\"2\" ID=\"randeditkop\">Inhoud:</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Naam van de verantwoordelijke organisatie of persoon die inhoudelijk verantwoordelijk is voor deze dataset, CD/DVD of kaartservice.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Contactpersoon inhoud</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBILISTBOX("DATASET" . "|" . "CONTACTPERSOON" . "|" . "DATACODE=" . $sDatacode . "|" . "CONTACT");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Beleidsterrein waar de dataset, CD/DVD of kaartservice betrekking op heeft.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Beleidsterrein</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBILISTBOXTYPE("DATASET" . "|" . "BELEIDSVELD" . "|" . "DATACODE=" . $sDatacode . "|" . "BELEIDSTERREIN");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Naam van het verantwoordelijke team van de dataset, CD/DVD of kaartservice.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Team</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBILISTBOXTYPE("DATASET" . "|" . "TEAM" . "|" . "DATACODE=" . $sDatacode . "|" . "TEAM");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Hoofdthema van de dataset, CD/DVD of kaartservice.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Thema</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBILISTBOXTYPE("DATASET" . "|" . "THEMA" . "|" . "DATACODE=" . $sDatacode . "|" . "THEMA");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Toepassingen waarvoor de data niet geschikt is. Bijvoorbeeld: \\'Niet te gebruiken voor navigatie.\\' of \\'Dataset niet gebruiken bij een schaal groter dan 1:50.000.\\'', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Gebruiksbeperking</TD><TD ID=\"randedit\">\n";
            print F_GBITEXTBOX("DATASET" . "|" . "GEBRUIKSBEPERKING" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Beperkingen die op een dataset, CD/DVD of kaartservice zijn opgelegd.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Veligheidsrestricties</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBILISTBOXTYPE("DATASET" . "|" . "VEILIGHEID" . "|" . "DATACODE=" . $sDatacode . "|" . "BEPERKING");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Toegangseisen die er zorg voor dragen dat privacy of intellectueel eigendom gewaarborgd zijn en elke andere speciale beperkingen voor het verkrijgen van de metadata of data.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Toegangsrestricties</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBILISTBOXTYPE("DATASET" . "|" . "JURIDISCH" . "|" . "DATACODE=" . $sDatacode . "|" . "JURIDISCH");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Persoon of organisatie die eigenaar is van de dataset.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Copyright</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBITEXTBOX("DATASET" . "|" . "COPYRIGHT" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Frequentie waarmee de data herzien wordt.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Herzienings frequentie</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBILISTBOXTYPE("DATASET" . "|" . "BIJHOUDING" . "|" . "DATACODE=" . $sDatacode . "|" . "HERZIENING");
            print "</TD></TR>\n";
            if ($sType == 1) {
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('De beoogde schaal waarop het bestand waarheidsgetrouw gebruikt mag worden. Dit moet een positief numeriek getal zijn.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Toepassingsschaal</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
                print F_GBILISTBOXTYPE("GEOGRAFISCH" . "|" . "SCHAAL" . "|" . "DATACODE=" . $sDatacode . "|" . "SCHAAL");
                print "</TD></TR>\n";
            }
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Als de dataset, CD/DVD of kaartservice door een leverancier wordt geleverd, kunnen hier de gegevens van de desbetreffende  leverancier worden ingevuld.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Contact leverancier</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBIMEMOBOX("DATASET" . "|" . "CONTACT_LEVERANCIER" . "|" . "DATACODE=" . $sDatacode);
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Inhoudelijke geldigheid van de data, gespecificeerd naar begin- en eindatum.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Temporele dekking (begin)</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBITEXTDATEBOX("DATASET" . "|" . "DEKKING_BEGIN" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Inhoudelijke geldigheid van de data, gespecificeerd naar begin- en eindatum.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Temporele dekking (eind)</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBITEXTDATEBOX("DATASET" . "|" . "DEKKING_EIND" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            print "</TABLE>\n";
            print "<TABLE WIDTH=95% cellpadding=5 ID=\"randtabel3\">\n";
            print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><BR></TD></TR>\n";
            print "</TABLE>\n";
            print "<TABLE WIDTH=95% cellpadding=5 CELLSPACING=\"3\" ID=\"randtabel2\">\n";
            print "<TR><TD COLSPAN=\"2\" ID=\"randeditkop\">Specifiek:</TD></TR>\n";
            if ($sType == 1) {
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Gebied waarbinnen de dataset valt.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Geografisch gebied</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
                print F_GBILISTBOXTYPE("GEOGRAFISCH" . "|" . "DEELGEBIED" . "|" . "DATACODE=" . $sDatacode . "|" . "GEBIED");
                print "</TD></TR>\n";
            }
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Methode die gebruikt wordt om de geografische informatie ruimtelijk te representeren.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Ruimtelijk schema</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBILISTBOXTYPE("DATASET" . "|" . "RSCHEMA" . "|" . "DATACODE=" . $sDatacode . "|" . "RSCHEMA");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Aanvullende informatie over de data, bijvoorbeeld documentatie of handleiding.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Aanvullende informatie</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBITEXTBOX("DATASET" . "|" . "AANVUL_INFO" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('De naam van de ArcGIS layerfile zoals deze voor de dataset is aangemaakt.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Bestandsnaam</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBITEXTBOX("DATASET" . "|" . "NAAM" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Map op de E: schijf waar het ArcGIS layerbestand is opgeslagen.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Fysieke locatie</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBITEXTBOX("DATASET" . "|" . "FYSIEKE_LOCATIE" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Het datatype van de dataset, zoals: gdb polygon feature class, gdb line feature class, etc..', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Datatype</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBILISTBOXTYPE("DATASET" . "|" . "DATATYPE" . "|" . "DATACODE=" . $sDatacode . "|" . "DATATYPE");
            print "</TD></TR>\n";
            if ($sType == 1) {
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Soort van geometrie van de dataset, zoals vlakken, lijnen, punten, etc..', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Geometrie</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
                print F_GBITEXTBOX("GEOGRAFISCH" . "|" . "GEOMETRIE" . "|" . "DATACODE=" . $sDatacode . "|90%");
                print "</TD></TR>\n";
            }
            if ($sType == 1) {
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Nauwkeurigheid waarmee de dataset is opgebouwd, dit kan zijn topografisch bij gebruik van topografische ondergrond.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Nauwkeurigheid</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
                print F_GBITEXTBOX("GEOGRAFISCH" . "|" . "POS_NAUWKEURIGHEID" . "|" . "DATACODE=" . $sDatacode . "|90%");
                print "</TD></TR>\n";
            }
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Niveau (dataset, serie of service) waar de kwaliteitsbeschrijving betrekking op heeft.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Hi&#235;rarchieniveau:</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBILISTBOXTYPE("DATASET" . "|" . "KWALITEIT_BESCH" . "|" . "DATACODE=" . $sDatacode . "|" . "SCOPECODE");
            print "</TD></TR>\n";
            print "<FORM NAME=FRMLEG METHOD=POST ACTION=\"?e=@GBI&p=DATASETEDIT|" . $sDatacode . "\">\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('ArcIMS opmaakcode voor de dataset legenda.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Legenda Kaartviewer</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print F_GBIMEMOIMS("GEOGRAFISCH" . "|" . "IMSCODE" . "|" . "DATACODE=" . $sDatacode);
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\"></TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
            print "<input id=submit1 type=submit value='Legenda opslaan' name=submit1></input>\n";
            print "</TD></TR>\n";
            print "</FORM><BR>\n";
            if ($sType == 1) {
                $sGebied = F_SELECTRECORD("SELECT DEELGEBIED FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode);
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Minimale x-co&#246;rdinaat:</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
                print F_GBITEXTBOXVAST("GEBIED" . "|" . "MIN_X" . "|" . "GEBIED= '" . $sGebied . "'");
                print "</TD></TR>\n";
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Maximale x-co&#246;rdinaat:</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
                print F_GBITEXTBOXVAST("GEBIED" . "|" . "MAX_X" . "|" . "GEBIED= '" . $sGebied . "'");
                print "</TD></TR>\n";
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Minimale y-co&#246;rdinaat:</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
                print F_GBITEXTBOXVAST("GEBIED" . "|" . "MIN_Y" . "|" . "GEBIED= '" . $sGebied . "'");
                print "</TD></TR>\n";
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Maximale y-co&#246;rdinaat:</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
                print F_GBITEXTBOXVAST("GEBIED" . "|" . "MAX_Y" . "|" . "GEBIED= '" . $sGebied . "'");
                print "</TD></TR>\n";
            }
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('In het algemeen gebruikte woorden om een onderwerp te beschrijven.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Trefwoorden</TD><TD ALIGN=\"LEFT\">\n";
            print "<TABLE cellpadding=\"10\" width=\"100%\">\n";
            if (@$_SESSION["GBIPRO"] == "") {
                print "<TR><TD VALIGN=top>Gekoppeld</TD><TD VALIGN=top>Niet gekoppeld</TD></TR>\n";
            } else {
                print "<TR><TD VALIGN=top></TD><TD VALIGN=top></TD></TR>\n";
            }
            print "<TR><TD ID=\"randedit\" VALIGN=top>\n";
            $sTrefwoorden = F_SELECTRECORD("SELECT TREFTEXT.TREFCODE, TREFTEXT.TREFWOORD FROM TREFCODE INNER JOIN TREFTEXT ON TREFCODE.TREFCODE = TREFTEXT.TREFCODE WHERE TREFCODE.DATACODE=" . $sDatacode . " ORDER BY TREFTEXT.TREFWOORD");
            $aRecords = explode("|", $sTrefwoorden);
            if (@$_SESSION["GBIPRO"] == "") {
                print "<SELECT STYLE=" . "\"" . "{width: 300px}" . "\"" . " NAME=" . "PVVPS1" . " SIZE=5 ONKEYUP=" . "\"" . "if(event.keyCode==13 && this.selectedIndex >=0)  { execserver('?e=@GBIEXEC&p=DELETE" . "|" . "TREFCODE" . "|" . "TREFCODE=' + this.value + ' AND DATACODE=" . $sDatacode . "'); var optObj = document.createElement('option'); optObj.text=this(selectedIndex).text; optObj.value=this(selectedIndex).value; PVVPS2.options.add(optObj); this.remove(this.selectedIndex);  } " . "\"" . ">\n";
            }
            for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
                $sRecord = $aRecords[$iRecord];
                $aRecord = explode("^", $sRecord);
                if (@$_SESSION["GBIPRO"] == "") {
                    print "<OPTION VALUE=" . "\"" . $aRecord[0] . "\"" . ">" . $aRecord[1] . "</OPTION>\n";
                } else {
                    print $aRecord[1] . "<BR>\n";
                }
            }
            print "</SELECT>\n";
            print "</TD><TD ID=\"randedit\" VALIGN=top>\n";
            $sTrefwoorden = F_SELECTRECORD("SELECT TREFTEXT.TREFCODE, TREFTEXT.TREFWOORD FROM TREFTEXT ORDER BY TREFTEXT.TREFWOORD");
            $aRecords = explode("|", $sTrefwoorden);
            if (@$_SESSION["GBIPRO"] == "") {
                print "<SELECT STYLE=" . "\"" . "{width: 300px}" . "\"" . " NAME=" . "PVVPS2" . " SIZE=5 ONKEYUP=" . "\"" . "if(event.keyCode==13 && this.selectedIndex >=0)  { execserver('?e=@GBIEXEC&p=LINK" . "|" . "TREFCODE" . "|" . "TREFCODE" . "|" . "DATACODE" . "|" . "' + this.value + '" . "|" . $sDatacode . "'); var optObj = document.createElement('option'); optObj.text=this(selectedIndex).text; optObj.value=this(selectedIndex).value; PVVPS1.options.add(optObj); this.remove(this.selectedIndex);  } " . "\"" . ">\n";
            }
            for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
                $sRecord = $aRecords[$iRecord];
                $aRecord = explode("^", $sRecord);
                if (@$_SESSION["GBIPRO"] == "") {
                    print "<OPTION VALUE=" . "\"" . $aRecord[0] . "\"" . ">" . $aRecord[1] . "</OPTION>\n";
                }
            }
            if (@$_SESSION["GBIPRO"] == "") {
                print "</SELECT>\n";
            }
            print "</TD></TR></TABLE>\n";
            print "</TD></TR>\n";
            print "</TABLE>\n";
            if ($sType == 1) {
                print "<TABLE WIDTH=95% cellpadding=5 ID=\"randtabel3\">\n";
                print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><BR></TD></TR>\n";
                print "</TABLE>\n";
                print "<TABLE WIDTH=95% cellpadding=5 CELLSPACING=\"3\" ID=\"randtabel2\">\n";
                print "<TR><TD COLSPAN=\"2\" ID=\"randeditkop\">Items:</TD></TR>\n";
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Standaarditem van de dataset.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Standaarditem</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
                print F_GBITEXTBOX("GEOGRAFISCH" . "|" . "STD_ITEM" . "|" . "DATACODE=" . $sDatacode . "|90%");
                print "</TD></TR>\n";
                $sItem = F_SELECTRECORD("SELECT STD_ITEM FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode);
                $sCode = F_SELECTRECORD("SELECT ITEMDEFINITIE FROM ITEMS WHERE ITEMS.DATACODE = " . $sDatacode . " AND ITEMS.ITEMNAAM = '" . $sItem . "'");
                print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('De items van een dataset, gebruik het plusje of kruisje voor het toevoegen of verwijderen van een item.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Items</TD><TD>\n";
                $sRecords = F_SELECTRECORD("SELECT a.VOLGNR, a.ITEMNAAM, a.ITEMDEFINITIE, a.EENHEID, b.TEKST FROM ITEMS a, MEMOTABEL b WHERE a.DOMEIN = b.CODE AND DATACODE =" . $sDatacode . " ORDER BY VOLGNR");
                //$sRecords = F_SELECTRECORD("SELECT VOLGNR, ITEMNAAM, ITEMDEFINITIE FROM ITEMS WHERE DATACODE=" . $sDatacode . " ORDER BY VOLGNR");
                unset($aRecords);
                if ($sRecords != "") {
                    $aRecords = explode("|", $sRecords);
                }
                print "<TABLE WIDTH=100% CELLSPACING=\"2\">\n";
                print "<TR><TD WIDTH=\"5%\" ALIGN=\"LEFT\" ID=\"randedit\">Nr</TD><TD WIDTH=\"15%\" ALIGN=\"LEFT\" ID=\"randedit\" onmouseover=\"Tip('Naam van een item.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Itemnaam</TD><TD WIDTH=\"20%\" ALIGN=\"LEFT\" ID=\"randedit\" onmouseover=\"Tip('Definitie van een item.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Itemdefinitie</TD><TD WIDTH=\"5%\" ALIGN=\"LEFT\" ID=\"randedit\" onmouseover=\"Tip('Eenheid van een item.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Eenheid</TD><TD WIDTH=\"50%\" ALIGN=\"LEFT\" ID=\"randedit\" onmouseover=\"Tip('Mogelijke waarden van een item.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Waarden</TD><TD ></TD></TR>\n";
                if (isset($aRecords)) {
                    for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
                        $sRecord = $aRecords[$iRecord];
                        $aRecord = explode("^", $sRecord);
                        $sVolgnr = $aRecord[0];
                        $sKolomnaam = $aRecord[1];
                        $sKolomdef = $aRecord[2];
                        $sEenheid = $aRecord[3];
                        $sTekst = $aRecord[4];
                        $sWaarde = F_SELECTRECORD("SELECT DOMEIN FROM ITEMS WHERE DATACODE = " . $sDatacode . " AND VOLGNR = " . $sVolgnr);
                        print "<TR>\n";
                        print "<TD ALIGN=\"LEFT\" VALIGN=top>" . F_GBITEXTBOX("ITEMS" . "|" . "VOLGNR" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode . "|60%") . "</TD><TD  ALIGN=\"LEFT\" VALIGN=top>" . F_GBITEXTBOX("ITEMS" . "|" . "ITEMNAAM" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode . "|90%") . "</TD><TD ALIGN=\"LEFT\" VALIGN=top>" . F_GBITEXTBOX("ITEMS" . "|" . "ITEMDEFINITIE" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode . "|95%") . "</TD><TD ALIGN=\"LEFT\" VALIGN=top>" . F_GBITEXTBOX("ITEMS" . "|" . "EENHEID" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode . "|80%") . "</TD><TD ALIGN=\"LEFT\" VALIGN=top>" . F_GBIMEMOBOX("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sWaarde) . "</TD><TD VALIGN=top ALIGN=\"LEFT\">\n";
                        if (@$_SESSION["GBIPRO"] == "") {
                            print "<A HREF='#' ONCLICK=\"execserver('?e=@GBIEXEC&p=DELETEITEM" . "|" . $sDatacode . "|" . $sVolgnr . "');\">";
                            print "<IMG SRC='images\\wissen1.png' ALT='Verwijderen item' BORDER=0 HEIGHT=20 WIDTH=20></A>\n";
                        }
                        print "</TD>\n";
                        print "</TR>\n";
                        print "</TR>\n";
                    }
                }
                if (@$_SESSION["GBIPRO"] == "") {
                    print "<TR><TD ALIGN=\"LEFT\">\n";
                    print "<A HREF='#' ONCLICK=" . "\"" . "execserver('?e=@GBIEXEC&p=INSERTITEM" . "|" . $sDatacode . "');" . "\"" . ">\n";
                    print "<IMG SRC='images\\maak.png' ALT='Toevoegen item' BORDER=0 HEIGHT=20 WIDTH=20></A>\n";
                    print "</TD><TD></TD><TD></TD><TD></TD></TR>\n";
                }
                print "</TABLE>\n";
                print "</TD></TR>\n";
                print "</TABLE>\n";
            }
            print "<TABLE WIDTH=95% cellpadding=5 ID=\"randtabel3\">\n";
            print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><BR></TD></TR>\n";
            print "</TABLE>\n";
            print "<TABLE WIDTH=95% cellpadding=5 CELLSPACING=\"3\" ID=\"randtabel2\">\n";
            print "<TR><TD COLSPAN=\"2\" ID=\"randeditkop\">Metadata:</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Contactpersoon van de metagegevens van een dataset, CD/DVD of kaartservice.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Contactpersoon metadata</TD><TD ALIGN=\"LEFT\">\n";
            print F_GBILISTBOXMETA("DATASET" . "|" . "METAPERSOON" . "|" . "DATACODE=" . $sDatacode . "|" . "CONTACT");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Datum waarop de metadata is gecre&#235;erd.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Metadata datum</TD><TD ID=\"randedit\">\n";
            print F_GBITEXTDATEBOX("DATASET" . "|" . "INVOERDATUM" . "|" . "DATACODE=" . $sDatacode . "|90%");
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Taal dataset</TD><TD ID=\"randedit\" >\n";
            print F_GBITEXTBOXVAST("DATASET" . "|" . "TAAL" . "|" . "DATACODE=" . $sDatacode);
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Karakterset</TD><TD ID=\"randedit\" >\n";
            print F_GBITEXTBOXVAST("DATASET" . "|" . "KARAKTERSET" . "|" . "DATACODE=" . $sDatacode);
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Metadatastandaard</TD><TD ID=\"randedit\">\n";
            print F_GBITEXTBOXVAST("DATASET" . "|" . "METADATASTD" . "|" . "DATACODE=" . $sDatacode);
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Versie metadatastandaard</TD><TD ID=\"randedit\">\n";
            print F_GBITEXTBOXVAST("DATASET" . "|" . "VERSIE_METASTD" . "|" . "DATACODE=" . $sDatacode);
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Code referentiesysteem</TD><TD ID=\"randedit\">\n";
            print F_GBITEXTBOXVAST("DATASET" . "|" . "CODE_REF" . "|" . "DATACODE=" . $sDatacode);
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Organisatie referentiesysteem</TD><TD ID=\"randedit\">\n";
            print F_GBITEXTBOXVAST("DATASET" . "|" . "ORG_NAMESPACE" . "|" . "DATACODE=" . $sDatacode);
            print "</TD></TR>\n";
            print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Contactpersoon voor de distributie van een dataset, CD/DVD of kaartservice.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Contactpersoon ditributie</TD><TD ALIGN=\"LEFT\">\n";
            print F_GBILISTBOXGEO("DATASET" . "|" . "GEOLOKET" . "|" . "DATACODE=" . $sDatacode . "|" . "CONTACT");
            print "</TD></TR>\n";
            print "</TABLE>\n";
            print "</CENTER>\n";
            print "<BR>\n";
        }
        if ($sAction == "NEWDATASET") {
            print "<div id=\"nav_path\">\n";
            print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Nieuwe dataset aanmaken </span>\n";
            print "</div>\n";
            print "<BR><BR><BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
            print "<CENTER>Nieuwe dataset aanmaken</CENTER>\n";
            print "</TD></TR></TABLE></CENTER>\n";
            print "<BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
            if (@$_SESSION["GBIMUTEREN"] == TRUE) {
                print "<FORM NAME=FRMNEW METHOD=POST ACTION=\"?e=@GBI&p=CREATEDATASET\">\n";
                print "<LI><B>Dataset aanmaken</B></A><BR><BR>\n";
                print "Titel dataset: <INPUT SIZE=70 TYPE=TEXT NAME='NEW'><BR><BR>\n";
                print "Type dataset: <SELECT NAME='SNEW'>\n";
                print "<OPTION>Dataset</OPTION>\n";
                print "<OPTION>CD/DVD</OPTION>\n";
                print "<OPTION>Service</OPTION></SELECT>\n";
                print "&nbsp;&nbsp;<input id=submit1 type=submit value=Aanmaken name=submit1></input>\n";
                print "</FORM>\n";
                print "<BR><BR>";
                print "<FORM NAME=FRMCOPY METHOD=POST ACTION=\"?e=@GBI&p=CREATEDATASET\">\n";
                print "<LI><B>Dataset kopie&euml;ren</B><BR><BR>";
                print "Titel dataset: <INPUT SIZE=70 TYPE=TEXT NAME='NCOPY'><BR><BR>\n";
                $sQuery = F_SELECTRECORD("SELECT DATACODE, DATASET_TITEL FROM DATASET ORDER BY DATASET_TITEL");
                $aRecords = explode("|", $sQuery);
                print "<SELECT NAME='COPY'>\n";
                for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
                    $sRecord = $aRecords[$iRecord];
                    $aRecord = explode("^", $sRecord);
                    $sDC = $aRecord[0];
                    $sDT = $aRecord[1];
                    print "<OPTION VALUE=" . "\"" . $sDC . "\"" . ">" . $sDT . "</OPTION>\n";
                }
                print "</SELECT>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<input id=submit type=submit value=Kopie&euml;ren name=submit></input>\n";
                print "</FORM>\n";
            }
            print "<BR>\n";
            print "<BR>\n";
            print "</TD></TR></TABLE>\n";
            print "</CENTER>\n";
        }
        if ($sAction == "AFDRUK") {
            print "<div id=\"nav_path\">\n";
            print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Afdrukopties </span>\n";
            print "</div>\n";
            print "<BR><BR><BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
            print "<CENTER>Afdrukopties</CENTER>\n";
            print "</TD></TR></TABLE></CENTER>\n";
            print "<BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
            if (@$_SESSION["GBIMUTEREN"] == TRUE) {
                print "<LI><A HREF='?e=@PRINT&p=TOTAL' TARGET='_blank'>PDF met alle datasets</A><BR><BR>\n";
                print "<LI><A HREF='?e=@PRINT&p=OPENBAAR' TARGET='_blank'>PDF met openbare datasets</A><BR><BR>\n";
                print "<LI><A HREF='?e=@PRINT&p=NIETOPENBAAR' TARGET='_blank'>PDF met niet openbare datasets</A><BR><BR>\n";
                print "<FORM NAME=FRMPRINT METHOD=POST ACTION=\"?e=@PRINT&p=DATASET\">\n";
                print "<LI>Selecteer een dataset &nbsp;&nbsp;";
                $sQuery = F_SELECTRECORD("SELECT DATACODE, DATASET_TITEL FROM DATASET ORDER BY DATASET_TITEL");
                $aRecords = explode("|", $sQuery);
                print "<SELECT NAME='PRINT'>\n";
                for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
                    $sRecord = $aRecords[$iRecord];
                    $aRecord = explode("^", $sRecord);
                    $sDC = $aRecord[0];
                    $sDT = $aRecord[1];
                    print "<OPTION VALUE=" . "\"" . $sDC . "\"" . ">" . $sDT . "</OPTION>\n";
                }
                print "</SELECT>\n";
                print "<BR>\n";
                print "<BR>\n";
                print "<input id=submit type=submit value=\"Maak PDF\" name=submit></input>\n";
                print "</FORM>\n";
            }
            print "<BR>\n";
            print "<BR>\n";
            print "</TD></TR></TABLE>\n";
            print "</CENTER>\n";
        }
        if ($sAction == "ADMIN") {
            print "<div id=\"nav_path\">\n";
            print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Administratieve taken </span>\n";
            print "</div>\n";
            print "<BR><BR><BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"800px\" ID=\"kopbegin\">\n";
            print "<CENTER>Administratieve taken</CENTER>\n";
            print "</TD></TR></TABLE></CENTER>\n";
            print "<BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
            if (@$_SESSION["GBIMUTEREN"] == TRUE) {
                print "<FORM NAME=FRMTREF METHOD=POST ACTION=\"?e=@GBI&p=CREATETREFWOORD\">\n";
                print "<LI><B>Trefwoord toevoegen</B></A><BR><BR>\n";
                print "Trefwoord: <INPUT SIZE=30 TYPE=TEXT NAME='NEWTREF'>\n";
                print "&nbsp;&nbsp;<input id=submit1 type=submit value=Toevoegen name=submit1></input>\n";
                print "</FORM><BR>\n";
                print "<LI><B>Kopie van database maken</B><BR><BR>\n";
                print "<A HREF='http://paros/website/databases/gdb_database.mdb'>Database kopie&euml;ren</A><BR><BR>";
            }
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "</TD></TR></TABLE>\n";
            print "</CENTER>\n";
        }
        if ($sAction == "EXPORT") {
            print "<div id=\"nav_path\">\n";
            print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Exporteren Geo-Portaal </span>\n";
            print "</div>\n";
            print "<BR><BR><BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"800px\" ID=\"kopbegin\">\n";
            print "<CENTER>Exporteren Geo-Portaal</CENTER>\n";
            print "</TD></TR></TABLE></CENTER>\n";
            print "<BR>\n";
            print "<CENTER>\n";
            print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
            print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
            if (@$_SESSION["GBIMUTEREN"] == TRUE) {
                print "<LI><B>PDF</B><BR>\n";
                print "<A HREF='?e=@EXPORT&p=PDFOPENBAAR'>Exporteren PDF datasets</A><BR>\n";
                print "<LI><B>XML</B><BR>\n";
                print "<A HREF='?e=@EXPORT&p=XMLOPENBAAR'>Exporteren XML datasets</A><BR>\n";
                print "<LI><B>PDF Items</B><BR>\n";
                print "<A HREF='?e=@EXPORT&p=PDFITEMS'>Exporteren PDF items datasets</A><BR>\n";
                print "<LI><B>DDE config XML</B><BR>\n";
                print "<A HREF='?e=@EXPORT&p=DDEOPENBAAR'>Exporteren DDE XML gegevens</A><BR>\n";
                print "<LI><B>AXL</B><BR>\n";
                print "<A HREF='?e=@EXPORT&p=IMSOPENBAAR'>Exporteren ArcIMS AXL gegevens</A><BR>\n";
                print "<LI><B>Legend XML</B><BR>\n";
                print "<A HREF='?e=@EXPORT&p=LEGENDOPENBAAR'>Exporteren ArcIMS Legend XML gegevens</A><BR>\n";
                print "<LI><B>ID's generen</B><BR>\n";
                print "<A HREF='?e=@EXPORT&p=IDGENEREREN'>ID's genereren</A><BR>\n";
            }
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "<BR>\n";
            print "</TD></TR></TABLE>\n";
            print "</CENTER>\n";
        }
    } else {
        print "<BR>\n";
        print "U bent niet ingelogd. Klik <A HREF=\"?e=@GBIEXEC&p=MENU\"> hier</A> om u aan te melden.\n";
        print "<BR>\n";
        print "<BR>\n";
        print "<BR>\n";
        print "<BR>\n";
        print "<BR>\n";
        print "<BR>\n";
        print "<BR>\n";
        print "<BR>\n";
        print "<BR>\n";
    }
    F_ENDSTYLE();
}