<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<HEAD>
<title>XMLHttpRequest Demo</title>
<meta http-equiv="content-type" content="text/html;charset=UTF-8">
<meta http-equiv="Content-Script-Type" content="text/javascript">
<meta http-equiv="Content-Style-Type" content="text/css">
<link id="send2me" title="">
<script type="text/javascript">
function send4me(send4URL,send4MSG,send4DIV){
var xmlHttp = null;
// Mozilla, Opera, Safari sowie Internet Explorer 7
if (typeof XMLHttpRequest != 'undefined') {
    xmlHttp = new XMLHttpRequest();
   }
if (!xmlHttp) {
   // Internet Explorer's
   try {xmlHttp  = new ActiveXObject("Msxml3.XMLHTTP");} catch(e) {
   try {xmlHttp  = new ActiveXObject("Msxml2.XMLHTTP");} catch(e) {
   try {xmlHttp  = new ActiveXObject("Microsoft.XMLHTTP");} catch(e) {
        xmlHttp  = null;
       }
      }
     }
    }
// Wenn das Objekt erfolgreich erzeugt wurde     
if (xmlHttp) {
    var url    = send4URL;
    var msg    = send4MSG; 
    var params = "&"+msg;      
    var myDiv  = send4DIV; 
    xmlHttp.open("POST", url, true);
       
//Headerinformationen für den POST Request
    xmlHttp.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
    xmlHttp.setRequestHeader("X-BASEPORTAL", "convert-utf8");
    xmlHttp.setRequestHeader("Content-length", params.length);
    xmlHttp.setRequestHeader("Connection", "close");         
     
    xmlHttp.onreadystatechange = function () {
    if (xmlHttp.readyState == 4) {
       // Zurückgeliefertes Ergebnis wird in den DIV "myDiv" geschrieben
       document.getElementById(myDiv).innerHTML = xmlHttp.responseText;
       }
     };       
     xmlHttp.send(params);
  }    
}
</script>
</HEAD>
<BODY>

<perl>
if($out)
{ # XMLHttpRequest
$AUSGABE=qq(Das ist der Inhalt vom TEXTFELD mit "XMLHttpRequest" ::\n).$out;
out convert_br(convert_links($AUSGABE));
die;
}
$db1="/bei123/Demo/Demo1";
</perl>

siehe <b><a href="http://baseportal.de/cgi-bin/baseportal.pl?show=/bei123/XMLHttpRequest_2">Code</a></b>

<do action=all db=$db1 listfields=-Aktion,Text,Hinweisfeld keyfield=Titel localparams=+>

<perl>
out qq(Anmelden, einen Titel w&auml;hlen ); 
if($_get{db} eq "$db1")  
{
get "Id==$_get{Id}","$db1";
########################################## so muss Text mit Umbrüchen übergeben werden
$Text=convert_html($Text);
$Text =~ s#\n#\\n#g;
###########################################
out qq( und dann <button onClick="send4me('$_link','out='+encodeURIComponent('$Text')+'','ERGEBNIS')">TEXT im gr&uuml;nen Div zeigen</button>)if($_get{Id}>0);
}

</perl>
<div id="ERGEBNIS" style="border:1px solid green;min-height:30px"></div>
</BODY>
</html>