<perl>
get "userid=1", "/shop/demo/demo","weiter";
while(get_next("weiter"))
{
out <<EOF;
<tr bgcolor=".($_loop%2?"ffffff":"D0D0D0").">
<td><font size="1"><center>
<a href="baseportal.pl?htx=/shop/demo/demoneu&db=/shop/demo/demo&Id=$_id">CHANGE</a></td>
<td wrap width=200><font size="3"><b><center> $Device </b></font><br>
<a href="$Picture"><img src="$PictureSmall" width="150" border=0></a>
<br><font size="0">
<a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/flei/free/freecli&urlgo=$Download&cliid=$_id" target="_blank">Download</a>
</font></td>
<td><center><font size="0"> $Description </font></center></td>
<td><center><b><font size="1"> $Type </b></font></center></td>
<td><center><font size="1"> $EMail<br><br>$URL</font></center></td>
</tr>
EOF
}
</perl>
