onload=

<body onLoad=\"window.open(\'enAnnenFil.asp\');\">

/nute

bruk denne til å lage \"perfekte\" popups:

http://www.builder.dk/builders/windowbuilder.asp

/nute

Den skal ikke åbne en anden fil men sig selv i et popup vindue
<body onLoad=\"window.open(sigselv.asp\');\">

men da sig selv er et gaammelt perlscript, duer det ikke bare at skrive filnavnet

Hvad er det du vil opnå med at åbne siden i popup? fast størrelse på vindue?
/dazzeler

Du kan ikke åbne din \"index\" side i et popup, der skal være en side der åbne dit vindue...

Er du med på hva jeg mener?

/A

<html>
<head>
<title>Popup</title>
<SCRIPT>function NewWin () { win=window.open(\'page.html\',\'_blank\',\'width=400,height=300,toolbar=yes,scrollbars=yes\')}</script>
</head>
<body onload=\"NewWin();history.go(-1);\"></body>
</html>

Det du kan gøre er feks. at gøre som eks. herover

Når man trykker på et link der henviser til din side, kommer man ind på siden, så åbnes et popup vindue, og der efter går din startside automatisk tilbage til hvor den kom fra.

/A

værsgo

<HTML>
<HEAD>
  <TITLE></TITLE>
</HEAD>
<BODY BGCOLOR=\"#FFFFFF\" ONLOAD=\"java script:window.open(\'http://www.alltheweb.com/\');history.go(-1)\">

</BODY>
</HTML>

/dazzeler

jeg må hellere tage det fra starten.
det drejer sig om at jeg har en form der åbner et perlscript, resultatet fra dette perlscript vil jeg gerne have vist i et popup vindue.

her er starten af formen der åbner perl scriptet:
<form action=\"cgi-bin/bode.pl\" method=\"get\">


selve perlscriptet ser sådan ud:

#!/usr/bin/perl5
print \"Content-type: text/html\\n\\n\";

@pairs = split(/&/,$ENV{QUERY_STRING});

foreach $pair (@pairs)
{
  ($name, $value) = split(/=/, $pair);

  # Convert the HTML encoding
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(\"C\", hex($1))/eg;
  $value =~ s/<!--(.|\\n)*-->//g;

  # Convert HTML stuff as necessary.
  $value =~ s/<([^>]|\\n)*>//g;

  $FORM{$name} = $value;
}

$max=$FORM{a};
if(chop($max) eq \'m\')
{
  $mo=1;
}
else
{
  $mo=0;
  $max=$FORM{a};
}

$over=$FORM{b}-$max;
$overpct=int($over/$max*100);

if($mo)
{
  $bode=500;
  if($overpct>=20)
  {
    $bode=1000;
  }
  if($overpct>=30)
  {
    $bode=1500;
  }
  if($overpct>=40)
  {
    $bode=2000;
  }
  if($overpct>=50)
  {
    $bode=2500;
  }
  if($overpct>=60)
  {
    $bode=3000;
  }
  if($overpct>=70)
  {
    $bode=4000;
  }
  if($overpct>=80)
  {
    $bode=4500;
  }
  if($overpct>=90)
  {
    $bode=6000;
  }
  if($overpct>=100)
  {
    $bode=7000;
  }
}
else
{
  $bode=500;
  if($overpct>=20)
  {
    $bode=1000;
  }
  if($overpct>=30)
  {
    $bode=1000;
  }
  if($overpct>=40)
  {
    $bode=1500;
  }
  if($overpct>=50)
  {
    $bode=1500;
  }
  if($overpct>=60)
  {
    $bode=2000;
  }
  if($overpct>=70)
  {
    $bode=2500;
  }
  if($overpct>=80)
  {
    $bode=3000;
  }
  if($overpct>=90)
  {
    $bode=4000;
  }
  if($overpct>=100)
  {
    $bode=4500;
  }
}

print \"<html><head><title>Bødeberegner</title>\";
print \"</head><BODY><p>\";

if($over<=0)
{
  print \"Du får ikke nogen fartbøde for at køre $FORM{b} km/t, hvor man må køre $max km/t.</p></body></html>\";
}
else
{
  print \"<table width=\'300\'><tr><td>Din hastighed</td><td align=\'right\'>$FORM{b}</td><td>km/t</td></tr>\";
  print \"<tr><td>Tilladt hastighed</td><td align=\'right\'>$max</td><td>km/t</td></tr>\";
  print \"<tr><td>Overskridelse</td><td align=\'right\'>$over</td><td>km/t</td></tr>\";
  if($overpct<70)
  {
      print \"<tr><td>Bødestørrelse</td><td align=\'right\'>$bode</td><td>kr</td></tr>\";
  }
  if($overpct>=70)
  {
    if($overpct>=101)
      {
        print \"<tr><td>Bøden er på mindst</td><td align=\'right\'>$bode</td><td>kr</td></tr>\";
      }
    else
    #if($overpct<100)
      {
          print \"<tr><td>Bødestørrelse</td><td align=\'right\'>$bode</td><td>kr</td></tr>\";
      }
      print \"<tr><td colspan=\'3\'><p><br>Hastigheden er overskredet med mere end 70%, hvilket medfører en betinget frakendelse af kørekortet, samt indkaldelse til kontrollerende køreprøve.</tr>\";
  }
}