Allerliefste says:
euh hoe kan ik dit allemaal bijhouden?
Allerliefste says:
als ik de computer afzet?
Nick says:
je neemt een papiertje en een potlood
Allerliefste says:
segg meen je da?

function add_bcode_tag(tag)
{ field = document.forms['form_item'].item_content;

switch (tag)
{ case 'bold':
field.value = field.value + '[ b ][ /b ]';
break;
case 'italic':
field.value = field.value + '[ i ][ /i ]';
break;
case 'underline':
field.value = field.value + '[ u ][ /u ]';
break;
case 'image':
field.value = field.value + '[ img ][ /img ]';
break;
case 'code':
field.value = field.value + '[ code ][ /code ]';
break;
case 'url':
field.value = field.value + '[ url ][ /url ]';
break;
case 'mail':
field.value = field.value + '[ mail ][ /mail ]';
break;
}

field.focus();
}

function format_bcode(text)
if isnull(text) = false then
text = replace(text, "&", "&")
text = replace(text, "<", "<")
text = replace(text, ">", ">")
text = replace(text, chr(13) + chr(10), "<br />")

text = replace(text, "[ b ]", "<strong>")
text = replace(text, "[ /b ]", "</strong>")
text = replace(text, "[ i ]", "<i>")
text = replace(text, "[ /i ]", "</i>")
text = replace(text, "[ u ]", "<u>")
text = replace(text, "[ /u ]", "</u>")
text = replace(text, "[ code ]<br />", "<div style='font-family:courier new;color:#007700;font-size:11px;padding:3px;margin:3px;border:1px solid #aaaaaa;background-color:#fafafa;'>")
text = replace(text, "[ code ]", "<div style='font-family:courier new;color:#007700;font-size:11px;padding:3px;margin:3px;border:1px solid #aaaaaa;'>")
text = replace(text, "[ /code ]<br />", "</div>")
text = replace(text, "[ /code ]", "</div>")

link_count = countchars(text, "[ url ]")
for i = 1 to link_count
url_start = instr(1, text, "[ url ]") + 5
url_stop = instr(url_start, text, "[ /url ]")
url_link = mid(text, url_start, url_stop - url_start)

text = left(text, url_start - 6) + "<a href='" & url_link & "' target='_blank'>" & url_link & "</a>" & right(text, len(text) - (url_stop + 5))
next

link_count = countchars(text, "[ mail ]")
for i = 1 to link_count
url_start = instr(1, text, "[ mail ]") + 6
url_stop = instr(url_start, text, "[ /mail ]")
url_link = mid(text, url_start, url_stop - url_start)

text = left(text, url_start - 7) + "<a href='mailto:" & url_link & "' target='_blank'>" & url_link & "</a>" & right(text, len(text) - (url_stop + 6))
next

link_count = countchars(text, "[ img ]")
for i = 1 to link_count
url_start = instr(1, text, "[ img ]") + 5
url_stop = instr(url_start, text, "[ /img ]<br />")
url_link = mid(text, url_start, url_stop - url_start)

text = left(text, url_start - 6) + "<div align='center' style='text-align:middle;border:1px solid #e0e0e0;background-color:#f6f6f6;padding:5px;'><img src='" & url_link & "' align='middle' alt='' border='0' style='border:1px solid #e0e0e0;' /></div>" & right(text, len(text) - (url_stop + 11))
next
else
text = ""
end if

format_bcode = text
end function

function countchars(cstring, cchar)
if cstring <> "" then
countchars = (len(cstring) - len(replace(cstring, cchar, ""))) / len(cchar)
else
countchar = 0
end if
end function