<perl script=put_text>
put ["Text", convert_utf8($text),"Name",convert_utf8($name)];
out "Daten unter der Id $_put_id gespeichert...";
</perl>

<script>
function _put_text(r)
{
 document.getElementById("out").innerHTML=r;
 location.href='$_link&cmd=all&Id=%23';
}
</script>
<h3>ajax-test</h3>

<p>
Name<br>
<input type=text id='name' size=50><br>
Text<br>
<textarea type=text id='text' rows=10 cols=40></textarea><br/>
<input type=button value='Senden' onclick="put_text('','text='+escape(document.getElementById('text').value.replace(/\u20ac/g, '€'))+'&name='+escape(document.getElementById('name').value.replace(/\u20ac/g, '&amp;euro;')),alert('gespeichert'))"><br/>
<p/>

<div id="out"></div>
<h3>Datenbank-Inhalte</h3>
<do action=all listfields=Id,Name keyfield=Id>
<hr>
der Code: <a href="http://baseportal.de/cgi-bin/baseportal.pl?show=/go123/baseportal_ajax/test2">http://baseportal.de/cgi-bin/baseportal.pl?htx=/go123/baseportal_ajax/test2</a> 
<center><banner type=banner></center>