10 Einträge, 1 Seite |
1
2
3
4
5
6
<TD align=right colSpan=2>
<P class=txtr><B>[1]</B> <A class=blue
href="http://www.files.de/Windows/Windows_XP/Programmierung/Programmierung/Active_X_DLL/seite_2.html">[2]</A>
<A class=blue
href="http://www.files.de/Windows/Windows_XP/Programmierung/Programmierung/Active_X_DLL/seite_3.html">[3]</A>
<A class=blue
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
$sel = "select ..........."
my $sth = $dbh->prepare($sel);
$sth->execute();
.....
if ($sort1 eq "dat")
{
while (my ($hindat, $backdat, $gpreis) = $sth->fetchrow_array())
{
my $fhindat = substr($hindat,8,2).".".substr($hindat,5,2).".".substr($hindat,0,4);
my $fbackdat = substr($backdat,8,2).".".substr($backdat,5,2).".".substr($backdat,0,4);
my $fgpreis = $gpreis." EUR";
"<table class='blind' cellspacing='10'><tr>",
"<td>$fhindat</td><td>$fbackdat</td><td>$fgpreis</td><td></td>",
"</tr></table>",
}
}
....
10 Einträge, 1 Seite |