conn.execute "insert into news set content='"&iHTMLEncode(request("content"))&"'"
.................
response.write rs("content")
Public Function iHTMLEncode(fString)
If Not IsNull(fString) Then
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
iHTMLEncode = fString
End If
End Function