-


HTML "" - 2


writeln(f,'<MAP NAME="map">');

writeln(f,'<AREA SHAPE="rect" COORDS="51,0,75,25"  HREF="'+

PageNr(2)+'">');

writeln(f,'<AREA SHAPE="rect" COORDS="76,0,100,25" HREF="'+

LastPage+'">');

writeln(f,'<AREA SHAPE="rect" COORDS="101,0,125,25"HREF="'+

PageNr(RecNr)+'">');

end

else

if (RecNr = RecordCount) then { last record }

begin

writeln(f,'<IMG SRC="../images/navigatr.gif" '+

'ALIGN=RIGHT USEMAP="#map" BORDER="0">');

writeln(f,'<MAP NAME="map">');

writeln(f,'<AREA SHAPE="rect" COORDS="0,0,25,25"  HREF="'+

FirstPage+'">');

writeln(f,'<AREA SHAPE="rect" COORDS="26,0,50,25"  HREF="'+

PageNr(RecNr-1)+'">');

writeln(f,'<AREA SHAPE="rect" COORDS="101,0,125,25"HREF="'+

PageNr(RecNr)+'">');

end

else { middle record }

begin

writeln(f,'<IMG SRC="../images/navigat.gif" '+

'ALIGN=RIGHT USEMAP="#map" BORDER="0">');

writeln(f,'<MAP NAME="map">');

writeln(f,'<AREA SHAPE="rect" COORDS="0,0,25,25"  HREF="'+

FirstPage+'">');

writeln(f,'<AREA SHAPE="rect" COORDS="26,0,50,25"  HREF="'+

PageNr(RecNr-1)+'">');

writeln(f,'<AREA SHAPE="rect" COORDS="51,0,75,25"  HREF="'+

PageNr(RecNr+1)+'">');

writeln(f,'<AREA SHAPE="rect" COORDS="76,0,100,25" HREF="'+

LastPage+'">');

writeln(f,'<AREA SHAPE="rect" COORDS="101,0,125,25"HREF="'+

PageNr(RecNr)+'">');

end;

writeln(f,'</MAP>');

"../images" . , 23 200 HTML , .