baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
|
Alle Einträge zum Thema: | Zur Liste |
<select name="Land~=" size=1> <option> </option> <loop db=lastminute sort=Land> <option value=$Land>$Land </loop> </select>
<loop db=lastminute sort=Land code=perl> $laender{$land}++; </loop> <select name="Land~=" size=1> <option> </option> <perl> foreach $land(keys %laender) { out "<option value=$land>$land</option>\n"; } </perl> </select>
$laender{$Land}++;
get "PLZ==12345", "adressen"; out $_amount;
get "d_okey==* range=0,6000","../bgd/bgdata"; while (get_next("../bgd/bgdata")) { $Anzahl{$d_okey}++; } &do_content_o("400","396","","",""); # Ausgabe Content-Section &do_headline("Adress-Statistik","","","220"); # Ausgabe Content-Headline out <<EOF; <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0> <TR><TD ALIGN="center"> <TABLE WIDTH='90%' BORDER=0> <TR><TH CLASS='th1'> Ort</TH> <TH CLASS='th1'> Adr </TH></TR> EOF $work_count = 0; # foreach $d_okey(sort (keys %Anzahl)) foreach $d_okey(sort {$a<=>$b}keys %Anzahl) { get "o_okey==$d_okey & o_okey2==1", "../bgd/bgorte";
if (($o_okey eq $d_okey) && ($o_okey2 eq "1")) { $work_ort = $o_ortgesamt; # Ortsname } else { $work_ort = "kein Ort! "; # Ortsname not found } out "<TR BGCOLOR=" . ($work_count %2 ? "#A0A0A0" : "#E0E0E0") . ">\n"; out "<TD CLASS='b8' ALIGN='left' NOWRAP> $d_okey $work_ort </TD>"; out "<TD CLASS='b8' ALIGN='right' NOWRAP> $Anzahl{$d_okey} </TD>"; out "</TR>\n"; $work_count++; } out "</TD></TR></TABLE>";
out "Runtime : "; out runtime(); out "<BR><BR><A CLASS='link3' HREF='javascript:window.close();'>[Schliessen]</A>\n"; out "</TD></TR></TABLE>\n"; &do_content_u; # Ausgabe Content-Section Unten </perl> </BODY></HTML>
get "d_okey==* range=0,6000","../bgd/bgdata"; while (get_next("../bgd/bgdata")) { $Anzahl{$d_okey}++; } foreach $d_okey(sort {$a<=>$b}keys %Anzahl) { get "o_okey==$d_okey & o_okey2==1", "../bgd/bgorte";
if (($o_okey eq $d_okey) && ($o_okey2 eq "1")) { $work_ort = $o_ortgesamt; # Ortsname } else { $work_ort = "kein Ort! "; # Ortsname not found } $d_okey $work_ort $Anzahl{$d_okey} }
<perl> if($cmd eq "put") { get "PLZ==$_put{PLZ}", "statistik"; mod [ "PLZ", $_put{PLZ}, "Anzahl", $Anzahl+1 ], "statistik"; } </perl>
>> Was mir bei Dir immer gefällt: Du kennst Dich (anscheinend ;-) ) ziemlich gut mit Oracle, SQL und dem ganzen Kram aus und hast es ja auch und benutzt trotzdem baseportal - irgendeinen Vorteil scheint baseportal denen ggü. dann doch zu besitzen und das freut mich natürlich ;-)))
Liste der Einträge von 47400 bis 47550: | 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 |