kostenloser Webspace werbefrei: lima-city

in: Iphone aktivieren

geschrieben von kevinweiler

in: USB Plattenspieler mit Timecode nutzbar ?

geschrieben von kevinweiler

in: Extremwertaufgabe

geschrieben von kevinweiler

in: Extremwertaufgabe

geschrieben von kevinweiler

in: Operator ist auf den Operandentyp nicht anwendbar

geschrieben von kevinweiler

unit buchstabenakzeptor_u;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const ziffern = ['0'..'9'];
      grossbuchstaben = ['A'..'Z'];
      kleinbuchstaben = ['a'..'z'];
      unterlaenge = ['_'];

type
  TForm1 = class(TForm)
    bt_eingabe: TButton;
    bt_test: TButton;
    bt_ende: TButton;
    procedure bt_endeClick(Sender: TObject);
    procedure bt_eingabeClick(Sender: TObject);
    procedure bt_testClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
type Tzustand = (z0,z1,z2);
var
  Form1: TForm1;
  zeichen: string;

implementation

{$R *.dfm}

procedure TForm1.bt_endeClick(Sender: TObject);
begin
  close
end;

procedure TForm1.bt_eingabeClick(Sender: TObject);
begin
  Zeichen:= inputbox('Buchstabenfolge eingeben','Eingabe','');

end;

procedure TForm1.bt_testClick(Sender: TObject);
var i : integer;
    zustand : Tzustand;
begin

  if not (zeichen[1] in (Grossbuchstaben)) or not (zeichen[1] in (Kleinbuchstaben))
    then zustand := z0
    else zustand := z1;
  for i:=2 to length(zeichen) do
    if not (zeichen[i] in (Grossbuchstaben)) and
       not (zeichen[i] in (Ziffern)) and
       not (zeichen[i] in (Kleinbuchstaben)) and
       not (zeichen[i] in (unterlaenge)) or
       not (zustand=z1)
    then zustand := z0
    else zustand := z2;
  end;


  if zustand = z0
    then showmessage('Da war was falsch!')
    else showmessage('Gut gemacht. Das war richtig');

end;

end.

in: Operator ist auf den Operandentyp nicht anwendbar

geschrieben von kevinweiler

in: Operator ist auf den Operandentyp nicht anwendbar

geschrieben von kevinweiler

unit buchstabenakzeptor_u;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const ziffern = [0..9];
      grossbuchstaben = ['A'..'Z'];
      kleinbuchstaben = ['a'..'z'];
      unterlaenge = ['_'];

type
  TForm1 = class(TForm)
    bt_eingabe: TButton;
    bt_test: TButton;
    bt_ende: TButton;
    procedure bt_endeClick(Sender: TObject);
    procedure bt_eingabeClick(Sender: TObject);
    procedure bt_testClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  zeichen: string;

implementation

{$R *.dfm}

procedure TForm1.bt_endeClick(Sender: TObject);
begin
  close
end;

procedure TForm1.bt_eingabeClick(Sender: TObject);
begin
  Zeichen:= inputbox('Buchstabenfolge eingeben','Eingabe','');

end;

procedure TForm1.bt_testClick(Sender: TObject);
var i : integer;
begin
  if zeichen[1] not in (Grossbuchstaben) or (Kleinbuchstaben)
    then showmessage('Unkorrekt!')
    else begin
           for i := 2 to Length(zeichen) do
             if zeichen[i] not in (Grossbuchstaben) and (Ziffern) and (Kleinbuchstaben) and (unterlaenge)
               then showmessage('Unkorrekt');
               else showmessage('Korrekte Buchstabenfolge');
           end;
         end;
end;

end.

in: Operator ist auf den Operandentyp nicht anwendbar

geschrieben von kevinweiler

begin
  if zeichen[1] not in (Grossbuchstaben) or (Kleinbuchstaben)
    then showmessage('Unkorrekt!')
    else begin
           for i := 2 to Length(zeichen) do
             if zeichen[i] not in (Grossbuchstaben) and (Ziffern) and (Kleinbuchstaben) and (unterlaenge)
               then showmessage('Unkorrekt');
               else showmessage('Korrekte Buchstabenfolge');
           end;
         end;

in: Schriftart gesucht

geschrieben von kevinweiler

in: Welcher Sport für Ausdauer?

geschrieben von kevinweiler

in: Eure Favoriten für die CL 2011/2012

geschrieben von kevinweiler

in: 1 & 1 Komplettpaket

geschrieben von kevinweiler

in: Linksys WLAN Router funktioniert nur bei einem PC

geschrieben von kevinweiler

in: Glücksspielautomat

geschrieben von kevinweiler

unit zufall_u;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
  Tfm_zufall = class(TForm)
    sh_1: TShape;
    bt_zufall: TButton;
    bt_ende: TButton;
    ti_zufall: TTimer;
    bt_automatisch: TButton;
    Splitter1: TSplitter;
    sh_2: TShape;
    sh_3: TShape;
    procedure bt_endeClick(Sender: TObject);
    procedure bt_zufallClick(Sender: TObject);
    procedure bt_automatischClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  fm_zufall: Tfm_zufall;
  z    : integer;
  x    : integer;
  y    : integer;
implementation

{$R *.dfm}

procedure Tfm_zufall.bt_endeClick(Sender: TObject);
begin
  close
end;

procedure Tfm_zufall.bt_zufallClick(Sender: TObject);
begin
  randomize;
  z := random (5) + 1;
  if z = 1
    then sh_1.Brush.color := clhighlight;
  if z = 2
    then sh_1.brush.color := clred;
  if z = 3
    then sh_1.brush.color := clfuchsia;
  if z = 4
    then sh_1.Brush.Color := clyellow;
  if z = 5
    then sh_1.brush.color := clgreen;
  randomize;
  x := random (5) + 1;
  if x = 1
    then sh_2.Brush.color := clhighlight;
  if x = 2
    then sh_2.brush.color := clred;
  if x = 3
    then sh_2.brush.color := clfuchsia;
  if x = 4
    then sh_2.Brush.Color := clyellow;
  if x = 5
    then sh_2.brush.color := clgreen;
  randomize;
  y := random (5) + 1;
  if y = 1
    then sh_3.Brush.color := clhighlight;
  if y = 2
    then sh_3.brush.color := clred;
  if y = 3
    then sh_3.brush.color := clfuchsia;
  if y = 4
    then sh_3.Brush.Color := clyellow;
  if y = 5
    then sh_3.brush.color := clgreen;
end;

procedure Tfm_zufall.bt_automatischClick(Sender: TObject);
  begin

   if
     (x = y) and (y = z)
       then begin
              ti_zufall.Enabled := false;
              showmessage('Herzlichen Glückwunsch! Du hast gewonnen!');
              bt_automatisch.Caption := 'Noch ein Spiel';
            end

         else begin
              ti_zufall.Enabled := false;
              showmessage('Verloren! Es sind 10 € an den Programmierer zu zahlen!');
              bt_automatisch.caption := 'Weiter versuchen';
              end
              





  end;





procedure Tfm_zufall.FormCreate(Sender: TObject);
begin
  bt_zufall.visible := false
end;



end.

in: LG KM 900 ins Wasser gefallen

geschrieben von kevinweiler

in: Popup zur bestimmten Zeit öffnen

geschrieben von kevinweiler

in: Popup zur bestimmten Zeit öffnen

geschrieben von kevinweiler

in: Javascript Countdown Silvester + Feuerwerk

geschrieben von kevinweiler

in: TP Link WA501 G Access Point mit Router verbinden ?

geschrieben von kevinweiler

in: TP Link WA501 G Access Point mit Router verbinden ?

geschrieben von kevinweiler

in: Achtung betrügerische Mail

geschrieben von kevinweiler

PayPal
Informationen zu Ihrem Konto:

Sehr geehrter Kunde PayPal:
  Im Rahmen unserer Sicherheitsmaßnahmen,Wir haben vor kurzem festgestellt, dass die einzelnen Computer mit Ihrem PayPal-Konto ohne Ihre Erlaubnis.
Wir mssen jetzt bestätigen erneut die Informationen von Ihrem PayPal-Konto.
Wir danken Ihnen fr Ihr Verständnis fr diese Weise.
Zur Bestätigung Ihrer Online-Konto:
https://www.paypal.com/de/cgi-bin/webscr?access=124656



Anmerkung: Wenn nicht abgeschlossen am 12. August 2009, sind wir gezwungen, Ihr Konto auf unbestimmte Zeit auszusetzen, denn es kann zu betrgerischen
________________________________________
Mit besten Grßen. 
PayPal Email ID: 5138-8872 
Paypal Sicherheit und Betrugsbekämpfung Departement 
Copyright 1999-2009 PayPal. Alle Rechte vorbehalten.

in: Kalender Script

geschrieben von kevinweiler

in: Kalender Änderfunktion

geschrieben von kevinweiler

in: Kalender Änderfunktion

geschrieben von kevinweiler

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta http-equiv="expires" content="0">
<title>Kalender</title>
<link rel="stylesheet" type="text/css" href="styles.css">
<script language="JavaScript" type="text/javascript">
<!--
 function fSelAll(bStat){
  for(var i=0;i<self.document.TerminListe.length;++i)
   if(self.document.TerminListe.elements[i].type=='checkbox') self.document.TerminListe.elements[i].checked=bStat;
 }
// -->
</script>
</head>

<body>
<h1><img src="_kalender.gif" width="19" height="25" border="0" align="bottom" alt=""> Kalender-Script: Terminübersicht</h1>

