<definitions>

<tcl source="sql.so" type="LOAD">
<tcl source="database.tcl">


<disablecache>


<set var="DBUSER" value="root">
<set var="DBNAME" VALUE="xml2html">
<set VAR="DBHOST" value="localhost">
<set var="DBPASS" value="">


<define name="R_PERSON_ALL"
        p_id=""
        p_vorname=""
        p_nachname=""
        p_alter=""
        body='<tr><td>$P_ID</td><td>$P_VORNAME</td><td>$P_NACHNAME</td><td>$P_ALTER</td></tr>'
>
<define name="R_KIND_ALL"
        k_id=""
        k_vorname=""
        k_nachname=""
        k_alter=""
        k_ort=""
        body='<tr><td>$K_ID</td><td>$K_VORNAME</td><td>$K_NACHNAME</td><td>$K_ALTER</td><td>$K_ORT</</tr>'
>
<define name="R_PERSON_NAME"
        p_vorname=""
        p_nachname=""
        body='<tr><td>$P_VORNAME</td><td>$P_NACHNAME</td></tr>'
>
<define name="S_KIND_ALL"
        p_id=""
        p_vorname=""
        p_nachname=""
        p_alter=""
        body='<table><tr><td>ID</td><td>VORNAME</td><td>NACHNAME</td><td>ALTER</td><td>ORT</td></tr>'
        end='</table>'
>
<define name="S_PERSON_ALL"
        p_id=""
        p_vorname=""
        p_nachname=""
        p_alter=""
        body='<table><tr><td><b>ID</b></td><td><b>VORNAME</b></td><td><b>NACHNAME</b></td><td><b>ALTER</b></td></tr>'
        end='</table>'
>
<define name="S_PERSON_NAME"
        p_vorname=""
        p_nachname=""
        effrows=""
        body='$EFFROWS Zeilen gefunden<br><table>'
        end='</table>'
>

<define name="PERSON_LEER"
        body='<red>keine Person gefunden</red>'
>
<define name="RESEMPTY"
        body='<red>empty result-set<red>'
>

<define name="RESERROR"
        usermsg=""
        systemmsg=""
        body='<red>$USERMSG<br>$SYSTEMMSG</red>'
>

<define name="RESWRITE"
        effrows=""
        body='<red>hat geklappt !!!</red>'
>
<define name="RESUPDATE"
        effrows=""
        body='<red>update war erfolgreich</red>'
>
<define name="RESINSERT"
        effrows=""
        body='<b>insert war erfolgreich</b>'
>


<define name="KIND_ZEILE"
        k_vorname=""
        k_nachname=""
        body='<standard_zeile v1="$K_VORNAME" v2="$K_NACHNAME">'
>
<define name="PERSON_ZEILE"
        p_vorname=""
        p_nachname=""
        body='<standard_zeile v1="$P_VORNAME" v2="$P_NACHNAME">'
>
<define name="STANDARD_ZEILE"
        v1=""
        v2=""
        body='<tr><td><b><italic>$V1</italic></b></td><td><b><italic>$V2</italic></b></td></tr>'
>
</definitions>