httpresponse "HTTP/1.0 200 OK
Content-Type: text/html; charset=UTF-8"

let mapFilename = "kraje.html", pngFilename = "kraje.png"
newpage "png", pngFilename, "500px", "350px", "imagemap=" . mapFilename
dataset "shapefile", "C:/spdata/arcCr/shapes/kraje.shp", "dbffields=NK"
worlds -904539, -1227290, -431680, -935232
while Mapyrus.fetch.more
do
  fetch
  clearpath
  addpath GEOMETRY
  color "forestgreen"
  fill
  color "black"
  # linestyle 0.5, "round", "round"
  stroke 

  eventscript 'href="' . NK . '"'
done
endpage