<?php
include('programmPfad.php'); define('NL',"\n"); $Msg=''; $bOK=false;
if(file_exists($Pfad.'kalWerte.php')){
 include($Pfad.'kalWerte.php'); $nFelder=count($kal_FeldName); if(KAL_NListeAnders) $kal_ListenFeld=$kal_NListenFeld; $sLschNun='';
 if(isset($_POST['LschForm'])){ //Termine löschen
  $aId=array(); while(list($k,)=each($_POST)) if(substr($k,4,1)=='L') $aId[(int)substr($k,5)]=true; //Löschnummern
  if(count($aId)>0&&file_exists('loeschen.php')){
    { //jetzt löschen
    if(!KAL_SQL){ //Textdatei
     $aD=file(KAL_Pfad.KAL_Daten.KAL_Termine); $nSaetze=count($aD);
     for($i=1;$i<$nSaetze;$i++){$s=substr($aD[$i],0,12); $n=(int)substr($s,0,strpos($s,';')); if($aId[$n]) $aD[$i]='';} //löschen
     if($f=fopen(KAL_Pfad.KAL_Daten.KAL_Termine,'w')){
      fwrite($f,rtrim(implode('',$aD)).NL); fclose($f);
      $bOK=true; $Msg='<p class="kalMeld">'.KAL_TxLoescheErfo.'</p>';
     }else $Msg='<p class="kalFehl">'.str_replace('#','<i>'.KAL_Daten.KAL_Termine.'</i>',KAL_TxDateiRechte).'</p>';
    }else{ //bei SQL
     if($DbC=@mysql_connect(KAL_SqlHost,KAL_SqlUser,KAL_SqlPass)){
      if(@mysql_select_db(KAL_SqlDaBa,$DbC)){
       $s=''; while(list($k,)=each($aId)) $s.=' OR id='.$k;
       if(mysql_query('DELETE FROM '.KAL_SqlTabT.' WHERE '.substr($s,4))){
        $bOK=true; $Msg='<p class="kalMeld">'.KAL_TxLoescheErfo.'</p>';
       }else $Msg='<p class="kalFehl">'.KAL_TxSqlFrage.'</p>';
      }else $Msg='<p class="kalFehl">'.KAL_TxSqlDaBnk.'</p>'; mysql_close($DbC);
     }else $Msg='<p class="kalFehl">'.KAL_TxSqlVrbdg.'</p>';
    }//SQL
    if((in_array('b',$kal_FeldType)||in_array('f',$kal_FeldType))&&$bOK){ //Bilder und Dateien
     if($f=opendir(KAL_Pfad.substr(KAL_Bilder,0,-1))){
      $aD=array(); while($s=readdir($f)) if($i=(int)$s) if($aId[$i]) $aD[]=$s; closedir($f);
      foreach($aD as $s) @unlink(KAL_Pfad.KAL_Bilder.$s);
     }
    }//Bilder
   }//jetzt löschen
  }else $Msg='<p class="kalMeld">'.KAL_TxKeineAenderung.'</p>';
 }//LschForm

 $aD=array(); $aSpalten=array(); $nSpalten=0; $aQ=array(); $sQ=''; $nDatFeld2=0; //Abfrageparameter aufbereiten
 for($i=0;$i<$nFelder;$i++){ //Abfrageparameter aufbereiten
  $t=$kal_FeldType[$i]; $aSpalten[$kal_ListenFeld[$i]]=$i;
  $s=$_POST['kal_'.$i.'F1'].$_GET['kal_'.$i.'F1'];
  if(strlen($s)){
   $sQ.='&amp;kal_'.$i.'F1='.urlencode($s); $aQ[$i.'F1']=$s; if($i<=1) $bOhneGrenze=true;
   if($t!='d'&&$t!='@') $a1Filt[$i]=$s; else $a1Filt[$i]=fKalNormDatum($s);
  }
  $s=$_POST['kal_'.$i.'F2'].$_GET['kal_'.$i.'F2'];
  if(strlen($s)){
   $sQ.='&amp;kal_'.$i.'F2='.urlencode($s); $aQ[$i.'F2']=$s; if($t!='d'&&$t!='@') $a2Filt[$i]=$s; else{$a2Filt[$i]=fKalNormDatum($s); if($i==1) $bOhneGrenze=true;}
   if($t=='d'||$t=='@'||$t=='w'||$t=='n'||$t=='1'||$t=='2'||$t=='3'||$t=='r'||$t=='i'){if(empty($a1Filt[$i])) $a1Filt[$i]='0';}
   elseif($t=='j'||$t=='v') if(empty($a1Filt[$i])) $a1Filt[$i]='';
  }
  $s=$_POST['kal_'.$i.'F3'].$_GET['kal_'.$i.'F3'];
  if(strlen($s)){$a3Filt[$i]=$s; $sQ.='&amp;kal_'.$i.'F3='.urlencode($s); $aQ[$i.'F3']=$s;}
  if($t=='d'&&$i>1&&$nDatFeld2==0&&KAL_EndeDatum) $nDatFeld2=$i; //2.Datum
 }
 $sIntervallAnfang=date('Y-m-d',time()-86400*KAL_ZeigeAltesNochTage); $sIntervallEnde='99';
 if($_GET['kal_Archiv'].$_POST['kal_Archiv']){$bArchiv=true; $sIntervallEnde=$sIntervallAnfang; $sIntervallAnfang='00';} else $bArchiv=false;
 if($bOhneGrenze){$sIntervallAnfang='00'; $sIntervallEnde='99'; $bArchiv=false;}

 $aSpalten[0]=0; $nSpalten=count($aSpalten); $aTmp=array(); $aIdx=array(); //Daten bereitstellen
 if(!KAL_SQL){ //Textdaten
  $aD=file(KAL_Pfad.KAL_Daten.KAL_Termine); $nSaetze=count($aD);
  for($i=1;$i<$nSaetze;$i++){ //über alle Datensätze
   $a=explode(';',rtrim($aD[$i])); $sId=(int)$a[0]; $sAnfangDat=substr($a[1],0,10); $sEndeDat=$sAnfangDat;
   if(KAL_EndeDatum&&$nDatFeld2>0) if(!$sEndeDat=substr($a[$nDatFeld2],0,10)) $sEndeDat=$sAnfangDat;
   $b=(ADM_ZeigeAltes||(KAL_EndeDatum?$sEndeDat:$sAnfangDat)>=$sIntervallAnfang); //kommend oder laufend
   if($b&&$bArchiv) if($sAnfangDat>$sIntervallEnde) $b=false; //Archivfilter
   if($b&&is_array($a1Filt)){
    reset($a1Filt);
    while($b&&(list($j,$v)=each($a1Filt))){ //Suchfiltern 1-2
     $t=$kal_FeldType[$j]; $w=$a2Filt[$j]; //$v Suchwort1, $w Suchwort2
     if($t=='t'||$t=='m'||$t=='g'||$t=='a'||$t=='k'||$t=='s'||$t=='l'||$t=='e'||$t=='b'||$t=='f'||$t=='c'||$t=='u'||$t=='x'){
      if(strlen($w)){if(stristr(str_replace('`,',';',$a[$j]),$w)) $b2=true; else $b2=false;} else $b2=false;
      if(!(stristr(str_replace('`,',';',$a[$j]),$v)||$b2)) $b=false;
     }elseif($t=='d'){ //Datum
      $s=substr($a[$j],0,10); //$s Datensatzdatum
      if($j==1&&KAL_EndeDatum){ //Termindatum
       if(!$sEndeDatum=substr($a[$nDatFeld2],0,10)) $sEndeDatum=$s;
       if(empty($w)){if($s>$v||$sEndeDatum<$v) $b=false;} elseif($s>$w||$sEndeDatum<$v) $b=false;
      }else{if(empty($w)){if($s!=$v) $b=false;} elseif($s<$v||$s>$w) $b=false;} //sonstiges Datum
     }elseif($t=='@'){ //EintragsDatum
      if(empty($w)){if($s!=$v) $b=false;} elseif($s<$v||$s>$w) $b=false;
     }elseif($t=='i'||$t=='n'||$t=='1'||$t=='2'||$t=='3'||$t=='r'||$t=='w'){
      $v=floatval(str_replace(',','.',$v)); $w=floatval(str_replace(',','.',$w));
      $s=floatval(str_replace(',','.',$a[$j]));
      if($w<=0){if($s!=$v) $b=false;} else{if($s<$v||$s>$w) $b=false;}
     }elseif($t=='o'){
      if($k=strlen($w)){if(substr($a[$j],0,$k)==$w) $b2=true; else $b2=false;} else $b2=false;
      if(!(substr($a[$j],0,strlen($v))==$v||$b2)) $b=false;
     }elseif($t=='j'||$t=='v'){$v.=$w; if(strlen($v)==1){$w=$a[$j]; if(($v=='J'&&$w!='J')||($v=='N'&&$w=='J')) $b=false;}}
    }
   }
   if($b&&is_array($a3Filt)){ //Suchfiltern 3
    reset($a3Filt); while(list($j,$v)=each($a3Filt))
     if($kal_FeldType[$j]!='o'){if(stristr(str_replace('`,',';',$a[$j]),$v)){$b=false; break;}}
     else{if(substr($a[$j],0,strlen($v))==$v){$b=false; break;}}
   }
   if($b){ //Datensatz gültig
    $aTmp[$sId]=array($sId); $aIdx[$sId]=sprintf('%0'.KAL_NummerStellen.'d',$i);
    for($j=1;$j<$nSpalten;$j++) $aTmp[$sId][]=str_replace('\n ',NL,str_replace('`,',';',$a[$aSpalten[$j]]));
   }
  }$aD=array();
 }else{ //SQL
  if($DbC=mysql_connect(KAL_SqlHost,KAL_SqlUser,KAL_SqlPass)){
   if(mysql_select_db(KAL_SqlDaBa,$DbC)){
    if($sIntervallAnfang>'00'&&!ADM_ZeigeAltes){
     if($nDatFeld2==0||!KAL_EndeDatum) $s=' AND kal_1>"'.$sIntervallAnfang.'"';
     else $s=' AND(kal_'.$nDatFeld2.'>"'.$sIntervallAnfang.'" OR kal_1>"'.$sIntervallAnfang.'")';
    }elseif($bArchiv) $s=' AND kal_1<="'.$sIntervallEnde.'~"'; else $s='';
    if(is_array($a1Filt)) while(list($j,$v)=each($a1Filt)){ //Suchfiltern 1-2
     $s.=' AND(kal_'.$j; $w=$a2Filt[$j]; $t=($kal_FeldType[$j]); //$v Suchwort1, $w Suchwort2
     if($t=='t'||$t=='m'||$t=='g'||$t=='a'||$t=='k'||$t=='s'||$t=='l'||$t=='e'||$t=='b'||$t=='f'||$t=='c'||$t=='u'||$t=='x'){
      $s.=' LIKE "%'.$v.'%"'; if(strlen($w)) $s.=' OR kal_'.$j.' LIKE "%'.$w.'%"';
     }elseif($t=='d'){
      if($j==1&&KAL_EndeDatum){ //Termindatum
       if(empty($w)){$s.='<"'.$v.'~" AND kal_'.($nDatFeld2==0?1:$nDatFeld2).'>"'.$v.'" OR kal_'.$j.' LIKE "'.$v.'%"';} // nur 1 Wert
       else{$s.=' BETWEEN "'.$v.'" AND "'.$w.'~" OR kal_'.($nDatFeld2==0?1:$nDatFeld2).' BETWEEN "'.$v.'" AND "'.$w.'~"';}
      }else{if(empty($w)) $s.=' LIKE "'.$v.'%"'; else $s.=' BETWEEN "'.$v.'" AND "'.$w.'~"';} //sonstiges Datum
     }elseif($t=='@'){
      if(empty($w)) $s.=' LIKE "'.$v.'%"'; else $s.=' BETWEEN "'.$v.'" AND "'.$w.'~"';
     }elseif($t=='i'||$t=='n'||$t=='1'||$t=='2'||$t=='3'||$t=='r'||$t=='w'){
      $v=str_replace(',','.',$v);
      if(strlen($w)) $s.=' BETWEEN "'.$v.'" AND "'.str_replace(',','.',$w).'"'; else $s.='="'.$v.'"';
     }elseif($t=='o'){
      $s.=' LIKE "'.$v.'%"'; if(strlen($w)) $s.=' OR kal_'.$j.' LIKE "'.$w.'%"';
     }elseif($t=='j'||$t=='v'){$v.=$w; if(strlen($v)==1) $s.=($v=='J'?'=':'<>').'"J"'; else $s.='<>"@"';}
     $s.=')';
    }
    if(is_array($a3Filt)) while(list($j,$v)=each($a3Filt)){ //Suchfiltern 3
     $t=$kal_FeldType[$j];
     if($t=='t'||$t=='m'||$t=='g'||$t=='a'||$t=='k'||$t=='s'||$t=='l'||$t=='e'||$t=='b'||$t=='f'||$t=='c'||$t=='u'||$t=='x')
      $s.=' AND NOT(kal_'.$j.' LIKE "%'.$v.'%")';
     elseif($t=='o') $s.=' AND NOT(kal_'.$j.' LIKE "'.$v.'%")';
    }
    $t=''; for($j=1;$j<$nSpalten;$j++) $t.=',kal_'.$aSpalten[$j]; $i=0;

    if($rR=mysql_query('SELECT id'.$t.' FROM '.KAL_SqlTabT.' WHERE online="1"'.$s.' ORDER BY kal_1'.($nFelder>1?',kal_2'.($nFelder>2?',kal_3':''):'').',id')){
     while($a=mysql_fetch_row($rR)){
      $sId=(int)$a[0]; $aTmp[$sId]=array($sId); $aIdx[$sId]=sprintf('%0'.KAL_NummerStellen.'d',++$i);
      for($j=1;$j<$nSpalten;$j++) $aTmp[$sId][]=str_replace("\r",'',$a[$j]);
     }mysql_free_result($rR);
    }else $Msg='<p class="kalFehl">'.KAL_TxSqlFrage.'</p>';
   }else $Msg='<p class="kalFehl">'.KAL_TxSqlDaBnk.'</p>'; mysql_close($DbC);
  }else $Msg='<p class="kalFehl">'.KAL_TxSqlVrbdg.'</p>';
 }//SQL
 if(!$nStart=(int)($_GET['kal_Start'].$_POST['kal_Start'])) $nStart=1; $nStop=$nStart+ADM_ListenLaenge;
 if(ADM_Rueckwaerts) arsort($aIdx);
 reset($aIdx); $k=0; while(list($i,)=each($aIdx)) if(++$k<$nStop&&$k>=$nStart) $aD[]=$aTmp[$i];
 if(!$Msg) if(!$sQ) $Msg='<p class="kalMeld">Gesamt-Termin'.($bArchiv?'archiv':'liste').'</p>'; else $Msg='<p class="kalMeld">'.($bArchiv?'Archiv':'Termin').'abfrageergebnis</p>';
}else $Msg='<p class="kalFehl">Setup-Fehler: Die Datei <i>kalWerte.php</i> im Programmverzeichnis kann nicht gelesen werden!</p>';

//Scriptausgabe
$sHttp='http'.($_SERVER['SERVER_PORT']!='443'?'':'s').'://'.KAL_Www;
?>

<table style="width:750px" border="0" cellpadding="0" cellspacing="0">
 <tr>
  <td><?php echo $Msg?></td>
  <td align="right">
   <?php if(!ADM_ZeigeAltes){?>[ <a href="liste.php">Terminliste</a> ] [ <a href="liste.php?kal_Archiv=1">Terminarchiv</a> ]<?php }?>
   <?php if(file_exists('suche.php')){?>[ <a href="suche.php?<?php echo substr($sQ.($bArchiv?'&amp;kal_Archiv=1':''),5)?>">Terminsuche</a> ]<?php }?>
  </td>
 </tr>
</table>
<?php $sNavigator=fKalNavigator($nStart,count($aIdx),ADM_ListenLaenge,$sQ,$bArchiv); echo $sNavigator;?>

