#!/usr/bin/perl -wT use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use strict; my $k = param('k'); my $n1 = param('n1'); my $n2 = param('n2'); my $e1 = param('e1'); my $e2 = param('e2'); my $z = param('z'); #my $k1 = $k print header; print start_html("Get Form"); print " \n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print "Karttyper (wms)
\n";
print " Topografisk kart 2
\n";
print " Topografisk kart 2 grå
\n";
print " Topografisk rasterkart 2
\n";
print " Kartdata 2
\n";
print " Sjøkart hovedserien 2
\n";
print " Europakart
\n";
print " BaseMap Road/Aerial
\n";
print "
Lokale kartutsnitt
\n";
#print " \n";
print " Oversiktskart
\n";
print " Solberg
\n";
print " Russevåg
\n";
print " Klauva
\n";
print " Vågan
\n";
print " Vassjord
\n";
print " Laksfjord
\n";
print "
Andre områder
\n";
#print " \n";
print " Silsand/Finnsnes
\n";
print " Sørreisa
\n";
print " Senja
\n";
print " Tromsø
\n";
print " Harstad
\n";
print " Troms Fylke
\n";
print " Norge
\n";
print " \n";
print "
\n"; #print "
\n"; #print "
\n"; print "