#!perl.exe
use CGI qw/:standard/;
print "Content-type: text/html\n\n";



   @in1 = param("in");


 while(<@in1>)
{        chomp;
               @zeile = split /AAA/, $_;
               print @zeile;

            }

   $Marke="../cgi-bin/markt.pl?name1=@zeile[2]";

print <<ENDHEADER;
<head><title>anfrage schreiben</title></head>
<body>
<h2>Anmeldung (kostenlos)

<BODY BGCOLOR="#FFFFFF">

<link REL=stylesheet typetext/csshref=/Styles/hepaWebpy.css>
<script language=JavaScript>
function Resize()

  {
    var win=window.open("../cgi-bin/lager/pic/@zeile[0]/@zeile[1].jpg","_blank","width=420, height=350");


    win.document.write("<b>Dieses Fenster wird sich in drei Sekunden selbst zerst&ouml;ren!</b>");

    win.document.close();
     win.document.write("<img src=../cgi-bin/lager/pic/@zeile[0]/@zeile[1].jpg alt=@zeile[1] width=396 height=270>");
     win.document.write("<li>Bild Detail vom Angebot Nr.:@zeile[1]</li>");

     win.document.write("<BR><a class=Inhalt href= onClick=JavaScript:window.close();>Seite schlie&szlig;en</a>");

  }
</SCRIPT>

</head>
 <meta http-equiv=refresh content=1;url=$Marke>
<body class=Inhalt onLoad=JavaScript:Resize();>
<p class=SeitenTitel>Deteil Info mit Abbildung</p>

<br>

<a class=Inhalt href= onClick=JavaScript:window.close();>Seite schlieáen</a>


ENDHEADER


print <<ENDFOOTER;
</body>
</html>
ENDFOOTER