<form name="TerminListe" action="liste.php" method="post">
<input type="hidden" name="LschForm" value="1" />
<input type="hidden" name="LschNun" value="<?php echo $sLschNun?>" />
<input type="hidden" name="kal_Archiv" value="<?php echo ($bArchiv?'1':'')?>" />
<table class="kalTabl" width="750" border="0" cellpadding="2" cellspacing="1">
<?php //Kopfzeile
 echo    '<tr class="kalTabl">';
 echo NL.' <td align="center"><b>Nr.</b></td>'.NL.' <td>&nbsp;</td>'.NL.' <td>&nbsp;</td>';
 for($j=1;$j<$nSpalten;$j++) echo NL.' <td><b>'.htmlentities($kal_FeldName[$aSpalten[$j]]).'</b></td>';
 echo NL.'</tr>';
 if($nStart>1) $sQ.='&amp;kal_Start='.$nStart; $aQ['Start']=$nStart;
 $bAendern=file_exists('aendern.php'); $bKopiere=file_exists('kopieren.php'); $bDetail=file_exists('detail.php');
 foreach($aD as $a){ //Datenzeilen ausgeben
  $sId=$a[0];
  echo NL.'<tr class="kalTabl">';
  echo NL.' <td align="right" valign="top">'.$sId.'&nbsp;<input class="kalCheck" type="checkbox" name="kal_L'.$sId.'" value="1"'.($aId[$sId]?' checked="checked"':'').' /></td>';
  echo NL.' <td align="center" valign="top">'.($bAendern?'<a href="aendern.php?kal_Num='.$sId.$sQ.'"><img src="'.$sHttp.'grafik/iconAendern.gif" width="12" height="13" border="0" title="Bearbeiten"></a>':'&nbsp;').'</td>';
  echo NL.' <td align="center" valign="top">'.($bKopiere?'<a href="kopieren.php?kal_Num='.$sId.$sQ.'"><img src="'.$sHttp.'grafik/iconKopieren.gif" width="12" height="13" border="0" title="Kopieren"></a>':'&nbsp;').'</td>';
  for($j=1;$j<$nSpalten;$j++){
   $k=$aSpalten[$j]; $t=$kal_FeldType[$k]; $sStil='';
   if($s=$a[$j]){
    switch($t){
     case 't': case 'm': case 'g': $s=fKalBB($s); break; // Text/Memo
     case 'a': case 'k': case 'o': case 'u': break; // so lassen
     case 'd': case '@': $w=substr($s,11,1); // Datum
      $s1=substr($s,8,2); $s2=substr($s,5,2); $s3=(KAL_Jahrhundert?substr($s,0,4):substr($s,2,2));
      switch(KAL_Datumsformat){ //0:yy-mm-dd 1:dd.mm.yy 2:mm/dd/yy 3:dd/mm/yy 4:dd-mm-yy
       case 0: $v='-'; $s1=$s3; $s3=substr($s,8,2); break; case 1: $v='.'; break;
       case 2: $v='/'; $s1=$s2; $s2=substr($s,8,2); break; case 3: $v='/'; break; case 4: $v='-'; break;
      }
      $s=$s1.$v.$s2.$v.$s3;
      if($t=='d'){if(KAL_MitWochentag) if(KAL_MitWochentag<2) $s=$kal_WochenTag[$w].'&nbsp;'.$s; else $s.='&nbsp;'.$kal_WochenTag[$w];}
      if($j==1&&$bDetail) $s='<a href="detail.php?kal_Num='.$sId.$sQ.($bArchiv?'&amp;kal_Archiv=1':'').'">'.$s.'</a>';
      break;
     case 'z': $sStil.='text-align:center;'; break; // Uhrzeit
     case 'w': // Währung
      if($s>0||!KAL_PreisLeer){
       $s=number_format($s,KAL_Dezimalstellen,KAL_Dezimalzeichen,KAL_Tausendzeichen);
       if(KAL_Waehrung) $s.='&nbsp;'.KAL_Waehrung; $sStil.='text-align:right;';
      }else $s='&nbsp;';
      break;
     case 'j': case 'v': $s=strtoupper(substr($s,0,1)); // Ja/Nein
      if($s=='J'||$s=='Y') $s=KAL_TxJa; elseif($s=='N') $s=KAL_TxNein; $sStil.='text-align:center;';
      break;
     case 'n': case '1': case '2': case '3': case 'r': // Zahl
      if($t!='r') $s=number_format($s,(int)$t,KAL_Dezimalzeichen,''); else $s=str_replace('.',KAL_Dezimalzeichen,$s); $sStil.='text-align:right;';
      break;
     case 'l':
      if(ADM_LinkSymbol){
       $v='<img src="'.$sHttp.'grafik/'.(strpos($s,'@')?'mail':'link').'.gif" width="16" height="16" border="0" title="'.$s.'">'; $sStil.='text-align:center;';
      }else $v=$s;
      $s='<a href="'.(strpos($v,'@')?'mailto:':'http://').$s.'" target="_blank">'.$v.'</a>';
      break;
     case 'e': case 'c':
      if(!KAL_SQL) $s=fKalDeCode($s);
      if(ADM_LinkSymbol){
       $v='<img src="'.$sHttp.'grafik/mail.gif" width="16" height="16" border="0" title="'.$s.'">'; $sStil.='text-align:center;';
      }else $v=$s;
      $s='<a href="mailto:'.$s.'" target="_blank">'.$v.'</a>';
      break;
     case 's': $w=$s;
      if(ADM_SymbSymbol){
       $s='grafik/symbol'.$kal_Symbole[$s].'.'.KAL_SymbolTyp; $aI=@getimagesize(KAL_Pfad.$s);
       $s='<img src="'.$sHttp.$s.'" '.$aI[3].' border="0" alt="'.$w.'" />'; $sStil.='text-align:center;';
      }
      break;
     case 'b':
      if(ADM_BildVorschau){
       $s=substr($s,0,strpos($s,'|')); $s=KAL_Bilder.$sId.'-'.$s; $aI=@getimagesize(KAL_Pfad.$s); // Bild
       $s='<img src="'.$sHttp.$s.'" '.$aI[3].' border="0" title="'.substr($s,7).'" />'; $sStil.='text-align:center;';
      }else $s=fKalKurzName(substr($s,strpos($s,'|')+1));
      break;
     case 'f':
      if(ADM_DateiSymbol){
       $w=substr(strrchr($s,'.'),1); $v=ucfirst(strtolower(substr($w,0,3))); // Datei
       if($v!='Doc'&&$v!='Xls'&&$v!='Pdf'&&$v!='Zip'&&$v!='Htm'&&$v!='Jpg'&&$v!='Gif') $v='Dat'; $sStil.='text-align:center;';
       $v='<img src="'.$sHttp.'grafik/datei'.$v.'.gif" width="16" height="16" border="0" title="'.strtoupper($w).'-'.KAL_TxDatei.'" />';
      }else $v=fKalKurzName($s);
      $s='<a href="'.$sHttp.KAL_Bilder.$sId.'~'.$s.'">'.$v.'</a>';
      break;
     case 'x': break;
     case 'p': $s=str_repeat('*',strlen($s)/2); break;
    }
   }else $s='&nbsp;';
   if(($w=$kal_SpaltenStil[$k])||$sStil) $sStil=' style="'.$sStil.$w.'"';
   echo NL.' <td valign="top"'.$sStil.'>'.$s.'</td>';
  }
  echo NL.'</tr>';
 }
?>
 <tr class="kalTabl">
 <td align="right">
  <?php if(file_exists('loeschen.php')){?><input type="image" src="<?php echo $sHttp?>grafik/iconLoeschen.gif" width="12" height="13" border="0" title="markierte Termine löschen" /><?php }?>&nbsp;<input class="kalCheck" type="checkbox" name="kal_All" value="1" onClick="fSelAll(this.checked)" />
 </td>
 <td colspan="<?php echo 1+$nSpalten?>">&nbsp;</td>
 </tr>
</table>
<?php while(list($k,$v)=each($aQ)) echo NL.'<input type="hidden" name="kal_'.$k.'" value="'.$v.'" />'?>

</form>
<?php echo $sNavigator?>

<p><?php echo date('d.m.Y, H:i:s')?></p>
</body>
</html>

<?php
function fKalDeCode($w){
 $nCod=(int)substr(KAL_Schluessel,-2); $s=''; $j=0;
 for($k=strlen($w)/2-1;$k>=0;$k--){$i=$nCod+($j++)+hexdec(substr($w,$k+$k,2)); if($i>255) $i-=256; $s.=chr($i);}
 return $s;
}

function fKalKurzName($s){$i=strlen($s); if($i<=25) return $s; else return substr_replace($s,'...',16,$i-22);}

function fKalNormDatum($w){
 $nJ=2; $nM=1; $nT=0;
 switch(KAL_Datumsformat){ //0:yy-mm-dd 1:dd.mm.yy 2:mm/dd/yy 3:dd/mm/yy 4:dd-mm-yy
  case 0: $t='-'; $nJ=0; $nM=1; $nT=2; break; case 1: $t='.'; break;
  case 2: $t='/'; $nJ=2; $nM=0; $nT=1; break; case 3: $t='/'; break; case 4: $t='-'; break;
 }
 $a=explode($t,str_replace('_','-',str_replace(':','.',str_replace(';','.',str_replace(',','.',$w)))));
 return sprintf('%04d-%02d-%02d',strlen($a[$nJ])<=2?$a[$nJ]+2000:$a[$nJ],$a[$nM],$a[$nT]);
}

function fKalNavigator($nStart,$nCount,$nListenLaenge,$sQry,$bArchiv){
 $nPgs=ceil($nCount/$nListenLaenge); $nPag=ceil($nStart/$nListenLaenge);
 $s ='<td style="width:16px;text-align:center;"><a href="liste.php?'.substr($sQry.'&amp;kal_Start=',5).'1'.($bArchiv?'&amp;kal_Archiv=1':'').'" title="Anfang">|&lt;</a></td>';
 $nAnf=$nPag-4; if($nAnf<=0) $nAnf=1; $nEnd=$nAnf+9; if($nEnd>$nPgs){$nEnd=$nPgs; $nAnf=$nEnd-9; if($nAnf<=0) $nAnf=1;}
 for($i=$nAnf;$i<=$nEnd;$i++){
  if($i!=$nPag) $nPg=$i; else $nPg='<b>'.$i.'</b>';
  $s.=NL.'  <td style="width:16px;text-align:center;"><a href="liste.php?'.substr($sQry.'&amp;kal_Start=',5).(($i-1)*$nListenLaenge+1).($bArchiv?'&amp;kal_Archiv=1':'').'" title="'.'">'.$nPg.'</a></td>';
 }
 $s.=NL.'  <td style="width:16px;text-align:center;"><a href="liste.php?'.substr($sQry.'&amp;kal_Start=',5).(max($nPgs-1,0)*$nListenLaenge+1).($bArchiv?'&amp;kal_Archiv=1':'').'" title="Ende">&gt;|</a></td>';
 $X =NL.'<table style="width:750px;margin-top:8px;margin-bottom:8px;" border="0" cellpadding="0" cellspacing="0">';
 $X.=NL.' <tr>';
 $X.=NL.'  <td>Seite '.$nPag.'/'.$nPgs.'</td>';
 $X.=NL.'  '.$s;
 $X.=NL.' </tr>'.NL.'</table>'.NL;
 return $X;
}

//BB-Code zu HTML wandeln
function fKalBB($s){
 $v=str_replace("\n",'<br />',str_replace("\n ",'<br />',str_replace("\r",'',$s))); $p=strpos($v,'[');
 while(!($p===false)){
  $Tg=substr($v,$p,9);
  if(substr($Tg,0,3)=='[b]') $v=substr_replace($v,'<b>',$p,3); elseif(substr($Tg,0,4)=='[/b]') $v=substr_replace($v,'</b>',$p,4);
  elseif(substr($Tg,0,3)=='[i]') $v=substr_replace($v,'<i>',$p,3); elseif(substr($Tg,0,4)=='[/i]') $v=substr_replace($v,'</i>',$p,4);
  elseif(substr($Tg,0,3)=='[u]') $v=substr_replace($v,'<u>',$p,3); elseif(substr($Tg,0,4)=='[/u]') $v=substr_replace($v,'</u>',$p,4);
  elseif(substr($Tg,0,7)=='[color='){$o=substr($v,$p+7,9); $o=substr($o,0,strpos($o,']')); $v=substr_replace($v,'<span style="color:'.$o.'">',$p,8+strlen($o));} elseif(substr($Tg,0,8)=='[/color]') $v=substr_replace($v,'</span>',$p,8);
  elseif(substr($Tg,0,6)=='[size='){$o=substr($v,$p+6,4); $o=substr($o,0,strpos($o,']')); $v=substr_replace($v,'<span style="font-size:'.$o.'em">',$p,7+strlen($o));} elseif(substr($Tg,0,7)=='[/size]') $v=substr_replace($v,'</span>',$p,7);
  elseif(substr($Tg,0,8)=='[center]'){$v=substr_replace($v,'<p class="kalText" style="text-align:center">',$p,8); if(substr($v,$p-6,6)=='<br />') $v=substr_replace($v,'',$p-6,6);} elseif(substr($Tg,0,9)=='[/center]'){$v=substr_replace($v,'</p>',$p,9); if(substr($v,$p+4,6)=='<br />') $v=substr_replace($v,'',$p+4,6);}
  elseif(substr($Tg,0,7)=='[right]'){$v=substr_replace($v,'<p class="kalText" style="text-align:right">',$p,7); if(substr($v,$p-6,6)=='<br />') $v=substr_replace($v,'',$p-6,6);} elseif(substr($Tg,0,8)=='[/right]'){$v=substr_replace($v,'</p>',$p,8); if(substr($v,$p+4,6)=='<br />') $v=substr_replace($v,'',$p+4,6);}
  elseif(substr($Tg,0,5)=='[url]'){
   $o=$p+5; if(!$l=min(strpos($v,'[',$o),strpos($v,' ',$o))) $l=strpos($v,'[',$o);
   if(substr($v,$l,1)==' ') $v=substr_replace($v,'">',$l,1); else $v=substr_replace($v,'">'.substr($v,$o,$l-$o),$l,0);
   $v=substr_replace($v,'<a class="kalText" target="_blank" href="http://',$p,5);
  }elseif(substr($Tg,0,6)=='[/url]') $v=substr_replace($v,'</a>',$p,6);
  elseif(substr($Tg,0,5)=='[list'){
   if(substr($Tg,5,2)=='=o'){$q='o';$l=2;}else{$q='u';$l=0;}
   $v=substr_replace($v,'<'.$q.'l class="kalText"><li class="kalText">',$p,6+$l);
   $e=strpos($v,'[/list]',$p+5); if(substr($v,$e+7,6)=='<br />') $l=6; else $l=0; $v=substr_replace($v,'</'.$q.'l>',$e,7+$l);
   $l=strpos($v,'<br />',$p);
   while($l<$e&&$l>0){$v=substr_replace($v,'</li><li class="kalText">',$l,6); $e+=19; $l=strpos($v,'<br />',$l);}
  }
  $p=strpos($v,'[',$p+1);
 }return $v;
}
?>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta http-equiv="expires" content="0">
<title>Kalender</title>
<link rel="stylesheet" type="text/css" href="styles.css">
<script type="text/javascript" src="kalEingabe.js"></script>
</head>

<body>
<h1><img src="_kalender.gif" width="19" height="25" border="0" align="bottom" alt=""> Kalender-Script: Termin aendern</h1>

