print "<br><br><br><b>Date Range Selector</b><br><br>\n";
  print "<table border=1 cellspacing=0 bgcolor=\"#c0c0c0\"><tr bgcolor=\"#000000\"><th><font color=\"#ffffff\">Most Recent:</font></th><th><font color=\"#ffffff\">Oldest</color></th></tr>\n";
  print "<tr><td><select name=mostrecent>\n";
  for ($i=0;$i <$#theDates+1;$i++) {
    $thisDates = substr(@theDates[$i],0,4)."-".substr(@theDates[$i],4,2)."-".substr(@theDates[$i],6,2)." ".substr(@theDates[$i],8,2).":".substr(@theDates[$i],10,2).":".substr(@theDates[$i],12,2);
    print "<option>$thisDates\n";
  }
  print "</select></td>";
  print "<td><select name=oldest>\n";
  for ($i=0;$i <$#theDates+1;$i++) {
    $thisDates = substr(@theDates[$i],0,4)."-".substr(@theDates[$i],4,2)."-".substr(@theDates[$i],6,2)." ".substr(@theDates[$i],8,2).":".substr(@theDates[$i],10,2).":".substr(@theDates[$i],12,2);
    print "<option ";
    if ($i == 7) {
      print "selected";
    }
    print ">$thisDates\n";
  }
  print "</select></td></tr>";
print "</table>";