#!/srvtools/http/bin/perl
#  Falke Bruinsma (falke@innersource.com)
#  Inner Source Computer Services, Inc. (http://www.innersource.com)
#

require 'cgi-lib.pl';
require 'defines.pl';

MAIN:
{
  print &PrintHeader;
  print <<EOF;

<HTML>
<HEAD>
<TITLE>High School Homepage Directory</TITLE>
</HEAD> 
<BODY>

<FORM ACTION="submit2.pl" METHOD=POST>
<H2>Add new entry to The High School Homepage Directory</H2>
<HR>
Please enter the name of the school:
<INPUT TYPE="text" MAXLENGTH=60 NAME="name" SIZE=60>
<BR>
URL: <INPUT TYPE="text" MAXLENGTH=80 NAME="url" SIZE=80 value="http://">
<BR>
Please enter the city where the school is located: 
<INPUT TYPE="text" MAXLENGTH=20 NAME="city" SIZE=20>
<BR>
State: <INPUT TYPE="text" MAXLENGTH=2 NAME="state" SIZE=2>
State if in US, Country if outside US. (Use two digit code;i.e.
NY for New York State and CA for Canada).
A list of <A HREF="$home/abbrev.html">abbreviations</A> is available for
countries if you are unsure of the correct code.
<BR>
<INPUT TYPE="submit" VALUE="Submit">
<INPUT TYPE="reset" VALUE="Clear Fields">
</FORM>
<HR>
Back to:
<A HREF="$home/highschools/index.html">High School Homepage Directory</A> |
<A HREF="$home/index.html">
The Student Center Main Page</A>
</BODY>
</HTML>
EOF
}
