如何实现数据库中数据的换行?

[18320606]

我用的Access2000数据库,在提取属性为"备注"的值的时候,发现都混为一潭了,即没有了数据在记事本中时的换行了,如果我在数据库字段里的每一行后加上<br>,这样做故然可行,不过,傻子都知道,太麻烦了点,请问:有没有方便点的办法?

[bzscs]

function HTMLcode(fString)
if not isnull(fString) then
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLcode = fString
end if
end function
-
用这个函数就有换行了

[18320606]

我是在显示该备注字段的地方这样调用这个函数的: HTMLcode(<% = rs("歌词") %>)
但没有效果,请问:我错在哪里?

[18320606]

或者我用这样的语法:
<%
HTMLcode(rs("歌词"))
%>
错误报告:
/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'HTMLcode'