my ($head, $where, $titel, $text, $titel_e, $text_e, $url, $type);
  my @update;
  my @elementlist = Statements::doSelect("element_id,element_titel","t_element");
	
    print qq(
	<form action="$Constants::cgi/admin.pl?act=1" method="POST">
	<select name="eid" onChange="submit()">
	  <option value="">Neues Element einf\374gen</option>
	);
	  foreach my $foo (0..$#elementlist) {
		my $selected;
		if ($list{'eid'} == $elementlist[$foo][0]) {
		  $selected = "selected";
		}
		print qq(
		  <option value="$elementlist[$foo][0]" $selected>$elementlist[$foo][1]</option>
		);
	  }

	print qq(
	</select><br/>
	);

	if ($list{'eid'}) {
	  $where = "element_id = $list{'eid'}";
	  @update = Statements::doSelect("element_id,element_titel,element_text,element_titel_e,element_text_e,URL,element_type","t_element",$where);
	  ($titel, $text, $titel_e, $text_e, $url, $type) = ($update[0][1],$update[0][2],$update[0][3],$update[0][4],$update[0][5],$update[0][6]);
	  $head = "$titel ändern";
	} else {
	  $head = "Neues Element einfügen";
	}