<?php
include('programmPfad.php'); define('NL',"\n"); $Msg='';
if(file_exists($Pfad.'kalWerte.php')){
 include($Pfad.'kalWerte.php'); $nFelder=count($kal_FeldName);
 $aFehl=array(); $aW=array(); $aOh=array(); $aOa=array(); $aOs=array();
 $bOK=false; $sFehl=''; $sZ=''; $sF=''; $bVmk=(strlen($_POST['kal_Vmk'].$_GET['kal_Vmk'])>0);
 if($_SERVER['REQUEST_METHOD']!='POST'){ //GET Daten holen
  $sQ=$_SERVER['QUERY_STRING']; $sId=$_GET['kal_Num'];
  if(!KAL_SQL){ //Textdaten
   $aD=file(KAL_Pfad.KAL_Daten.($bVmk?KAL_Vormerk:KAL_Termine)); $nSaetze=count($aD);
   for($i=1;$i<$nSaetze;$i++){
    $s=rtrim($aD[$i]); $p=strpos($s,';'); if($sId==substr($s,0,$p)){$aW=explode(';',str_replace('\n ',NL,$s)); break;}
   }
  }else{ //SQL-Daten
   if($DbC=mysql_connect(KAL_SqlHost,KAL_SqlUser,KAL_SqlPass)){
    if(mysql_select_db(KAL_SqlDaBa,$DbC)){
     if($rR=mysql_query('SELECT * FROM '.KAL_SqlTabT.' WHERE id="'.$sId.'" AND online'.($bVmk?'<>':'=').'"1"')){
      $aW=mysql_fetch_row($rR); mysql_free_result($rR); array_splice($aW,1,1);
     }else $Msg='<p class="kalFehl">'.KAL_TxSqlFrage.'</p>';
    }else $Msg='<p class="kalFehl">'.KAL_TxSqlDaBnk.'</p>'; mysql_close($DbC);
   }else $Msg='<p class="kalFehl">'.KAL_TxSqlVrbdg.'</p>';
  }
  for($i=1;$i<=$nFelder;$i++)
   if($kal_FeldType[$i]=='d'){if($aW[$i]) $aW[$i]=fKalAnzeigeDatum($aW[$i]);}
   elseif($kal_FeldType[$i]=='b'||$kal_FeldType[$i]=='f'){$aOa[$i]=$aW[$i]; if($p=strpos($aW[$i],'|')) $aW[$i]=substr($aW[$i],1+$p);}
   elseif($kal_FeldType[$i]=='w'||$kal_FeldType[$i]=='n'||$kal_FeldType[$i]=='1'||$kal_FeldType[$i]=='2'||$kal_FeldType[$i]=='3'||$kal_FeldType[$i]=='r') $aW[$i]=str_replace('.',KAL_Dezimalzeichen,$aW[$i]);
   elseif(($kal_FeldType[$i]=='e'||$kal_FeldType[$i]=='c')&&!KAL_SQL) $aW[$i]=fKalDeCode($aW[$i]);
   elseif($kal_FeldType[$i]=='p') $aW[$i]=fKalDeCode($aW[$i]);
   elseif($kal_FeldType[$i]=='@'){if($aW[$i]) $aW[$i]=trim(fKalAnzeigeDatum($aW[$i]).strstr($aW[$i],' '));}
 }else{ //POST Formularauswertung
  $sId=$_POST['kal_Num']; $sQ=$_POST['kal_Qry'];
  // Eingaben holen
  for($i=1;$i<$nFelder;$i++) if($kal_FeldType[$i]=='b'||$kal_FeldType[$i]=='f')
   {$aOh[$i]=$_POST['kal_Oh'.$i]; $aOa[$i]=$_POST['kal_Oa'.$i];} // kal_Oh: hochgeladene; kal_Oa: alte;
  for($i=1;$i<$nFelder;$i++){
   $s=stripslashes(@strip_tags(trim($_POST['kal_F'.$i]))); $t=$kal_FeldType[$i];
   if(strlen($s)>0||!$kal_PflichtFeld[$i]||$t=='b'||$t=='f'||$t=='@'){
    if($t!='m'&&$t!='g') $s=str_replace('"',"'",$s); $v=$s; // s:Eingabe, v:Speicherwert
    switch($t){
    case 't': case 'm': case 'a': case 'k': case 's': case 'j': case 'v': case 'g': case 'u': case 'x': //Text,Memo,Kategorie,Auswahl,Ja/Nein,Nutzer,Google-Map
     break;
    case 'd': //Datum
     if($s) if($v=fKalErzeugeDatum($s)) $s=fKalAnzeigeDatum($v); else $aFehl[$i]=true; break;
    case '@': //EintragsDatum
     if($s){if($v=fKalErzeugeDatum($s)) $v=substr($v,0,10).strstr($s,' '); else $v=date('Y-m-d H:i'); $s=fKalAnzeigeDatum($v).strstr($s,' ');}
     else{$v=date('Y-m-d H:i'); $s=fKalAnzeigeDatum($v).date(' H:i');} break;
    case 'z': //Uhrzeit
     if($s){$a=explode(':',str_replace('.',':',str_replace(',',':',$s))); $s=sprintf('%02d:%02d',$a[0],$a[1]); $v=$s;} break;
    case 'e': case 'c': // e-Mail, Kontakt-e-Mail
     if($s) if(!ereg("^[a-z0-9_-]+(\.[a-z0-9_-]+)*@([a-z0-9_-]+\.)*([a-z0-9äöü-]+\.[a-z]{2,4})$",strtolower($s))) $aFehl[$i]=true;
     if(!KAL_SQL) $v=fKalEnCode($s); break;
    case 'l': //Link oder e-Mail
     if($p=strpos(strtolower(substr($s,0,7)),'tp://')){$s=substr($s,$p+5); $v=$s;} break;
    case 'b': //Bild
     break;
    case 'f': //Datei
     break;
    case 'w': //Währung
     $v=number_format(str_replace(KAL_Dezimalzeichen,'.',str_replace(KAL_Tausendzeichen,'',$s)),KAL_Dezimalstellen,'.','');
     $s=number_format($v,KAL_Dezimalstellen,KAL_Dezimalzeichen,''); break;
    case 'n': case '1': case '2': case '3': //Zahl
     $v=number_format(str_replace(KAL_Dezimalzeichen,'.',str_replace(KAL_Tausendzeichen,'',$s)),(int)$t,'.','');
     $s=number_format($v,(int)$t,KAL_Dezimalzeichen,''); break;
    case 'r': //Zahl
     $v=str_replace(KAL_Dezimalzeichen,'.',str_replace(KAL_Tausendzeichen,'',$s));
     $s=str_replace('.',KAL_Dezimalzeichen,$v); break;
    case 'o': //PLZ
     if($s) if(strlen($s)!=KAL_PLZLaenge) $aFehl[$i]=true; break;
    case 'p': $v=fKalEnCode($s); break; //Passwort
    }$aW[$i]=$s;
    if(!KAL_SQL) $sZ.=';'.str_replace(NL,'\n ',str_replace("\r",'',str_replace(';','`,',$v)));
    else $sZ.=',kal_'.$i.'="'.str_replace('"','\"',$v).'"';
   }else{$aFehl[$i]=true; if(!KAL_SQL) $sZ.=';';}
  }
  if($bVmk){$aW[$nFelder]=$_POST['kal_Per']; if(!KAL_SQL) $sZ.=';'.$aW[$nFelder];}

  $Msg='<p class="kalFehl">In diesem Demo sind Terminänderungen nicht vorgesehen.</p>';

 }//POST
 $aVg=file(KAL_Pfad.KAL_Daten.KAL_Vorgaben); //Hinweise und Kategorien holen
 if(!$Msg) $Msg='<p class="kalMeld">'.KAL_TxAendereMeld.'</p>';
}else $Msg='<p class="kalFehl">Setup-Fehler: Die Datei <i>kalWerte.php</i> im Programmverzeichnis kann nicht gelesen werden!</p>';

//Scriptausgabe
$sHttp='http'.($_SERVER['SERVER_PORT']!='443'?'':'s').'://'.KAL_Www;
echo $Msg.NL;
?>

<script type="text/javascript">
 function GeoWin(){geoWin=window.open("about:blank","geowin","width=<?php echo (min(max(KAL_GMapBreit,500),725)+50)?>,height=700,left=5,top=5,menubar=no,statusbar=no,toolbar=no,scrollbars=yes,resizable=yes");geoWin.focus();}
</script>

<form name="kalEingabe" action="eingabe.php" enctype="multipart/form-data" method="post">
<input type="hidden" name="kal_Num" value="<?php echo $sId?>" />
<input type="hidden" name="kal_Vmk" value="<?php echo ($bVmk?'1':'')?>" />
<input type="hidden" name="kal_Qry" value="<?php echo $sQ?>" />
<input type="hidden" name="kal_Per" value="<?php echo $aW[$nFelder]?>" />
<table class="kalTabl" width="750" border="0" cellpadding="2" cellspacing="1">
<?php
 for($i=1;$i<$nFelder;$i++){
  $aHlp=explode(';',trim($aVg[$i])); //Hilfetext und etwaige Vorgabewerte
  echo NL.' <tr class="kalTabl">';
  echo NL.'  <td style="vertical-align:top;padding-top:5px;">'.$kal_FeldName[$i].($kal_PflichtFeld[$i]?'*':'').'</td>'; //Feldname
  echo NL.'  <td>'; $sZ=NL.'   <div'.($aFehl[$i]?' class="kalFehl"':'').'>';
  $t=$kal_FeldType[$i]; $v=str_replace('`,',';',$aW[$i]); //Feldinhalt
  switch($t){
  case 't': case 'l': case 'e': case 'c': //Text, Link, e-Mail, Kontakt
   echo $sZ.'<input class="kalEing" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="255" /></div>';
   break;
  case 'm': //Memo
   if(KAL_FormatCode) echo NL.'   <div title="'.KAL_TxBB_X.'">'.NL.fKalBBToolbar($i).NL; else echo NL.'   <div>';
   echo $sZ.'<textarea class="kalEing" name="kal_F'.$i.'" cols="80" rows="10">'.$v.'</textarea></div>'.NL.'   </div>';
   break;
  case 'a': case 'k': case 's': //Aufzählung/Kategorie
   reset($aHlp); $sO=''; foreach($aHlp as $w) $sO.='<option value="'.$w.'"'.($v==$w?' selected="selected"':'').'>'.$w.'</option>';
   echo $sZ.'<select class="kalEing" name="kal_F'.$i.'" size="1"><option value=""></option>'.substr($sO,strpos($sO,'<option',9)).'</select></div>';
   break;
  case 'd': //Datum
   echo $sZ.'<input class="kalEing" style="width:7em;" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="10" /> <span class="kalMini">'.KAL_TxFormat.' '.fKalDatumsFormat().'</span></div>';
   break;
  case '@': //EintragsDatum
   echo $sZ.$v.'<input type="hidden" name="kal_F'.$i.'" value="'.$v.'" /></div>'; break;
  case 'z': //Zeit
   echo $sZ.'<input class="kalEing" style="width:7em;" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="5" /> <span class="kalMini">'.KAL_TxFormat.' '.KAL_TxSymbUhr.'</span></div>';
   break;
  case 'j': case 'v': //Ja/Nein
   echo $sZ.'<input class="kalRadio" type="radio" name="kal_F'.$i.'" value="J"'.($v!='J'?'':' checked="checked"').' /> '.KAL_TxJa.' &nbsp; <input class="kalRadio" type="radio" name="kal_F'.$i.'" value="N"'.($v!='N'?'':' checked="checked"').' /> '.KAL_TxNein.'</div>';
   break;
  case 'w': //Währung
   echo $sZ.'<input class="kalEing" style="width:7em;" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="16" /> '.KAL_Waehrung.'</div>';
   break;
  case 'n': case 'r': case '1': case '2': case '3': case 'o': //Zahlen
   echo $sZ.'<input class="kalEing" style="width:7em;" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="16" />'.($t!='o'?'':' <span class="kalMini">'.KAL_PLZLaenge.' '.KAL_TxStellen.'</span>').'</div>';
   break;
  case 'b': //Bild
   echo $sZ.'<input class="kalEing" type="file" name="kal_Up'.$i.'" /><input type="hidden" name="kal_Oa'.$i.'" value="'.$aOa[$i].'" /></div>';
   if($v) echo NL.'   <div style="float:left;"><input class="kalCheck" type="checkbox" name="kal_Dl'.$i.'" value="1" /><input type="hidden" name="kal_F'.$i.'" value="'.$v.'" /><input type="hidden" name="kal_Oh'.$i.'" value="'.$aOh[$i].'" /> <span class="kalMini">'.$v.' '.KAL_TxLoeschen.'</span></div>';
   echo NL.'   <div style="text-align:right;padding:1px;line-height:1.4em;"><span class="kalMini">(max. '.KAL_BildMaxKByte.' KByte)</span></div>';
   break;
  case 'f': //Datei
   echo $sZ.'<input class="kalEing" type="file" name="kal_Up'.$i.'" /><input type="hidden" name="kal_Oa'.$i.'" value="'.$aOa[$i].'" /></div>';
   if($v) echo NL.'   <div style="float:left;"><input class="kalCheck" type="checkbox" name="kal_Dl'.$i.'" value="1" /><input type="hidden" name="kal_F'.$i.'" value="'.$v.'" /><input type="hidden" name="kal_Oh'.$i.'" value="'.$aOh[$i].'" /> <span class="kalMini">'.$v.' '.KAL_TxLoeschen.'</span></div>';
   echo NL.'   <div style="text-align:right;padding:1px;line-height:1.4em;"><span class="kalMini">(max. '.KAL_DateiMaxKByte.' KByte)</span></div>';
   break;
  case 'x':
   echo $sZ.'<input class="kalGMap" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="255" />&nbsp;<a href="'.$sHttp.'googlemap.php?'.$i.($v?','.$v:'').'" target="geowin" onclick="javascript:GeoWin();"><img src="'.$sHttp.'grafik/iconAendern.gif" width="12" height="13" border="0" title="Koordinaten bearbeiten"></a></div>';
   break;
  case 'g': //Gastkommentar
   if(KAL_FormatCode) echo NL.'   <div title="'.KAL_TxBB_X.'">'.NL.fKalBBToolbar($i).NL; else echo NL.'   <div>';
   echo $sZ.'<textarea class="kalEing" name="kal_F'.$i.'" cols="80" rows="10">'.$v.'</textarea></div>'.NL.'   </div>';
   break;
  case 'u': // Benutzername
   echo $sZ.'<input class="kalEing" style="width:12em;" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="16" /> <span class="kalMini">'.KAL_TxNutzerNr.'</span></div>';
   break;
  case 'p': // Passwort
   echo $sZ.'<input class="kalEing" style="width:12em;" type="password" name="kal_F'.$i.'" value="'.$v.'" maxlength="16" /> <span class="kalMini">'.KAL_TxPassRegel.'</span></div>';
   break;
  }
  if($v=$aHlp[0]) echo NL.'   <div><span class="kalMini">'.str_replace('`,',';',$v).'</span></div>'; // Eingabehilfe
  echo NL.'  </td>'.NL.' </tr>';
 }
 //Pflichtfeldzeile
 echo NL.' <tr class="kalTabl"><td class="kalMini">&nbsp;</td><td class="kalMini" style="text-align:right;">* <span class="kalMini">'.KAL_TxPflicht.'</span></td></tr>';
?>

</table>
<p style="margin:12px;padding-left:310px;"><input type="submit" value="Eintragen" style="width:120px;"></p>
</form>
<?php if(file_exists((!$bVmk?'liste':'vormerkungen').'.php')){?><p style="margin:12px;padding-left:316px;">[ <a href="<?php echo (!$bVmk?'liste':'vormerkungen').'.php?'.$sQ?>">zurück zur Liste</a> ]</p><?php }?>

<p><?php echo date('d.m.Y, H:i:s')?></p>
</body>
</html>

<?php
function fKalEnCode($w){
 $nCod=(int)substr(KAL_Schluessel,-2); $s='';
 for($k=strlen($w)-1;$k>=0;$k--){$n=ord($w{$k})-($nCod+$k); if($n<0) $n+=256; $s.=sprintf('%02X',$n);}
 return $s;
}
function fKalDeCode($w){
 $nCod=(int)substr(KAL_Schluessel,-2); $s=''; $j=0;
 for($k=strlen($w)/2-1;$k>=0;$k--){$i=$nCod+($j++)+hexdec(substr($w,$k+$k,2)); if($i>255) $i-=256; $s.=chr($i);}
 return $s;
}

function fKalDateiname($s){
 $s=str_replace('Ä','Ae',str_replace('Ö','Oe',str_replace('Ü','Ue',str_replace('ß','ss',$s))));
 return str_replace('ä','ae',str_replace('ö','oe',str_replace('ü','ue',str_replace(' ','_',$s))));
}

