| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
|
| Alle Einträge zum Thema: | Zur Liste |
out "<table><tr><td><a href=\"...\">$var...";
<perl>
if (blabla)
{
out <<EOF;
<table>
<tr><td>
</table> EOF } </perl>
out <<EOF muß nicht am Beginn stehen, nur EOF - da darf dann auch nix dahinter sein.
if blablabla?
<table> <tr> <perl>
$anz_les = -1; #
{
$anz_les++; # sätze zählen
$anz_tr = $anz_les % $anz_tds;
out "<TD><font size=\"2\"><b><i>$beatname</font></b></i><br>
<font size=\"-1\" <b>$mb mb / $min min</font></b>
<A HREF=\"http://www.beatbastler.com/inhalt/beat-mp3z/$preview\"><IMG
SRC=\"http://www.beatbastler.com/images/realplaya.jpg\" WIDTH=\"38\" HEIGHT=\"34\" ALIGN=\"BOTTOM\"
BORDER=\"0\" NATURALSIZEFLAG=\"\3"></A>
<A HREF=\"http://www.beatbastler.com/inhalt/beat-mp3z/$beatmp3\"><IMG
SRC=\"http://www.beatbastler.com/images/downlogo.jpg\" WIDTH=\"26\" HEIGHT=\"28\" ALIGN=\"BOTTOM\"
BORDER=\"0\" NATURALSIZEFLAG=\"3\"></A>
<A HREF=\"javascript:test()\"><IMG
SRC=\"http://www.beatbastler.com/images/commentslogo.gif\" WIDTH=\"22\" HEIGHT=\"31\" ALIGN=\"BOTTOM\"
BORDER=\"0\" NATURALSIZEFLAG=\"3\"></A>
</TD>\";
out "</TR>\n" if ($anz_tr eq $anz_tds - 1);
}
if (!$anz_tr)
{
out "<TD> </TD>\n";
}
}
</perl>
out "<TD><font size=\"2\"><b><i>$beatname</font></b></i><br><font size=\"-1\" <b>$mb mb / $min min</font></b> <A HREF=\"http://www.beatbastler.com/inhalt/beat-mp3z/$preview\"><IMG SRC=\"http://www.beatbastler.com/images/realplaya.jpg\" WIDTH=\"38\" HEIGHT=\"34\" ALIGN=\"BOTTOM\" BORDER=\"0\" NATURALSIZEFLAG=\"\3"></A> <A HREF=\"http://www.beatbastler.com/inhalt/beat-mp3z/$beatmp3\"><IMG SRC=\"http://www.beatbastler.com/images/downlogo.jpg\" WIDTH=\"26\" HEIGHT=\"28\" ALIGN=\"BOTTOM\" BORDER=\"0\" NATURALSIZEFLAG=\"3\"></A> A HREF=\"javascript:test()\"><IMG SRC=\"http://www.beatbastler.com/images/commentslogo.gif\" WIDTH=\"22\" HEIGHT=\"31\" ALIGN=\"BOTTOM\" BORDER=\"0\" NATURALSIZEFLAG=\"3\"></A> </TD>";
}
<perl>
$anz_tds = 3 if (!$anz_tds);
get "Id==* range=0,3","test";
$anz_les = -1; #
while (get_next("test"))
{
$anz_les++; # sätze zählen
$anz_tr = $anz_les % $anz_tds;
out "<TR>\n" if (!$anz_tr);
out <<EOF;
<TD><font size=\"2\"><b><i>$beatname</font></b></i><br>
<font size=\"-1\" <b>$mb mb / $min min</font></b>
<A HREF=\"http://www.beatbastler.com/inhalt/beat-mp3z/$preview\">
<IMG SRC=\"http://www.beatbastler.com/images/realplaya.jpg\" WIDTH=\"38\" HEIGHT=\"34\"
ALIGN=\"BOTTOM\" BORDER=\"0\" NATURALSIZEFLAG=\"\3"></A> <A HREF=\"http://www.beatbastler.com/inhalt/beat-mp3z/$beatmp3\"><IMG
SRC=\"http://www.beatbastler.com/images/downlogo.jpg\" WIDTH=\"26\" HEIGHT=\"28\" ALIGN=\"BOTTOM\" BORDER=\"0\" NATURALSIZEFLAG=\"3\"></A>
<A HREF=\"javascript:test()\"><IMG SRC=\"http://www.beatbastler.com/images/commentslogo.gif\" WIDTH=\"22\" HEIGHT=\"31\" ALIGN=\"BOTTOM\"
BORDER=\"0\" NATURALSIZEFLAG=\"3\"></A></TD>
EOF
out "</TR>\n" if ($anz_tr eq $anz_tds - 1);
if (!$anz_tr)
{
out "<TD> </TD>\n";
}
</perl>
<perl>
if ($cmd eq "all")
{
out <<EOF;
<form action="http://service.kundenserver.de/cgi-bin/feedback/feedback.cgi" method="POST"
onsubmit="return_true" name="FrontPage_Form1">
<input type="hidden" name="Info" value="ja"><input type="hidden" name="FBLOCATION"
value="http://www.medi-web.de/praxisboerse/erfolg2.htm"><input type="hidden" name="FBMAIL"
value="info@medi-web.de"><input type="hidden" name="FBSUBJECT"
value="Interesse an Praxis mit Code $Code"><div align="left"><table border="0"
cellpadding="3" cellspacing="0" bordercolor="#C0C0C0">
<tr>
<td valign="top"><div align="left"><hr size="1" color="#C0C0C0">
<p><font face="Arial" color="#0000FF">Bitte wählen Sie zuerst <strong>eine</strong>
Praxis aus und fordern Sie mehr Informationen an!</font></p>
<table border="1" cellpadding="6" cellspacing="0" width="600" bgcolor="#DFDFDF"
bordercolor="#C0C0C0">
<tr>
<td valign="top" colspan="2"><font face="Arial" color="#400040"><strong>Bitte senden Sie
die Infos an...</strong></font></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td align="right" valign="top"><font size="2" face="Arial" color="#400040"><strong>Name/Adresse</strong></font></td>
<td><font size="2" face="Arial" color="#400040"><textarea name="Name_Adresse" rows="3"
cols="30" wrap="virtual"></textarea></font></td>
</tr>
<tr>
<td align="right"><font size="2" face="Arial" color="#400040"><strong>Telefon</strong></font></td>
<td><font face="Arial" color="#400040"><input type="text" size="30" name="Telefon"></font></td>
</tr>
<tr>
<td align="right"><font size="2" face="Arial" color="#400040"><strong>Fax</strong></font></td>
<td><font face="Arial" color="#400040"><input type="text" size="30" name="Fax"></font></td>
</tr>
<tr>
<td align="right"><font size="2" face="Arial" color="#400040"><strong>e-mail</strong></font></td>
<td><font face="Arial" color="#400040"><input type="text" size="30" name="email"></font></td>
</tr>
<tr>
<td align="right"><font size="2" face="Arial" color="#400040"><strong>Rückruf sofort</strong></font></td>
<td valign="top"><font face="Arial" color="#400040"><small><strong><small>JA <input
type="radio" value="ja" checked name="Rueckruf"> NEIN</small></strong></small><input
type="radio" name="Rueckruf" value="nein"></font></td>
</tr>
<tr>
<td> </td>
<td align="left"><font face="Arial"><input type="submit" name="B2" value="Abschicken">
<input type="reset" name="B1" value="Verwerfen"></font></td>
</tr>
</table>
</div></td>
</tr>
</table>
</div>
</form>
EOF
}
</perl>
Wenn ich nun das Formular abschicke erhalte ich die bp-Seite mit folgender URL:
| Liste der Einträge von 53550 bis 53625: | Einklappen | Zur Eingabe |
| Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |