'replace " with & quot; function forum( s ) dim tmp tmp = trim(s) tmp = replace( tmp, Chr(9), "& nbsp;& nbsp;& nbsp;& nbsp;" ) tmp = replace( tmp, """", "& quot;" ) tmp = replace( tmp, "<", "& lt;" ) tmp = replace( tmp, ">", "& gt;" ) forum = replace( tmp, Chr(10), "
" & Chr(10) ) end function

В базу я заношу через форму. При выводе теряются переносы линий и даже страница не загружается до конца, если в воде были символы < и >.