function fKalErzeugeDatum($w){
 $nJ=2; $nM=1; $nT=0;
 switch(KAL_Datumsformat){ //0:yy-mm-dd 1:dd.mm.yy 2:mm/dd/yy 3:dd/mm/yy 4:dd-mm-yy
  case 0: $t='-'; $nJ=0; $nM=1; $nT=2; break; case 1: $t='.'; break;
  case 2: $t='/'; $nJ=2; $nM=0; $nT=1; break; case 3: $t='/'; break; case 4: $t='-'; break;
 }
 $a=explode($t,str_replace('_','-',str_replace(':','.',str_replace(';','.',str_replace(',','.',$w)))));
 $nJ=(strlen($a[$nJ])<=2?2000+$a[$nJ]:(int)$a[$nJ]); $nM=(int)$a[$nM]; $nT=(int)$a[$nT];
 if(checkdate($nM,$nT,$nJ)) return sprintf('%04d-%02d-%02d',$nJ,$nM,$nT).rtrim(@date(' w',@mktime(12,0,0,$nM,$nT,$nJ)));
 else return false;
}

function fKalAnzeigeDatum($w){
 $s1=substr($w,8,2); $s2=substr($w,5,2); $s3=substr($w,0,4);
 switch(KAL_Datumsformat){ //0:yy-mm-dd 1:dd.mm.yy 2:mm/dd/yy 3:dd/mm/yy 4:dd-mm-yy
  case 0: $t='-'; $s1=$s3; $s3=substr($w,8,2); break; case 1: $t='.'; break;
  case 2: $t='/'; $s1=$s2; $s2=substr($w,8,2); break; case 3: $t='/'; break; case 4: $t='-'; break;
 }
 return $s1.$t.$s2.$t.$s3;
}

function fKalDatumsFormat(){
 $s1=KAL_TxSymbTag; $s2=KAL_TxSymbMon; $s3=(KAL_Jahrhundert?KAL_TxSymbJhr:'').KAL_TxSymbJhr;
 switch(KAL_Datumsformat){ //0:yy-mm-dd 1:dd.mm.yy 2:mm/dd/yy 3:dd/mm/yy 4:dd-mm-yy
  case 0: $t='-'; $s1=$s3; $s3=KAL_TxSymbTag; break; case 1: $t='.'; break;
  case 2: $t='/'; $s1=$s2; $s2=KAL_TxSymbTag; break; case 3: $t='/'; break; case 4: $t='-'; break;
 }
 return $s1.$t.$s2.$t.$s3;
}

function fKalBBToolbar($Nr){
 $sHttp='http'.($_SERVER['SERVER_PORT']!='443'?'':'s').'://';
 $X =NL.'<table class="kalTool" border="0" cellpadding="0" cellspacing="0">';
 $X.=NL.' <tr>';
 $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Bold',   0,$sHttp).'</td>';
 $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Italic', 2,$sHttp).'</td>';
 $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Uline',  4,$sHttp).'</td>';
 $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Center', 6,$sHttp).'</td>';
 $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Right',  8,$sHttp).'</td>';
 $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Enum',  10,$sHttp).'</td>';
 $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Number',12,$sHttp).'</td>';
 $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Link',  16,$sHttp).'</td>';
 $X.=NL.'  <td><img class="kalTool" src="'.$sHttp.KAL_Www.'grafik/tbColor.gif" style="margin-right:0;cursor:default;" title="'.KAL_TxBB_O.'" /></td>';
 $X.=NL.'  <td>
   <select class="kalTool" name="kal_Col'.$Nr.'" onChange="fCol('.$Nr.',this.options[this.selectedIndex].value); this.selectedIndex=0;" title="'.KAL_TxBB_O.'">
    <option value=""></option>
    <option style="color:black" value="black">Abc9</option>
    <option style="color:red;" value="red">Abc9</option>
    <option style="color:violet;" value="violet">Abc9</option>
    <option style="color:brown;" value="brown">Abc9</option>
    <option style="color:yellow;" value="yellow">Abc9</option>
    <option style="color:green;" value="green">Abc9</option>
    <option style="color:lime;" value="lime">Abc9</option>
    <option style="color:olive;" value="olive">Abc9</option>
    <option style="color:cyan;" value="cyan">Abc9</option>
    <option style="color:blue;" value="blue">Abc9</option>
    <option style="color:navy;" value="navy">Abc9</option>
    <option style="color:gray;" value="gray">Abc9</option>
    <option style="color:silver;" value="silver">Abc9</option>
    <option style="color:white;background-color:#999999" value="white">Abc9</option>
   </select>
  </td>';
 $X.=NL.'  <td><img class="kalTool" src="'.$sHttp.KAL_Www.'grafik/tbSize.gif" style="margin-right:0;cursor:default;" title="'.KAL_TxBB_S.'" /></td>';
 $X.=NL.'  <td>
   <select class="kalTool" name="kal_Siz'.$Nr.'" onChange="fSiz('.$Nr.',this.options[this.selectedIndex].value); this.selectedIndex=0;" title="'.KAL_TxBB_S.'">
    <option value=""></option>
    <option value="+2">&nbsp;+2</option>
    <option value="+1">&nbsp;+1</option>
    <option value="-1">&nbsp;- 1</option>
    <option value="-2">&nbsp;- 2</option>
   </select>
  </td>';
 $X.=NL.' </tr>';
 $X.=NL.'</table>';
 return $X;
}
function fDrawToolBtn($Nr,$vImg,$nTag,$sHttp){
 return '<img class="kalTool" src="'.$sHttp.KAL_Www.'grafik/tb'.$vImg.'.gif" onClick="fFmt('.$Nr.','.$nTag.')" style="background-image:url('.$sHttp.KAL_Www.'grafik/tool.gif);" title="'.constant(KAL_TxBB_.$vImg{0}).'" />';
}
?>

in: Else Meldung

geschrieben von kevinweiler

in: Else Meldung

geschrieben von kevinweiler

in: Else Meldung

geschrieben von kevinweiler

in: Else Meldung

geschrieben von kevinweiler

<?php

$sep = ",";	// separator
$fn  = "Geburtstag.csv";

$txt = explode ("\n", $f = file_get_contents ($fn));
for ($i = 0; $i < count ($txt); $i++) {
	if ( strlen (trim ($txt[$i])) ) {
		$txt[$i] = explode ($sep, $txt[$i]);
		$txt[$i][0] = trim ($txt[$i][0]);	// name
		$txt[$i][1] = trim ($txt[$i][1]);	// gebt
		$txt[$i][2] = ( strstr ($txt[$i][1], $dm = date ("d.m.")) ) ? true: false;	// true wenn "dd.mm" stimmt
		if ( $txt[$i][2] === true ) echo "<h4><center><font face=Palatino color=#FFFF00> Alles gute zum Geburtstag, {$txt[$i][0]} </font></center></h4>";	// diese zeile gibt die namen aus!
		// was du damint weiter tun willst kann ich nicht wissen, aber all das kannst hier tun!!!!!
	} else ( $txt[$i][2] === false ) echo "<h4><center><font face=Palatino color=#FFFF00> Heute hat leider niemand der Jugend Geburtstag </font></center></h4>";
		
}

?>

in: Textverarbeitung

geschrieben von kevinweiler

in: Bundesliga 09/10

geschrieben von kevinweiler

in: Harry Potter und der Halbblutprinz

geschrieben von kevinweiler

in: Geburtstagsscript

geschrieben von kevinweiler

in: Windows DVD Maker - wo downloaden

geschrieben von kevinweiler

in: Bauchmuskel trainieren ohne Erfolg

geschrieben von kevinweiler

in: Website Design. Bitte Ratschläge für Verbesserungen!

geschrieben von kevinweiler

in: Geburtstagsscript

geschrieben von kevinweiler

in: Geburtstagsscript

geschrieben von kevinweiler

in: Geburtstagsscript

geschrieben von kevinweiler

in: Geburtstagsscript

geschrieben von kevinweiler

in: Geburtstagsscript

geschrieben von kevinweiler

in: PSP und andere Artikel kostenlos

geschrieben von kevinweiler

in: IV Guestbook Mod Funktion

geschrieben von kevinweiler

in: Kalender Script

geschrieben von kevinweiler

