<pre>&lt;perl&gt;
%TAG=(&quot;show&quot; =&gt; sub{qq(&lt;hr&gt;&lt;div style=&quot;background-color:#ffd700&quot;&gt;$_&lt;/div&gt;)},);

$Msg=&quot;&quot;;
$db1=&quot;/bei123/Demo/Demo1&quot;;
$db2=&quot;/bei123/Daten&quot;;

$Msg=qq(&lt;b&gt;Anmelden, einen &lt;ins&gt;Titel&lt;/ins&gt; in Datenbank 1&lt;br&gt; ausw&auml;hlen und Ajax ist verf&uuml;gbar.&lt;/b&gt;&lt;br&gt;siege &lt;a href=&quot;http://baseportal.de/cgi-bin/baseportal.pl?show=/bei123/Demo/ajax_error&quot;&gt;Code&lt;/a&gt;);

sub Ausgabe
{##
$Text=convert_br(convert_links($Text));
$AUS=qq($Author&lt;br&gt;$Titel&lt;br&gt;$Hinweisfeld&lt;br&gt;$Text);
return($AUS);
}##

sub OUT
{## Routinen f&uuml;r &quot;function _OUT(o)&quot;
  if($ID)
    {
    get &quot;Id==$ID&quot;,&quot;$db1&quot;;
    #------------------------------------
    $AUS=&amp;Ausgabe();
    out &quot;$AUS&quot;;
    ########################### ERROR
    $OUT=&quot;&lt;show&gt;$AUS&lt;/show&gt;&quot;;
    out parse &quot;$OUT&quot;,\%TAG;
    #-------------------------------------
    }
  if($out)
    {
    out convert_br(convert_links($out)) ;
    }
}##

&lt;/perl&gt;

&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.01//EN&quot; &quot;http://www.w3.org/TR/html4/strict.dtd&quot;&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Demo ajax.error&lt;/title&gt;
&lt;meta http-equiv=&quot;content-language&quot; content=&quot;de&quot;&gt;
&lt;meta http-equiv=&quot;Content-Script-Type&quot; content=&quot;text/javascript&quot;&gt;
&lt;meta http-equiv=&quot;Content-Style-Type&quot; content=&quot;text/css&quot;&gt;
&lt;link rel=&quot;stylesheet&quot; type=&quot;text/css&quot; href=&quot;http://baseportal.de/baseportal/bei123/_files/DOC.css&amp;n=2&amp;q=a&quot;&gt;
&lt;script type=&quot;text/javascript&quot;&gt;
function _OUT(o){
document.getElementById(&quot;OUT&quot;).innerHTML=o;
}
&lt;/script&gt;
&lt;perl script=OUT&gt;&amp;OUT();&lt;/perl&gt;
&lt;/head&gt;

&lt;body&gt;

&lt;Div id=&quot;MAIN&quot;&gt;

&lt;div id=&quot;LEFT&quot;&gt;
&lt;h2&gt;baseportal&lt;/h2&gt;
&lt;h3&gt;Datenbank 1&lt;/h3&gt;
&lt;do action=all db=$db1 listfields=-Aktion,Text,Hinweisfeld keyfield=Titel localparams=+&gt;
$Msg
&lt;h2&gt; - - - - - - - - - - - - - - - &lt;/h2&gt;
&lt;h3&gt;Datenbank 2&lt;/h3&gt;
&lt;do action=all range^=0,2 db=$db2 localparams=+ &gt;
&lt;/div&gt;

&lt;div id=&quot;RIGHT&quot;&gt;
&lt;h2&gt;Ajax&lt;/h2&gt;
&lt;perl&gt;
if($_get{db} eq &quot;$db1&quot;)  
{
get &quot;Id==$_get{Id}&quot;,&quot;$db1&quot;;
out &quot;\$_get{Id}:&lt;b&gt;$_get{Id}&lt;/b&gt;&lt;hr&gt;Diverse Versuche:&lt;br&gt;&quot;;
#######################################
out qq(&lt;div style='height:200px;overflow:auto;background-color:#f0f0f0'&gt;&lt;button style=&quot;color:blue&quot; onClick=&quot;OUT('ID=$_get{Id}')&quot;&gt;nur ID senden&lt;/button&gt;&lt;br&gt;);

out qq(Sende alle Feldwerte &lt;b&gt;einzeln&lt;/b&gt; mit &lt;span class=&quot;bgwhite&quot;&gt; onClick=&quot;OUT('out='\$FELD')&quot;&lt;/span&gt; &lt;br&gt;&lt;button onClick=&quot;OUT('out=$Author')&quot;&gt;Author&lt;/button&gt;);

out qq(&lt;button onClick=&quot;OUT('out=$Titel')&quot;&gt;Titel&lt;/button&gt;);

out qq(&lt;button style=&quot;color:red&quot; onClick=&quot;OUT('out=$Text')&quot;&gt;Text&lt;/button&gt;&lt;hr&gt;);

out qq(Sende alle Feldwerte &lt;b&gt;einzeln&lt;/b&gt; mit &lt;span class=&quot;bgwhite&quot;&gt; encodeURIComponent('\$FELD') &lt;/span&gt; &lt;br&gt;&lt;button onClick=&quot;OUT('out='+encodeURIComponent('$Author'))&quot;&gt;Author&lt;/button&gt;);

out qq(&lt;button onClick=&quot;OUT('out='+encodeURIComponent('$Titel'))&quot;&gt;Titel&lt;/button&gt;);

out qq(&lt;button style=&quot;color:red&quot; onClick=&quot;OUT('out='+encodeURIComponent('$Text'))&quot;&gt;Text&lt;/button&gt;&lt;hr&gt;);


$Text1=convert_br(&quot;$Text&quot;);

out qq(&lt;br&gt;convert_br ? &lt;button onClick=&quot;OUT('out='+encodeURIComponent('$Text1'))&quot;&gt;convert_br(\$Text)&lt;/button&gt;);

$Text2=convert_html($Text);
$Text2 =~ s#\n#\\n#g;
out qq(&lt;br&gt;convert_html+regex ? &lt;button style=&quot;color:blue&quot; onClick=&quot;OUT('out='+encodeURIComponent('$Text2'))&quot;&gt;convert_html+regex(\$Text)&lt;/button&gt;);

$Text3=convert_url($Text);
out qq(&lt;br&gt;convert_url ? &lt;button style=&quot;color:red&quot; onClick=&quot;OUT('out='+encodeURIComponent('$Text3'))&quot;&gt;convert_url(\$Text)&lt;/button&gt;);

$Text4=convert_quote($Text);
out qq(&lt;br&gt;convert_quote ? &lt;button style=&quot;color:red&quot; onClick=&quot;OUT('out='+encodeURIComponent('$Text4'))&quot;&gt;convert_quote(\$Text)&lt;/button&gt;);

$Text5=convert_utf8($Text);
out qq(&lt;br&gt;convert_utf8 ? &lt;button style=&quot;color:red&quot; onClick=&quot;OUT('out='+encodeURIComponent('$Text5'))&quot;&gt;convert_utf8(\$Text)&lt;/button&gt;);

out &quot;&lt;/div&gt;&quot;;
}
&lt;/perl&gt;

&lt;font size=&quot;4&quot;&gt;Ajax-Ausgabe convert_links(\$out)&lt;/font&gt;
&lt;DIV id=&quot;OUT&quot; style=&quot;width:100%; min-height:30px&quot;&gt;&lt;/DIV&gt;
&lt;DIV id=&quot;RUN&quot;&gt;
&lt;font size=&quot;4&quot;&gt;Erwartete Ausgabe INSGESAMT&lt;/font&gt;&lt;hr&gt;
&lt;perl&gt;
if($_get{db} eq &quot;$db1&quot;) 
  {######################## eig.TAGS auswerten
  $AUS=&amp;Ausgabe();
  out &quot;$AUS&quot;;
  $OUT=&quot;&lt;show&gt;$AUS&lt;/show&gt;&quot;;
  out parse &quot;$OUT&quot;,\%TAG;
  }
&lt;/perl&gt;
&lt;/DIV&gt;
&lt;/div&gt;

&lt;div style=&quot;clear:left&quot;&gt;&lt;/div&gt;

&lt;/Div&gt;

&lt;center&gt;&lt;banner&gt;&lt;/center&gt;
&lt;/body&gt;
&lt;/html&gt;
</pre>