sub get_Router
{
  my ($neid,$name,$ip,$user,$pwd) = @_;
  my $dbh;
  my ($query,$sth,$sth1,$execu,$newdata,$ds, $datarefid);

  $query="INSERT INTO DATEN(ID,Type,Name,Address,Referenz,Data_RefIerenz,User_ID) VALUES ('',2,?,?,?,0,0)";
  $sth = $dbh->prepare($query) or die "Querry Error prepare: $DBI::errstr\n";
  $ds = $sth->execute($name,$ip,$neid) or die "Querry Error execute: $DBI::errstr\n";
  $datarefid = $dbh->{'mysql_insertid'};
  $sth->finish();
}