<div><p align=center><b><a href=\"URL
<?php
include(\'werte.php\');
if($Ord=(int)($_POST[\'ord\'].$_GET[\'ord\'])) $aD=file(\'termine\'.$Ord.\'.txt\'); else $aD=file(\'termine.txt\');
$X=str_replace(\'{Titel}\',\'Terminliste\',join(\'\',file(\'kalender.htm\')));
if(strpos($X,\'{aktuell}\')>0){include(\'./aktuell.php\');}
if(strpos($X,\'{miniKal}\')>0){include(\'./miniKal.php\');}
$aF=explode(\';\',rtrim(array_shift($aD))); $aT=explode(\';\',rtrim(array_shift($aD))); $aS=explode(\';\',rtrim($aD[0])); $Fc=count($aF);
if(is_array($aT)&&$Fc>1){
 $bAll=true; $Q=\'\'; $EndFld=-1; $j=1;
 for($i=0;$i<$Fc;$i++){
  $T=$aT[$i]; $t=strtolower($T); $F=$aF[$i]; $N=htmlentities($F);
  if($aS[$i]==\'s\'){//Sortierfeld
   if($Ord!=$i) $N=\'<a class=\"tit\" href=\"index.php?ord=\'.$i.\'\">\'.$N.\'&nbsp;<img src=\"bilder/sortiere.gif\" width=\"10\" height=\"10\" border=\"0\" alt=\"sortieren\"></a>\';
   else $N.=\'&nbsp;<img src=\"bilder/sortiert.gif\" width=\"10\" height=\"10\" border=\"0\" alt=\"sortiert\">\';
  }
  if($T<\'a\'){//Listenfeld
   if($ListenInfo==$j++) $H.=\'<td class=\"tit\">&nbsp;</td>\';
   if($t!=\'b\'&&$t!=\'o\') $s=\'\'; else $s=\' align=\"center\"\';
   $H.=\'<td class=\"tit\"\'.$s.\'>\'.$N.\'</td>\'; $aC[]=$i;
  }
  if($t!=\'b\'&&$t!=\'z\'&&$t!=\'o\'&&$t!=\'p\'){//Suchbedingungen
   $s=$_POST[$F.\'1\'].$_GET[$F.\'1\']; if(strlen($s)){$a1S[$i]=$s; $bAll=false; if(strpos($Q,urlencode($F).\'1=\')<=0) $Q.=\'&\'.urlencode($F).\'1=\'.urlencode($s); $Msg.=\', \'.$F;}
   $s=$_POST[$F.\'2\'].$_GET[$F.\'2\']; if(strlen($s)){$a2S[$i]=$s;              if(strpos($Q,urlencode($F).\'2=\')<=0) $Q.=\'&\'.urlencode($F).\'2=\'.urlencode($s); if($t==\'d\'||$t==\'w\'||$t==\'n\')if(empty($a1S[$i])){$a1S[$i]=\'00\';$bAll=false;}}
   $s=$_POST[$F.\'3\'].$_GET[$F.\'3\']; if(strlen($s)){$a3S[$i]=$s; $bAll=false; $Q.=\'&\'.urlencode($F).\'3=\'.urlencode($s); if(strpos($Msg,$F)<=0) $Msg.=\', \'.$F;}
   if($t==\'d\'&&$i>0&&$i<3) $EndFld=$i;//zweites Datumsfeld
  }
 }
 $Cc=count($aC); $Dc=count($aD);
 if($_SERVER[\'REQUEST_METHOD\']==\'GET\'&&empty($_GET[$aF[0].\'1\'])&&($EndFld<=0||empty($_GET[$aF[$EndFld].\'1\']))){//Suchdatum leer
  if($StandardIntervall>=0){//Filter eingeblendet
   $FiI=$_GET[\'FiI\'];
   if(strlen($FiI)==0) if(!$FiI=$StandardIntervall) $FiI=\'0\'; $Q=\'&FiI=\'.$FiI.$Q;
   if($FiI>\'0\'){
    $Msg=\', Datum\'.$Msg; if($FiI<\'@\'){$i=$FiI;$k=0;}else{$i=0;$k=ord($FiI)-64;}
    $EndDt=date(\'y-m-d\',mktime(8,8,8,date(\'m\')+$k,date(\'d\')+$i,date(\'y\')));
   }
  }
 }else $Q=\'&FiI=0\'.$Q;//bei POST alle Termine
 if(!empty($Q)){
  if($Q!=\'&FiI=0\') $Msg=\'Suchergebnis nach\'.substr($Msg,1); else $Msg=\'Gesamtliste\';
  $H=str_replace(\'?ord=\',\'?\'.substr($Q,1).\'&ord=\',$H);
 }else $Msg=\'Gesamtliste\';
 if(!empty($Ord)) $Q.=\'&ord=\'.$Ord;
}else{$Msg=\'<p class=\"err\">fehlerhafte Termindatei!</p>\'; $Dc=0;}
if(!empty($Q)){$X=str_replace(\'druck.php\',\'druck.php?\'.substr($Q,1),str_replace(\'suche.php\',\'suche.php?\'.substr($Q,1),$X));}
$i=strpos($X,\'{Inhalt}\'); echo substr($X,0,$i); $X=substr($X,$i+8);
?>

<script type=\"text/javascript\">
<!--
 function objWin(){oWin=window.open(\"about:blank\",\"obj\",\"width=750,height=480,left=10,top=5,menubar=yes,statusbar=no,toolbar=no,scrollbars=yes,resizable=yes\");oWin.focus();}
<?php
if(empty($PopupBreite)||empty($PopupHoehe)){$Win=\'\';$Tar=\'\';}else{$Win=\'&win=1\';$Tar=\' onClick=\"javascript:DtWin()\" target=\"detail\"\'?>
 function DtWin(){dtWin=window.open(\"about:blank\",\"detail\",\"width=<?php echo $PopupBreite;?>,height=<?php echo $PopupHoehe;?>,left=4,top=4,menubar=yes,statusbar=no,toolbar=no,scrollbars=yes,resizable=yes\");dtWin.focus();}
<?php }?>
//-->
</script>
<script type=\"text/javascript\">
function Go (select) {
  var wert = select.options[select.options.selectedIndex].value;
  if (wert == \"leer\") {
    select.form.reset();
    parent.frames[\"unten\"].focus();
    return;
  } else {
    if (wert == \"ende\") {
      top.location.href = parent.frames[1].location.href;
    } else {
      parent.frames[\"unten\"].location.href = wert;
      select.form.reset();
      parent.frames[\"unten\"].focus();
    }
  }
}
</script>

<p class=\"mel\"><?php echo $Msg;?></p>
<?php if($StandardIntervall>=0){ ?>
<form action=\"index.php\" style=\"margin-top:0px;margin-bottom:5px;\" method=\"GET\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"1\">
 <tr>
  <td>
   
  </form>
<input type=\"hidden\" name=\"ord\" value=\"<?php echo $Ord;?>\">
</td>
  <td><input type=\"image\" src=\"bilder/btn_ok.gif\" width=\"24\" height=\"17\" border=\"0\" alt=\"OK\"></td>
 </tr>
</table>
<form action=\"\">
<p><h4>Wählen sie eine Jugend aus und bestätigen sie mit OK</p><p><select size=\"1\" name=\"list\">
<option value=\"bitte auswählen\" selected=\"selected\">[ bitte auswählen! ]</option>
<option value=\"index.php?FiI=0&Mannschaft1=1. Mannschaft&Mannschaft2=Mannschaft&Mannschaft3=M%E4dchen\">1. Mannschaft</option>
<option value=\"index.php?FiI=0&Mannschaft1=A- Junioren&Mannschaft2=A- Junioren&Mannschaft3=AH&Gastmannschaft3=Eigenes?FiI=0\">A- Junioren</option>
<option value=\"leer\">--------------------</option>
<option value=\"index.php?FiI=0&Mannschaft1=C- Junioren&Mannschaft2=C- Junioren&Mannschaft3=M%E4dchen\">C- Junioren</option>
<option value=\"index.php?FiI=0&Mannschaft1=D- Junioren&Mannschaft2=D- Junioren&Mannschaft3=M%E4dchen\">D- Junioren</option>
<option value=\"leer\">--------------------</option>
<option value=\"index.php?FiI=0&Mannschaft1=E-+Junioren&Mannschaft2=E-+Junioren\">E- Junioren</option>
<option value=\"index.php?FiI=0&Mannschaft1=F- Junioren&Mannschaft2=F&Mannschaft3=Mannschaft\">F- Junioren</option>
<option value=\"leer\">--------------------</option>
<option value=\"index.php?FiI=0&Mannschaft1=Bambini&Mannschaft2=Bambini&Mannschaft3=M%E4dchen\">Bambini</option>
<option value=\"leer\">--------------------</option>
<option value=\"index.php?FiI=0&Mannschaft1=B- M%E4dchen\">B- Mädchen</option>
<option value=\"index.php?FiI=0&Mannschaft1=C- M%E4dchen\">C- Mädchen</option>
<option value=\"index.php?FiI=0&Mannschaft1=D- M%E4dchen\">D- Mädchen</option>
<option value=\"leer\">--------------------</option>
<option value=\"index.php?FiI=0&Mannschaft1=ah&Mannschaft2=ah\">Alte Herren</option>
<input TYPE=\"button\" VALUE=\"OK\"
onClick=\"top.location.href=this.form.list.options[this.form.list.selectedIndex].value\">
</select></p>
</form>


<a href=\"http://www.kioskzuraltenpost.de/KALENDER2/kalender/admin\" />
<?php }?>

<table class=\"dat\" border=\"0\" cellpadding=\"3\" cellspacing=\"1\"<?php if($ListenBreite>0) echo \' width=\"\'.$ListenBreite.\'\"\';?>>
<?php
if(!empty($ListeVertikal)) $ListeVertikal=\' valign=\"\'.$ListeVertikal.\'\"\';
echo\' <tr>\'.$H.\"</tr>\\n\";
$RefDt=date(\'y-m-d\',time()-86400*$ZeigeAltesNochTage); $bAeS=($Ord<=0); $AeDt=date(\'y-m-d\');
for($i=1;$i<$Dc;$i++){
 $aL=explode(\';\',rtrim($aD[$i])); $bOk=true;
 if($EndFld<=0) $x=substr($aL[0],0,8); else if(!$x=substr($aL[$EndFld],0,8)) $x=substr($aL[0],0,8);
 if($x>=$RefDt){
  if($FiI>\'0\'){//Intervallfiltern
   $x=substr($aL[0],0,8);
   if($EndFld<=0){if($x<$RefDt||$x>$EndDt) $bOk=false;}//nur 1 Datumsfeld
   else{//2 Datumsfelder
    if($w=substr($aL[$EndFld],0,8)){if($x>$EndDt||$w<$RefDt) $bOk=false;}//2.Datum
    else if($x<$RefDt||$x>$EndDt) $bOk=false;
   }
  }
  if($bOk&&!$bAll){//Suchfiltern
   if(is_array($a1S)){
    reset($a1S);
    while(list($k,$v)=each($a1S)){
     $t=strtolower($aT[$k]);
     if($t==\'t\'||$t==\'m\'||$t==\'a\'||$t==\'l\'){
      if($w=$a2S[$k]){if(stristr(str_replace(chr(127),\';\',$aL[$k]),$w)) $b2=true; else $b2=false;}else $b2=false;
      if(!(stristr(str_replace(chr(127),\';\',$aL[$k]),$v)||$b2)) $bOk=false;
     }elseif($t==\'d\'){
      if($w=$a2S[$k]){
       $aI=explode(\'.\',str_replace(\':\',\'.\',str_replace(\';\',\'.\',str_replace(\',\',\'.\',$w)))); $aI[2]=substr($aI[2],-2);
       $w=sprintf(\'%02d-%02d-%02d\',$aI[2],$aI[1],$aI[0]); unset($aI);
      }
      $aI=explode(\'.\',str_replace(\':\',\'.\',str_replace(\';\',\'.\',str_replace(\',\',\'.\',$v)))); $aI[2]=substr($aI[2],-2);
      $v=sprintf(\'%02d-%02d-%02d\',$aI[2],$aI[1],$aI[0]); $x=substr($aL[$k],0,8);
      if(empty($w)){if($x!=$v) $bOk=false;} else if($x<$v||$x>$w) $bOk=false;
     }elseif($t==\'w\'||$t==\'n\'){
      $v=floatval(str_replace(\',\',\'.\',$v)); $w=floatval(str_replace(\',\',\'.\',$a2S[$k])); $x=floatval(str_replace(\',\',\'.\',$aL[$k]));
      if($w<=0){if($x!=$v) $bOk=false;} else{if($x<$v||$x>$w) $bOk=false;}
     }elseif($t==\'j\'){$w=$aL[$k]; if(($v==\'J\'&&$w!=\'J\')||($v==\'N\'&&$w==\'J\')) $bOk=false;}
    }
   }
   if($bOk&&is_array($a3S)){reset($a3S); while(list($k,$v)=each($a3S)) if(stristr(str_replace(chr(127),\';\',$aL[$k]),$v)) $bOk=false;}
  }
  if($bOk){//Zeile ausgeben
   if($bAeS){//akt. Ereignis pruefen
    $Dt=substr($aL[0],0,8); $Cla=\'e\';
    if($Dt>=$AeDt){
     if($Dt==$AeDt){
      if(($j=array_search(\'Z\',$aT))||($j=array_search(\'z\',$aT))){
       $RfTm=date(\'H:i\'); if($aL[$j]>=$RfTm) $bAeS=false; else $Cla=\'t\';
      }else $bAeS=false;
     }else $bAeS=false;
    }else $Cla=\'t\';
   }else $Cla=\'t\';
   echo \' <tr>\';
   for($j=0;$j<$Cc;$j++){
    if($ListenInfo==$j+1) echo \'<td class=\"da\'.$Cla.\'\"\'.$ListeVertikal.\'><a href=\"sendInfo.php?nr=\'.$i.$Q.$Win.\'\"\'.$n.$Tar.\'><img src=\"bilder/mail.gif\" width=\"16\" height=\"16\" border=\"0\" alt=\"Information senden\"></a></td>\';
    if($s=str_replace(chr(127),\';\',$aL[$aC[$j]])){
     $t=$aT[$aC[$j]]; if(!$HtmlErlaubt) $s=htmlentities($s);
     if($t==\'T\'||$t==\'Z\'||$t==\'W\'||$t==\'N\'||$t==\'A\'){
      if($j+1==$LinkSpalte) $s=\'<a class=\"dat\" href=\"detail.php?nr=\'.$i.$Q.$Win.\'\"\'.$n.$Tar.\'>\'.$s.\'</a>\';
      if($t==\'W\'){$s.=$Waehrung; $Al=\' align=\"right\"\';} else $Al=\'\';
      echo \'<td class=\"da\'.$Cla.\'\"\'.$Al.$ListeVertikal.\'>\'.$s.\'</td>\';
     }elseif($t==\'D\'){
      $w=substr($s,9,2); $d=substr($s,0,8); $s=substr($s,6,2).\'.\'.substr($s,3,2).\'.\'.$Jahrhundert.substr($s,0,2);
      if($Wochentag>0) if($Wochentag<2) $s=$w.\' \'.$s; else $s.=\' \'.$w;
      if(($j==0)||($j+1==$LinkSpalte)){
       if($j==0&&$d!=$Old){$Old=$d; $n=\' name=\"\'.$d.\'\"\';} else $n=\'\';
       $s=\'<a class=\"dat\" href=\"detail.php?nr=\'.$i.$Q.$Win.\'\"\'.$n.$Tar.\'>\'.$s.\'</a>\';
      }
      echo \'<td class=\"da\'.$Cla.\'\"\'.$ListeVertikal.\'>\'.$s.\'</td>\';
     }elseif($t==\'L\'){
      $aH=explode(\' \',$s); $v=\'\';
      for($k=0;$k<count($aH);$k++) if($s=trim($aH[$k])){
       if(strpos($s,\'@\')>0){$w=\'mailto:\'.$s; $x=\'mail\';} else{$w=\'http://\'.$s.\'\" target=\"_blank\'; $x=\'link\';}
       if(empty($KlartextLink)){
        $x=\'<img src=\"bilder/\'.$x.\'.gif\" width=\"16\" height=\"16\" border=\"0\" alt=\"\'.$s.\'\">\'; $c=\' align=\"center\"\';
       }else{$x=$s; $c=\'\';}
       $v.=\'<a class=\"dat\" href=\"\'.$w.\'\">\'.$x.\'</a> \';
      }
      echo \'<td class=\"da\'.$Cla.\'\"\'.$c.$ListeVertikal.\'>\'.$v.\'</td>\';
     }elseif($t==\'J\'){
      if($s==\'J\') $s.=\'a\'; else $s=\'Nein\'; echo \'<td class=\"da\'.$Cla.\'\" align=\"center\"\'.$ListeVertikal.\'>\'.$s.\'</td>\';
     }elseif($t==\'B\'){
      $s=\'bilder/klein/\'.$s; $aI=@getimagesize($s);
      echo \'<td class=\"da\'.$Cla.\'\" width=\"\'.$VorschauBreite.\'\" align=\"center\"><a href=\"detail.php?nr=\'.$i.$Q.$Win.\'\"\'.$Tar.\'><img src=\"\'.$s.\'\" width=\"\'.$aI[0].\'\" height=\"\'.$aI[1].\'\" border=\"0\" alt=\"Details\"></a></td>\';
     }elseif($t==\'O\'){
      $v=strtolower(substr(strrchr($s,\'.\'),1)); $w=strtoupper($v); if($v!=\'doc\'&&$v!=\'xls\'&&$v!=\'pdf\'&&$v!=\'zip\'&&$v!=\'htm\') $v=\'datei\';
      echo \'<td class=\"da\'.$Cla.\'\" align=\"center\"\'.$ListeVertikal.\'><a class=\"dat\" href=\"objekte/\'.$s.\'\" target=\"obj\" onClick=\"objWin()\"><img src=\"bilder/\'.$v.\'.gif\" width=\"16\" height=\"16\" border=\"0\" alt=\"\'.$w.\'-Datei\"></a></td>\';
     }
    }else echo \'<td class=\"da\'.$Cla.\'\">&nbsp;</td>\';
   }
   echo \"</tr>\\n\";
  }
 }
}
?>
</table>
<div><a href=\"URL/\">ZUM ADMINBEREICH</a>
<img src=\"void.gif\" width=\"1\" height=\"12\" border=\"0\" alt=\"\"></div>
<?php echo $X;?>

in: Ausländische Werbung auf Lima-City, was bringt das?

geschrieben von kevinweiler

in: Base Web Edition

geschrieben von kevinweiler

in: Nurnoch Vista?

geschrieben von kevinweiler

in: Button Generator zum Downloaden oder Online.

geschrieben von kevinweiler

in: Privat Hp Design

geschrieben von kevinweiler

in: Homepagedesign-Bitte bewerten^^

geschrieben von kevinweiler

in: BEWERTEN // neue homepage

geschrieben von kevinweiler

in: Tipps für HP

geschrieben von kevinweiler

in: Neues Design

geschrieben von kevinweiler

in: Vereinsspiel

geschrieben von kevinweiler

in: Wallpaper bewerten

geschrieben von kevinweiler

in: Vereinsspiel

geschrieben von kevinweiler

in: Essenspiel!

geschrieben von kevinweiler

in: Windows DVD Maker

geschrieben von kevinweiler

in: Firefox beschleunigen

geschrieben von kevinweiler

in: Suche Bild

geschrieben von kevinweiler

in: Homepage Design +gebundener machen

geschrieben von kevinweiler

in: Layout bewerten

geschrieben von kevinweiler

in: Spam-Game

geschrieben von kevinweiler

in: Design~ & Musik-Bewertung

geschrieben von kevinweiler

in: logo bewertung

geschrieben von kevinweiler

in: was ist für euch ne richtig GUT designte homepage??

geschrieben von kevinweiler

in: Neues Design!!!! Bitte um tips + bewertung

geschrieben von kevinweiler

in: macht games spielen cleverer?

geschrieben von kevinweiler

in: Websiten werden zu hell angezeigt

geschrieben von kevinweiler

in: Bundesliga Saison 2008/09

geschrieben von kevinweiler

in: PHP Deluxe Chat

geschrieben von kevinweiler

in: Bundesliga Saison 2008/09

geschrieben von kevinweiler

in: Windows XP von deutsch auf spanisch

geschrieben von kevinweiler

in: Bundesliga Saison 2008/09

geschrieben von kevinweiler

in: Ist der Ösi-Fußballer 4 Mio wert?

geschrieben von kevinweiler

in: Bundesliga Saison 2008/09

geschrieben von kevinweiler

in: EM nochmal ....

geschrieben von kevinweiler

in: Fehler im Script

geschrieben von kevinweiler

in: Ist Hoffenheim überhaupt ein richtiger Profiverein?

geschrieben von kevinweiler

in: Pokerflies

geschrieben von kevinweiler

in: Endlich Ronaldinho wechselt zu AC Milan

geschrieben von kevinweiler

in: Fehler im Script

geschrieben von kevinweiler

<?php
$aD=file(\'termine.txt\');
$X=str_replace(\'{Titel}\',\'Termin suchen\',join(\'\',file(\'kalender.htm\')));
if(strpos($X,\'{aktuell}\')>0){include(\'./aktuell.php\');}
if(strpos($X,\'{miniKal}\')>0){include(\'./miniKal.php\');}
$i=strpos($X,\'{Inhalt}\'); echo substr($X,0,$i); $X=substr($X,$i+8);
?>
<p class=\"mel\">Tragen Sie hier Filterkriterien ein oder listen Sie alle Termine auf!</p>

<form action=\"index.php\" method=\"POST\">
<table class=\"dat\" border=\"0\" cellpadding=\"4\" cellspacing=\"1\">
<?php
$aF=explode(\';\',rtrim($aD[0])); $aT=explode(\';\',strtolower(rtrim($aD[1]))); $Fc=count($aF);
if(empty($_GET[$aF[0].\'1\'])){
 if(($FiI=$_GET[\'FiI\'])&&$FiI>\'0\'){
  include(\'werte.php\');
  if($FiI<\'@\'){$i=$FiI;$k=0;}else{$i=0;$k=ord($FiI)-64;}
  $ID1=date(\'d.m.y\',time()-(86400*$ZeigeAltesNochTage));
  $ID2=date(\'d.m.y\',mktime(0,0,0,date(\'m\')+$k,date(\'d\')+$i,date(\'y\')));
 }
}
if(is_array($aT)&&$Fc>1) for($i=0;$i<$Fc;$i++){
 $t=$aT[$i]; $F=$aF[$i];
 if($t!=\'b\'&&$t!=\'z\'&&$t!=\'o\'&&$t!=\'p\'){
  echo \' <tr>\'.\"\\n\";
  if($t==\'t\'||$t==\'m\'||$t==\'l\') echo \'  <td class=\"dat\">\'.htmlentities($F).\' wie<br><input type=\"text\" name=\"\'.$F.\'1\" value=\"\'.$_GET[$F.\'1\'].\'\" style=\"width:160px;\"></td>\'.\"\\n\".\'  <td class=\"dat\">oder wie<br><input type=\"text\" name=\"\'.$F.\'2\" value=\"\'.$_GET[$F.\'2\'].\'\" style=\"width:160px;\"></td>\'.\"\\n\".\'  <td class=\"dat\">aber nicht wie<br><input type=\"text\" name=\"\'.$F.\'3\" value=\"\'.$_GET[$F.\'3\'].\'\" style=\"width:160px;\">;
  elseif($t==\'d\'||$t==\'w\'||$t==\'n\') echo \'  <td class=\"dat\">\'.htmlentities($F).\' wie bzw. ab<br><input type=\"text\" name=\"\'.$F.\'1\" value=\"\'.$_GET[$F.\'1\'].$ID1.\'\" style=\"width:160px;\"></td>\'.\"\\n\".\'  <td class=\"dat\">\'.htmlentities($F).\' bis<br><input type=\"text\" name=\"\'.$F.\'2\" value=\"\'.$_GET[$F.\'2\'].$ID2.\'\" style=\"width:160px;\"></td><td class=\"dat\">&nbsp;</td>;
  elseif($t==\'a\'){
   if(!is_array($aE)) $aE=file(\'eingabe.txt\');
   $aS=explode(\';\',rtrim($aE[$i])); $Sl1=\'<option value=\"\"></option>\'; $Sl2=$Sl1; $Sl3=$Sl1;
   $Gv1=$_GET[$F.\'1\']; $Gv2=$_GET[$F.\'2\']; $Gv3=$_GET[$F.\'3\'];
   for($k=0;$k<count($aS);$k++){
    if($Vl=trim($aS[$k])){
     if($Vl==$Gv1) $O1=\' selected\'; else $O1=\'\'; if($Vl==$Gv2) $O2=\' selected\'; else $O2=\'\'; if($Vl==$Gv3) $O3=\' selected\'; else $O3=\'\';
    }else{$O1=\'\'; $O2=\'\'; $O3=\'\';}
    $Sl1.=\'<option\'.$O1.\'>\'.$Vl.\'</option>\'; $Sl2.=\'<option\'.$O2.\'>\'.$Vl.\'</option>\'; $Sl3.=\'<option\'.$O3.\'>\'.$Vl.\'</option>\';
   }
   echo \'  <td class=\"dat\">\'.$F.\' wie<br><select name=\"\'.$F.\'1\" style=\"width:160px;\">\'.$Sl1.\'</select></td>\'.\"\\n\".\'  <td class=\"dat\">oder wie<br><select name=\"\'.$F.\'2\" style=\"width:160px;\">\'.$Sl2.\'</select></td>\'.\"\\n\".\'  <td class=\"dat\">aber nicht wie<br><select name=\"\'.$F.\'3\" style=\"width:160px;\">\'.$Sl3.\'</select></td>\';
  }elseif($t==\'j\'){
   if($Ch=$_GET[$F.\'1\']) if($Ch==\'J\'){$ChJ=\' checked\'; $ChN=\'\';} else{$ChJ=\'\'; $ChN=\' checked\';} else{$ChJ=\'\'; $ChN=\'\';}
   echo \'  <td class=\"dat\">\'.$F.\' hat den Wert</td><td class=\"dat\"><table width=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\"><tr><td class=\"dat\"><input type=\"checkbox\" name=\"\'.$F.\'1\" value=\"J\"\'.$ChJ.\'>Ja</td><td class=\"dat\" align=\"right\">oder&nbsp;</td></tr></table></td><td class=\"dat\"><input type=\"checkbox\" name=\"\'.$F.\'1\" value=\"N\"\'.$ChN.\'>Nein</td>\';
  }
  echo \"\\n </tr>\\n\";
  if($i==0){$ID1=\'\'; $ID2=\'\';}
 }
}else echo \' <tr class=\"da\"><td class=\"err\">Struktur der Datei <i>termine.txt</i> ungültig!</td></tr>\'.\"\\n\";
?>
</table>
<div><img src=\"void.gif\" width=\"1\" height=\"12\" border=\"0\" alt=\"\"></div>
<input type=\"image\" src=\"bilder/suchen.gif\" border=\"0\" alt=\"suchen\">
</form>
<div><img src=\"void.gif\" width=\"1\" height=\"8\" border=\"0\" alt=\"\"></div>
<?php echo $X;?>

<div><p align=center><b><a href=\"Homepage name\">ZUM ADMINBEREICH</b></a></p>
<?php
include(\'werte.php\');
if($Ord=(int)($_POST[\'ord\'].$_GET[\'ord\'])) $aD=file(\'termine\'.$Ord.\'.txt\'); else $aD=file(\'termine.txt\');
$X=str_replace(\'{Titel}\',\'Terminliste\',join(\'\',file(\'kalender.htm\')));
if(strpos($X,\'{aktuell}\')>0){include(\'./aktuell.php\');}
if(strpos($X,\'{miniKal}\')>0){include(\'./miniKal.php\');}
$aF=explode(\';\',rtrim(array_shift($aD))); $aT=explode(\';\',rtrim(array_shift($aD))); $aS=explode(\';\',rtrim($aD[0])); $Fc=count($aF);
if(is_array($aT)&&$Fc>1){
 $bAll=true; $Q=\'\'; $EndFld=-1; $j=1;
 for($i=0;$i<$Fc;$i++){
  $T=$aT[$i]; $t=strtolower($T); $F=$aF[$i]; $N=htmlentities($F);
  if($aS[$i]==\'s\'){//Sortierfeld
   if($Ord!=$i) $N=\'<a class=\"tit\" href=\"index.php?ord=\'.$i.\'\">\'.$N.\'&nbsp;<img src=\"bilder/sortiere.gif\" width=\"10\" height=\"10\" border=\"0\" alt=\"sortieren\"></a>\';
   else $N.=\'&nbsp;<img src=\"bilder/sortiert.gif\" width=\"10\" height=\"10\" border=\"0\" alt=\"sortiert\">\';
  }
  if($T<\'a\'){//Listenfeld
   if($ListenInfo==$j++) $H.=\'<td class=\"tit\">&nbsp;</td>\';
   if($t!=\'b\'&&$t!=\'o\') $s=\'\'; else $s=\' align=\"center\"\';
   $H.=\'<td class=\"tit\"\'.$s.\'>\'.$N.\'</td>\'; $aC[]=$i;
  }
  if($t!=\'b\'&&$t!=\'z\'&&$t!=\'o\'&&$t!=\'p\'){//Suchbedingungen
   $s=$_POST[$F.\'1\'].$_GET[$F.\'1\']; if(strlen($s)){$a1S[$i]=$s; $bAll=false; if(strpos($Q,urlencode($F).\'1=\')<=0) $Q.=\'&\'.urlencode($F).\'1=\'.urlencode($s); $Msg.=\', \'.$F;}
   $s=$_POST[$F.\'2\'].$_GET[$F.\'2\']; if(strlen($s)){$a2S[$i]=$s;              if(strpos($Q,urlencode($F).\'2=\')<=0) $Q.=\'&\'.urlencode($F).\'2=\'.urlencode($s); if($t==\'d\'||$t==\'w\'||$t==\'n\')if(empty($a1S[$i])){$a1S[$i]=\'00\';$bAll=false;}}
   $s=$_POST[$F.\'3\'].$_GET[$F.\'3\']; if(strlen($s)){$a3S[$i]=$s; $bAll=false; $Q.=\'&\'.urlencode($F).\'3=\'.urlencode($s); if(strpos($Msg,$F)<=0) $Msg.=\', \'.$F;}
   if($t==\'d\'&&$i>0&&$i<3) $EndFld=$i;//zweites Datumsfeld
  }
 }
 $Cc=count($aC); $Dc=count($aD);
 if($_SERVER[\'REQUEST_METHOD\']==\'GET\'&&empty($_GET[$aF[0].\'1\'])&&($EndFld<=0||empty($_GET[$aF[$EndFld].\'1\']))){//Suchdatum leer
  if($StandardIntervall>=0){//Filter eingeblendet
   $FiI=$_GET[\'FiI\'];
   if(strlen($FiI)==0) if(!$FiI=$StandardIntervall) $FiI=\'0\'; $Q=\'&FiI=\'.$FiI.$Q;
   if($FiI>\'0\'){
    $Msg=\', Datum\'.$Msg; if($FiI<\'@\'){$i=$FiI;$k=0;}else{$i=0;$k=ord($FiI)-64;}
    $EndDt=date(\'y-m-d\',mktime(8,8,8,date(\'m\')+$k,date(\'d\')+$i,date(\'y\')));
   }
  }
 }else $Q=\'&FiI=0\'.$Q;//bei POST alle Termine
 if(!empty($Q)){
  if($Q!=\'&FiI=0\') $Msg=\'Suchergebnis nach\'.substr($Msg,1); else $Msg=\'Gesamtliste\';
  $H=str_replace(\'?ord=\',\'?\'.substr($Q,1).\'&ord=\',$H);
 }else $Msg=\'Gesamtliste\';
 if(!empty($Ord)) $Q.=\'&ord=\'.$Ord;
}else{$Msg=\'<p class=\"err\">fehlerhafte Termindatei!</p>\'; $Dc=0;}
if(!empty($Q)){$X=str_replace(\'druck.php\',\'druck.php?\'.substr($Q,1),str_replace(\'suche.php\',\'suche.php?\'.substr($Q,1),$X));}
$i=strpos($X,\'{Inhalt}\'); echo substr($X,0,$i); $X=substr($X,$i+8);
?>

<script type=\"text/javascript\">
<!--
 function objWin(){oWin=window.open(\"about:blank\",\"obj\",\"width=750,height=480,left=10,top=5,menubar=yes,statusbar=no,toolbar=no,scrollbars=yes,resizable=yes\");oWin.focus();}
<?php
if(empty($PopupBreite)||empty($PopupHoehe)){$Win=\'\';$Tar=\'\';}else{$Win=\'&win=1\';$Tar=\' onClick=\"javascript:DtWin()\" target=\"detail\"\'?>
 function DtWin(){dtWin=window.open(\"about:blank\",\"detail\",\"width=<?php echo $PopupBreite;?>,height=<?php echo $PopupHoehe;?>,left=4,top=4,menubar=yes,statusbar=no,toolbar=no,scrollbars=yes,resizable=yes\");dtWin.focus();}
<?php }?>
//-->
</script>
<script type=\"text/javascript\">
function Go (select) {
  var wert = select.options[select.options.selectedIndex].value;
  if (wert == \"leer\") {
    select.form.reset();
    parent.frames[\"unten\"].focus();
    return;
  } else {
    if (wert == \"ende\") {
      top.location.href = parent.frames[1].location.href;
    } else {
      parent.frames[\"unten\"].location.href = wert;
      select.form.reset();
      parent.frames[\"unten\"].focus();
    }
  }
}
</script>

<p class=\"mel\"><?php echo $Msg;?></p>
<?php if($StandardIntervall>=0){ ?>
<form action=\"index.php\" style=\"margin-top:0px;margin-bottom:5px;\" method=\"GET\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"1\">
 <tr>
  <td>
   <select name=\"FiI\" size=\"1\">
    <option value=\"00\" selected>alle Termine</option>
    <option value=\"3\">1 Monat</option>
    <option value=\"2\">2 Wochen</option>
    <option value=\"1\">1 Woche</option>
   </select>
  </form>
<input type=\"hidden\" name=\"ord\" value=\"<?php echo $Ord;?>\">
</td>
  <td><input type=\"image\" src=\"bilder/btn_ok.gif\" width=\"24\" height=\"17\" border=\"0\" alt=\"OK\"></td>
 </tr>
</table>
<form action=\"\">
<p><h4>Wählen sie eine Jugend aus und bestätigen sie mit OK</p><p><select size=\"1\" name=\"list\">
<option value=\"bitte auswählen\" selected=\"selected\">[ bitte auswählen! ]</option>
<option value=\"index.php?FiI=0&Mannschaft1=1. Mannschaft&Mannschaft2=Mannschaft&Mannschaft3=M%E4dchen\">1. Mannschaft</option>
<option value=\"index.php?FiI=0&Spielart1=M&Spielart2=T&Mannschaft1=A- Junioren&Mannschaft2=A&Mannschaft3=AH&Gastmannschaft3=Eigenes?FiI=0\">A- Junioren</option>
<option value=\"leer\">--------------------</option>
<option value=\"index.php?FiI=0&Mannschaft1=C- Junioren&Mannschaft2=C- Junioren&Mannschaft3=M%E4dchen\">C- Junioren</option>
<option value=\"index.php?FiI=0&Mannschaft1=D- Junioren&Mannschaft2=D- Junioren&Mannschaft3=M%E4dchen\">D- Junioren</option>
<option value=\"leer\">--------------------</option>
<option value=\"index.php?FiI=0&Mannschaft1=E- Junioren&Mannschaft2=E&Mannschaft3=C\">E- Junioren</option>
<option value=\"index.php?FiI=0&Mannschaft1=F- Junioren&Mannschaft2=F&Mannschaft3=Mannschaft\">F- Junioren</option>
<option value=\"leer\">--------------------</option>
<option value=\"index.php?FiI=0&Mannschaft1=Bambini&Mannschaft2=Bambini&Mannschaft3=M%E4dchen\">Bambini</option>
<option value=\"leer\">--------------------</option>
<option value=\"index.php?FiI=0&Mannschaft1=B- M%E4dchen\">B- Mädchen</option>
<option value=\"index.php?FiI=0&Mannschaft1=C- M%E4dchen\">C- Mädchen</option>
<option value=\"index.php?FiI=0&Mannschaft1=D- M%E4dchen\">D- Mädchen</option>
<option value=\"leer\">--------------------</option>
<option value=\"index.php?FiI=0&Mannschaft1=ah\">Alte Herren</option>
<input TYPE=\"button\" VALUE=\"OK\"
onClick=\"top.location.href=this.form.list.options[this.form.list.selectedIndex].value\">
</select></p>
</form>


<a href=\"Homepagename\" />
<?php }?>

<table class=\"dat\" border=\"0\" cellpadding=\"3\" cellspacing=\"1\"<?php if($ListenBreite>0) echo \' width=\"\'.$ListenBreite.\'\"\';?>>
<?php
if(!empty($ListeVertikal)) $ListeVertikal=\' valign=\"\'.$ListeVertikal.\'\"\';
echo\' <tr>\'.$H.\"</tr>\\n\";
$RefDt=date(\'y-m-d\',time()-86400*$ZeigeAltesNochTage); $bAeS=($Ord<=0); $AeDt=date(\'y-m-d\');
for($i=1;$i<$Dc;$i++){
 $aL=explode(\';\',rtrim($aD[$i])); $bOk=true;
 if($EndFld<=0) $x=substr($aL[0],0,8); else if(!$x=substr($aL[$EndFld],0,8)) $x=substr($aL[0],0,8);
 if($x>=$RefDt){
  if($FiI>\'0\'){//Intervallfiltern
   $x=substr($aL[0],0,8);
   if($EndFld<=0){if($x<$RefDt||$x>$EndDt) $bOk=false;}//nur 1 Datumsfeld
   else{//2 Datumsfelder
    if($w=substr($aL[$EndFld],0,8)){if($x>$EndDt||$w<$RefDt) $bOk=false;}//2.Datum
    else if($x<$RefDt||$x>$EndDt) $bOk=false;
   }
  }
  if($bOk&&!$bAll){//Suchfiltern
   if(is_array($a1S)){
    reset($a1S);
    while(list($k,$v)=each($a1S)){
     $t=strtolower($aT[$k]);
     if($t==\'t\'||$t==\'m\'||$t==\'a\'||$t==\'l\'){
      if($w=$a2S[$k]){if(stristr(str_replace(chr(127),\';\',$aL[$k]),$w)) $b2=true; else $b2=false;}else $b2=false;
      if(!(stristr(str_replace(chr(127),\';\',$aL[$k]),$v)||$b2)) $bOk=false;
     }elseif($t==\'d\'){
      if($w=$a2S[$k]){
       $aI=explode(\'.\',str_replace(\':\',\'.\',str_replace(\';\',\'.\',str_replace(\',\',\'.\',$w)))); $aI[2]=substr($aI[2],-2);
       $w=sprintf(\'%02d-%02d-%02d\',$aI[2],$aI[1],$aI[0]); unset($aI);
      }
      $aI=explode(\'.\',str_replace(\':\',\'.\',str_replace(\';\',\'.\',str_replace(\',\',\'.\',$v)))); $aI[2]=substr($aI[2],-2);
      $v=sprintf(\'%02d-%02d-%02d\',$aI[2],$aI[1],$aI[0]); $x=substr($aL[$k],0,8);
      if(empty($w)){if($x!=$v) $bOk=false;} else if($x<$v||$x>$w) $bOk=false;
     }elseif($t==\'w\'||$t==\'n\'){
      $v=floatval(str_replace(\',\',\'.\',$v)); $w=floatval(str_replace(\',\',\'.\',$a2S[$k])); $x=floatval(str_replace(\',\',\'.\',$aL[$k]));
      if($w<=0){if($x!=$v) $bOk=false;} else{if($x<$v||$x>$w) $bOk=false;}
     }elseif($t==\'j\'){$w=$aL[$k]; if(($v==\'J\'&&$w!=\'J\')||($v==\'N\'&&$w==\'J\')) $bOk=false;}
    }
   }
   if($bOk&&is_array($a3S)){reset($a3S); while(list($k,$v)=each($a3S)) if(stristr(str_replace(chr(127),\';\',$aL[$k]),$v)) $bOk=false;}
  }
  if($bOk){//Zeile ausgeben
   if($bAeS){//akt. Ereignis pruefen
    $Dt=substr($aL[0],0,8); $Cla=\'e\';
    if($Dt>=$AeDt){
     if($Dt==$AeDt){
      if(($j=array_search(\'Z\',$aT))||($j=array_search(\'z\',$aT))){
       $RfTm=date(\'H:i\'); if($aL[$j]>=$RfTm) $bAeS=false; else $Cla=\'t\';
      }else $bAeS=false;
     }else $bAeS=false;
    }else $Cla=\'t\';
   }else $Cla=\'t\';
   echo \' <tr>\';
   for($j=0;$j<$Cc;$j++){
    if($ListenInfo==$j+1) echo \'<td class=\"da\'.$Cla.\'\"\'.$ListeVertikal.\'><a href=\"sendInfo.php?nr=\'.$i.$Q.$Win.\'\"\'.$n.$Tar.\'><img src=\"bilder/mail.gif\" width=\"16\" height=\"16\" border=\"0\" alt=\"Information senden\"></a></td>\';
    if($s=str_replace(chr(127),\';\',$aL[$aC[$j]])){
     $t=$aT[$aC[$j]]; if(!$HtmlErlaubt) $s=htmlentities($s);
     if($t==\'T\'||$t==\'Z\'||$t==\'W\'||$t==\'N\'||$t==\'A\'){
      if($j+1==$LinkSpalte) $s=\'<a class=\"dat\" href=\"detail.php?nr=\'.$i.$Q.$Win.\'\"\'.$n.$Tar.\'>\'.$s.\'</a>\';
      if($t==\'W\'){$s.=$Waehrung; $Al=\' align=\"right\"\';} else $Al=\'\';
      echo \'<td class=\"da\'.$Cla.\'\"\'.$Al.$ListeVertikal.\'>\'.$s.\'</td>\';
     }elseif($t==\'D\'){
      $w=substr($s,9,2); $d=substr($s,0,8); $s=substr($s,6,2).\'.\'.substr($s,3,2).\'.\'.$Jahrhundert.substr($s,0,2);
      if($Wochentag>0) if($Wochentag<2) $s=$w.\' \'.$s; else $s.=\' \'.$w;
      if(($j==0)||($j+1==$LinkSpalte)){
       if($j==0&&$d!=$Old){$Old=$d; $n=\' name=\"\'.$d.\'\"\';} else $n=\'\';
       $s=\'<a class=\"dat\" href=\"detail.php?nr=\'.$i.$Q.$Win.\'\"\'.$n.$Tar.\'>\'.$s.\'</a>\';
      }
      echo \'<td class=\"da\'.$Cla.\'\"\'.$ListeVertikal.\'>\'.$s.\'</td>\';
     }elseif($t==\'L\'){
      $aH=explode(\' \',$s); $v=\'\';
      for($k=0;$k<count($aH);$k++) if($s=trim($aH[$k])){
       if(strpos($s,\'@\')>0){$w=\'mailto:\'.$s; $x=\'mail\';} else{$w=\'http://\'.$s.\'\" target=\"_blank\'; $x=\'link\';}
       if(empty($KlartextLink)){
        $x=\'<img src=\"bilder/\'.$x.\'.gif\" width=\"16\" height=\"16\" border=\"0\" alt=\"\'.$s.\'\">\'; $c=\' align=\"center\"\';
       }else{$x=$s; $c=\'\';}
       $v.=\'<a class=\"dat\" href=\"\'.$w.\'\">\'.$x.\'</a> \';
      }
      echo \'<td class=\"da\'.$Cla.\'\"\'.$c.$ListeVertikal.\'>\'.$v.\'</td>\';
     }elseif($t==\'J\'){
      if($s==\'J\') $s.=\'a\'; else $s=\'Nein\'; echo \'<td class=\"da\'.$Cla.\'\" align=\"center\"\'.$ListeVertikal.\'>\'.$s.\'</td>\';
     }elseif($t==\'B\'){
      $s=\'bilder/klein/\'.$s; $aI=@getimagesize($s);
      echo \'<td class=\"da\'.$Cla.\'\" width=\"\'.$VorschauBreite.\'\" align=\"center\"><a href=\"detail.php?nr=\'.$i.$Q.$Win.\'\"\'.$Tar.\'><img src=\"\'.$s.\'\" width=\"\'.$aI[0].\'\" height=\"\'.$aI[1].\'\" border=\"0\" alt=\"Details\"></a></td>\';
     }elseif($t==\'O\'){
      $v=strtolower(substr(strrchr($s,\'.\'),1)); $w=strtoupper($v); if($v!=\'doc\'&&$v!=\'xls\'&&$v!=\'pdf\'&&$v!=\'zip\'&&$v!=\'htm\') $v=\'datei\';
      echo \'<td class=\"da\'.$Cla.\'\" align=\"center\"\'.$ListeVertikal.\'><a class=\"dat\" href=\"objekte/\'.$s.\'\" target=\"obj\" onClick=\"objWin()\"><img src=\"bilder/\'.$v.\'.gif\" width=\"16\" height=\"16\" border=\"0\" alt=\"\'.$w.\'-Datei\"></a></td>\';
     }
    }else echo \'<td class=\"da\'.$Cla.\'\">&nbsp;</td>\';
   }
   echo \"</tr>\\n\";
  }
 }
}
?>
</table>
<div><a href=\"Homepagename(steht natürlich die richtige Adresse\">ZUM ADMINBEREICH</a>
<img src=\"void.gif\" width=\"1\" height=\"12\" border=\"0\" alt=\"\"></div>
<?php echo $X;?>

in: DivX Player schneller \"buffen\" lassen

geschrieben von kevinweiler

in: DivX Player schneller \"buffen\" lassen

geschrieben von kevinweiler

in: Problem beim Scrollen

geschrieben von kevinweiler

in: Norton 360 Installationsdatei

geschrieben von kevinweiler

in: PHP : Neuerstellung eines Punktes

geschrieben von kevinweiler

in: PHP : Neuerstellung eines Punktes

geschrieben von kevinweiler

<form action=\"schreiben.php\" method=\"post\">
Datum:
<input type=\"text\" name=\"Datum\" value=\"Datum\" />
Überschrift
<input type=\"text\" name=\"Überschrift\" value=\"Überschrift\" />
Text
<input type=\"text\" name=\"Text\" value=\"Text\" />
<input type=\"submit\" value=\"absenden\" />
</form>

<br> 
<h2><?php echo $_POST[\"Datum\"]; ?></h2>
<br>
<h3><?php echo $_POST[\"Überschrift\"]; ?></h3>
<br>
<?php echo $_POST[\"Text\"]; ?>
<br>
<form action=\"auswerten.php\" method=\"post\">
Name:  
<input type=\"text\" name=\"Datum\" value=\"<?php echo $_POST[\"Datum\"]; ?>\";/>
Überschrift
<input type=\"text\" name=\"Überschrift\" value=\"<?php echo $_POST[\"Überschrift\"]; ?>\"/>
Text <input type=\"text\" name=\"Text\" value=\"<?php echo $_POST[\"Text\"]; ?>\"/> 
<input type=\"submit\" value=\"absenden\" /> 
</form>

in: PHP AUSLESEN

geschrieben von kevinweiler

in: PHP AUSLESEN

geschrieben von kevinweiler

<form action=\"auswerten.php\" method=\"post\">
Name:  
<input type=\"text\" name=\"Datum\" />
Überschrift
<input type=\"text\" name=\"Überschrift\" />
Text <input type=\"text\" name=\"Text\" /> 
<input type=\"submit\" value=\"absenden\" /> 
</form>

<br> 
<h2><?php echo $_POST[\"Datum\"]; ?></h2>
<br>
<h3><?php echo $_POST[\"Überschrift\"]; ?></h3>
<br>
<?php echo $_POST[\"Text\"]; ?>
<br>

in: Suche ein sicheres Gästebuch!

geschrieben von kevinweiler

in: Windows Seven

geschrieben von kevinweiler

in: Info Laufleiste erstellen

geschrieben von kevinweiler

in: Kostenloses Desing

geschrieben von kevinweiler

in: Programm zum Online Bearbeiten

geschrieben von kevinweiler

in: Text in $_Post Pfad

geschrieben von kevinweiler

<?php echo $_POST[\"Datum\"];
 echo $_POST[\"Überschrift\"];
 echo $_POST[\"Text\"]; ?>

in: Formular Daten in Text Datei bzw. HTML Datei übernehmen

geschrieben von kevinweiler

<form action=\"auswerten.php\" method=\"post\"> Name: <input name=\"Datum\" type=\"text\"> Überschrift <input name=\"Überschrift\" type=\"text\"> Text <input name=\"Text\" type=\"text\"> <input value=\"absenden\" type=\"submit\"> </form>

<?=$_POST[\"datum\"];?>

in: Formular Daten in Text Datei bzw. HTML Datei übernehmen

geschrieben von kevinweiler

in: Eigene Webseite

geschrieben von kevinweiler

in: Formular Daten in Text Datei bzw. HTML Datei übernehmen

geschrieben von kevinweiler

in: Welches ist das beste Forensystem?

geschrieben von kevinweiler