<script type="text/javascript">
// Von www.tutorials.de //
function namedlink(thetype)
{
var extraspace = "";
getActiveText();
var dtext = "";
if (text)
{
dtext = text;
}
else
{
extraspace = " ";
}
linktext = prompt(vbphrase["enter_link_text"], dtext);
var prompttext, prompt_contents;
if (thetype == "URL")
{
prompt_text = vbphrase["enter_link_url"];
prompt_contents = "http://";
}
else
{
prompt_text = vbphrase["enter_email_link"];
prompt_contents = "";
}
var linkurl = prompt(prompt_text, prompt_contents);
if ((linkurl != null) && (linkurl != ""))
{
if ((linktext != null) && (linktext != ""))
{
AddTxt = "[" + thetype + "=" + linkurl + "]" + linktext + "[/" + thetype + "]" + extraspace;
AddText(AddTxt);
}
else
{
AddTxt = "[" + thetype + "]" + linkurl + "[/" + thetype + "]" + extraspace;
AddText(AddTxt);
}
}
}
</script>