function mail_knop()
{
var random_number=Math.floor(Math.random()*10000)
var knop = ""
var inhoud = document.frames["myEditor"].document.body.innerHTML 
var inlezen = document.frames["myEditor"].document.getElementsByName("vraag")
 
	if(inlezen.length >= 1)
	{
	alert("Er bevindt zich al een e-mailkoppeling op deze pagina")
	}
	else
	{
	var y = window.prompt("U kunt hier de tekst van de link invullen","")
		if(y!=null)
		{
		var tekst = "<p id=vraag><b>"+y+"</b></p><span style=\"display:none\" id=formulier_mailen"+random_number+"></span>"
		window.parent.frames['myEditor'].document.body.innerHTML = inhoud+tekst
		var vraag = window.parent.frames['myEditor'].document.getElementById("vraag")
		id_nummer = "formulier_mailen"+random_number
		var tr = window.parent.frames['myEditor'].document.body.createTextRange()
		tr.moveToElementText(vraag)
		tr.execCommand("CreateLink", false, "javascript:form_zichtbaar('"+id_nummer+"')") 
		tr.select()
		}
		if(y==null)
		{
		return false
		}
	} 
}
 
 
function form_zichtbaar(waarde)
 
{
 var invoer = document.getElementById(waarde)
 
  	 if(invoer.style.display == "none")
	 {
  	var strPageURL = "http://"+document.location.host+"/rpc/mail_form.asp"
 	var objXMLHTTP = new ActiveXObject('Microsoft.XMLHTTP'); 
	objXMLHTTP.open('POST',strPageURL,false);
	objXMLHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")    
	objXMLHTTP.send()
	var result = objXMLHTTP.responseText
 
	var uitschrijven = result.replace("form name=\"form10\" id=\"form10\"","form name="+waarde+ " id="+waarde)
	var uitschrijven_vervolg  = uitschrijven.replace("onClick=\"verzenden()\"", "onClick=verzenden('"+waarde+"')")
 	invoer.innerHTML = uitschrijven_vervolg
	
	invoer.style.display = "inline"
 	}
	else if(invoer.style.display == "inline")
	{
	invoer.style.display = "none"
	}
 
}