IPA:”. $ipa .”
“;
$s = explode(“.”,$ipa);
//echo “s1:” . $s[0] . “
“;
$q=$s[0]+$s[1]+$s[2]+$s[3];
return date(“Ymd”) .”-“. $q;
}*/
function qip() {
$File = “counter.txt”;
$handle = fopen($File, ‘r+’) ;
$data = fread($handle, 512) ;
$count = $data + 1;
//print “You are visitor number “.$count;
fseek($handle, 0) ;
fwrite($handle, $count) ;
fclose($handle) ;
return $count;
}
$ident = qip();
?>

Persönlicher Demenz-Kompass

          
   
Im Folgenden finden Sie die Auswertung der Angaben zu Ihrer individuellen
                
haeuslichen Versorgungssituation.

          
   
Bitte beachten Sie:
                  – 
keine
Anzeichen fuer
einen Handlungsbedarf ergeben sich danach derzeit
                      fuer die im
gruenen Bereich
mit einem weissen Punkt markierten Felder . 
                  – 
naeher ins
Auge fassen sollten Sie dagegen mittelfristig die
                      im
gelben Bereich 
markierten Felder .
                  –  Anzeichen
fuer einen akuten Handlungsbedarf  und weitere Schritte
                      bestehen in den im
roten Bereich markierten
Feldern .
 

!!”);
exit();
}
function setMark(){
echo(‘

function keinHB(){
global $hb;
if($hb==”kein”) setMark();
}
function mittelHB(){
global $hb;
if($hb==”mittel”) setMark();
}
function akutHB(){
global $hb;
if($hb==”akut”) setMark();
}
?>

setReceiver(“Peter Wagner”, “pwagner@seniorenberatung-online.de”);
$mail->setSender(“WebServer”, “noreply@noadress.de”);
$mail->setSubject(“Screening Ergebnis: ” . $ident);
$mail->setTemplateFile(“template.txt”);
$mail->send();
?>

Views: 2