Hier der komplette Code
<head>
<perl>
if($cmd eq "all"){
get "Id==$Id","$db";
$title="$Rezept - $Kategorie - Kochrezepte vom Kochbuch der Bratpfanne";
}else{
$title="Kochen Kochrezepte Essen Trinken Backrezepte Rezepte";
}
</perl>
<title>$title</title>
</head>
<perl>
out get "http://kochforum.ko.funpic.de/rss_ticker.php";
</perl>
</td>
<!Suchformular ------------------------------------->
<font size=2 face=arial,helvetica>
<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<div align="center">
<center>
<table width="730" id="table45">
</td><td align="right" valign="bottom">
<font size=2 face=arial,helvetica><h2>
Stichwortsuche Rezeptsuche <input type="text" name="Such=" size="10" value=""></font>
<input type="submit" value="Suchen"><font size="2" face="arial,helvetica"> </font></h2>
<h2>
<font size="2" face="arial,helvetica"> </font>
<font size=4>
<font size="2" face="arial,helvetica">
und wenn nichts gefunden wurde bei Google suchen... aber wiederkommen
:-) </font></h2>
</font></td></tr></form>
<!Ende Suchformular----------------------------------->
</table>
</div>
</center></font></font></center>
<div align="center">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="730" id="table46">
<font size=4>
<!-- Search Google -->
<center>
<FORM method=GET action='http://www.google.de/custom'>
<div align="right">
<TABLE bgcolor='#FFFFCC' id="table47"><tr><td valign='top' align='right' height='32'>
<A HREF='http://www.google.com/'>
<IMG SRC='http://www.google.com/logos/Logo_25wht.gif' border=0 ALT='Google' align='absmiddle' width="75" height="32"></A>
<INPUT TYPE=text name=q size=25 maxlength=255 value=''>
<INPUT type=submit name=sa VALUE='Suche'>
<input type=hidden name=client value='pub-6654170911324128'>
<input type=hidden name=forid value='1'>
<input type=hidden name=channel value='0579286054'>
<input type=hidden name=ie value='ISO-8859-1'>
<input type=hidden name=oe value='ISO-8859-1'>
<input type=hidden name=cof value='GALT:#0033CC;GL:1;DIV:#FF8000;VLC:006600;AH:center;BGC:FFFFCC;LBGC:FFE17F;ALC:400000;LC:400000;T:003366;GFNT:003366;GIMP:003366;LH:50;LW:397;L:http://home.arcor.de/vt600c/koch.gif;S:http://www.bratpfanne.de.vu;FORID:1;'>
<input type=hidden name=hl value='de'>
</td></tr></TABLE>
</div>
</FORM>
</center>
<!-- Search Google -->
</td>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="730" id="table71">
<tr>
<td>
<p align="left"><perl>
#######
$db="Rezepte"; # anpsssen !
$link_feld="Rezept"; # anpassen ! das, was als Link angezeigt werden soll
# jedes zu durchsuchende Feld muß extra benannt werden !!
$such_feld1="Rezept"; # anpassen - z.B. "Text"
#sowie ggf. weitere Felder benennen ----
$such_feld2="Kategorie";
$such_feld3="Aufwand 1:leicht 6:schwierig";
$such_feld4="Zutaten";
$such_feld5="Personen";
$such_feld6="kcal/Person";
$such_feld7="kJ/Person";
$such_feld8="Zubereitung";
$such_feld9="Tip";
$such_feld10="Variationen";
$such_feld11="Bild";
$such_feld12="geschrieben von";
$such_feld13="E-Mail";
$such_feld14="Homepage";
# u.s.w.
##########
my @Daten;
if ($Such ne "") #falls eine Suchanfrage gestartet wurde
#-------- und das Eingabefeld [Such] nicht leer ist
{
out "Suchbegriff =<b>[$Such]</b><br>";
my $i=0;
#- Eingabe von ae, ue oder oe abfangen etc..---
$mSuch = $Such;
$mSuch =~ s/ä/Ä/g;
$mSuch =~ s/ö/Ö/g;
$mSuch =~ s/ü/Ü/g;
$mSuch=lc($mSuch);
$mSuch =~ s/ae/ä/g;
$mSuch =~ s/oe/ö/g;
$mSuch =~ s/ue/ü/g;
#------------------
get "Id==*", "$db";
while(get_next($db))
# gesucht wird z.B. in den Feldern [$such_feldx]---
{
if(
(index($$such_feld1,$Such)>=0 or ($$such_feld1 =~ /$mSuch/gim))
#- sowie ggf. weitere -----------------------------
or (index($$such_feld2,$Such)>=0 or ($$such_feld2 =~ /$mSuch/gim))
or (index($$such_feld3,$Such)>=0 or ($$such_feld3 =~ /$mSuch/gim))
or (index($$such_feld4,$Such)>=0 or ($$such_feld4 =~ /$mSuch/gim))
or (index($$such_feld5,$Such)>=0 or ($$such_feld4 =~ /$mSuch/gim))
or (index($$such_feld6,$Such)>=0 or ($$such_feld4 =~ /$mSuch/gim))
or (index($$such_feld7,$Such)>=0 or ($$such_feld4 =~ /$mSuch/gim))
or (index($$such_feld8,$Such)>=0 or ($$such_feld4 =~ /$mSuch/gim))
or (index($$such_feld9,$Such)>=0 or ($$such_feld4 =~ /$mSuch/gim))
or (index($$such_feld10,$Such)>=0 or ($$such_feld4 =~ /$mSuch/gim))
or (index($$such_feld11,$Such)>=0 or ($$such_feld4 =~ /$mSuch/gim))
or (index($$such_feld12,$Such)>=0 or ($$such_feld4 =~ /$mSuch/gim))
or (index($$such_feld13,$Such)>=0 or ($$such_feld4 =~ /$mSuch/gim))
or (index($$such_feld14,$Such)>=0 or ($$such_feld4 =~ /$mSuch/gim))
)
{
$i++;
$vFelder="@such_feld";
$Daten[$i]="$i.<a href='$_link&htx=$htx&Such=$Such&mSuch=$mSuch
&ID=$_id'>$$link_feld</a><br>";
#- als Link wird der Wert von [$link_feld] ausgegeben ---
}
}
out "Treffer: $i - ";
$treffer = $i > 0 ? "Wählen Sie nachfolgend aus:" : "Leider KEIN Treffer";
out "<b>$treffer</b><br>";
out "@Daten";
#- [Vorschau] eines ausgewählten Treffers
if($ID ne "")
{
out "<hr>";
get "Id==!$ID","$db";
# Teffer für jedes [such_feldx]rot markieren
$$such_feld1=~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;
#- sowie ggf. weitere -----------------
$$such_feld1=~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;
$$such_feld3=~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;
$$such_feld4=~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;
$$such_feld8=~ s/$Such|$mSuch/<font color=red><u>$&<\/u><\/font>/gim;
# u.s.w.
#-Layout der Vorschau (anpassen) ---
out "<b>$$link_feld</b>";
out "<br>$$such_feld1";
#- sowie ggf. weitere ---
out "<br>Kategorie: $$such_feld2";
out "<br>Aufwand 1:leicht 6:schwierig: $$such_feld3";
out "<br>Zutaten: $$such_feld4";
out "<br>Personen: $$such_feld5";
out "<br>kcal/Person: $$such_feld6";
out "<br>kJ/Person: $$such_feld7";
out "<br>Zubereitung: $$such_feld8";
out "<br>Tip: $$such_feld9";
out "<br>Variationen: $$such_feld10";
out "<br>$$such_feld11";
out "<br>geschrieben von: $$such_feld12";
out "<br>E-Mail: $$such_feld13";
out "<br>Homepage: $$such_feld14";
# u.s.w.
}
}
#######
</perl></td>
</tr>
</table>
</div>
<p> <font face="avantgarde" size=4>
<div align="center">
<center>
<table width=730><tr><td valign="top">
<font face="avantgarde" size=4>
<center>
<do action=all headbold=1 mail_put=webmaster@reiners-page.de mail_mod=EMail mail_del=*,EMail db=Rezepte range^=0, sort=Rezept searchfields=Rezept,Kategorie,Aufwand\ 1:leicht\ 6:schwierig,geschrieben\ von,E-Mail,Homepage listfields=Rezept,Kategorie,Aufwand\ 1:leicht\ 6:schwierig,geschrieben\ von,Homepage,Foto allfields=Rezept,Kategorie,Aufwand\ 1:leicht\ 6:schwierig,Zutaten,Personen,kcal/Person,kJ/Person,Zubereitung,Tip,Variationen,Bild,geschrieben\ von,E-Mail,Homepage,Foto formfields=Rezept,Kategorie,Aufwand\ 1:leicht\ 6:schwierig,Zutaten,Personen,kcal/Person,kJ/Person,Zubereitung,Tip,Variationen,Bild,geschrieben\ von,E-Mail,Homepage,Foto showamount=all,sel selectbrowse=top,bottom buttonbrowse=no pagebrowse=no border=0 gridcolor=FF8000 datacolor=000060 databack=FFFFFF headcolor=000060 headback=FFE17F headalign=middle listtype=list language=de detail=link search=link input=link localparams=+>
</center>
</td></tr></table>
</center>
</div>
<div align="center"><font color="#FFFFCC"><perl> out get "http://kochforum.funpic.de/rezeptdatenbank/zaehler/counter.php";
</perl><perl></perl></font><perl> </perl> </div>
</body>
</html>
