Die Vereine des
Leichtathletikkreises
BERGISCHES LAND

 0) { $handle = fopen ("vereine_bak.txt", "w+"); fwrite( $handle, $erg); fclose ($handle); $zl = spacer( $vein, 30). spacer( $name, 30). spacer( $stra, 30). spacer( $plz, 5). spacer( $wort, 30). spacer( $tele, 30). spacer( $mail, 50). spacer( $home, 50). spacer( $stad, 30); $handle = fopen ("vereine.txt", "w"); for ($i=0; $i<$id; $i++) fwrite( $handle, $f[$i]."\r\n"); fwrite( $handle, $zl ."\r\n"); for ($i=$id+1; $i$stad) echo( "
$stad: \n"); $ostad=$stad; echo( "$vein "); } ?>

zurück
\n"); echo( $name."
\n"); echo( $stra."
\n"); echo( $plz."
\n"); echo( $wort."
\n"); echo( $tele."
\n"); echo( $mail."
\n"); echo( $home."
\n"); echo( $stad."
\n"); mOrt = "*" use vsort go top do while .not. eof() xOrt = upper( rtrim( STADT)) if xOrt <> mOrt ? ""+rtrim( STADT)+"  " mOrt = xOrt endif skip enddo ? "(alphabetisch sortiert)

" ? "Hat ihr Vereine eine eMail-Adresse oder eine Homepage?
" ? "webmaster at bergische-leichtathletik de

" ? "

" mOrt = "*" tdz = 0 ? "" go top do while .not. eof() xOrt = upper( rtrim( STADT)) if xOrt <> mOrt if tdz = 1 ? "" endif ? "
" ? "" ? "

"+rtrim( STADT)+"

" ? "" mOrt = xOrt tdz = 0 endif tdz = tdz + 1 if tdz = 3 tdz = 1 ? "" endif ? "" if tdz = 2 ? "" endif skip enddo ? "
" ? ""+rtrim(VEREIN)+"
" if ANSCHR1<>" " ? rtrim(ANSCHR1)+"
" endif ? rtrim(STRASSE)+"
" ? rtrim(PLZ)+" "+rtrim(ORT)+"
" ? rtrim(TEL)+"
" if subs(EMAIL,1,1)<>" " mEM = rtrim(EMAIL) if "@" $ mEM x = at( "@", mEM) l = len( mEM) ? left( mEM,x-1)+" at "+right( mEM, l-x)+"
" else ? mEM+"
" endif endif if subs(WWW,1,1)<>" " mEM = rtrim(WWW) ? ""+mEM+"
" endif ? "
" ? "
" */ ?>