TEXTAREA FAQ in ASP development

Recently in the news of the background management system, in the access data imported into the SQL SERVER2000, there are a lot of problems, is summarized as follows:
You can convert access data by using the Import feature of SQL Server, but be aware that the original ' self-add ' field needs to be modified to modify the corresponding field identity to ' Yes ' (the original Memo field is automatically converted to ntext).
Because of the addition of news, modification is done by using textarea, first in order to retain the format of the input, in the process of adding the page add
<%
Function sqlstr (data)
Sqlstr = "'" & Replace (data, "'", "" ") &" "
End Function
Function Coder (str)
Dim I
If IsNull (str) then:coder= "": Exit function:end if
For i = 1 to Len (str)
Select case Mid (str,i,1)
Case "<": Coder = coder & "&lt;"
Case ">": Coder = coder & "&gt;"
Case "&": Coder = coder & "&amp;"
Case Chr (9): Coder = coder & "&nbsp;&nbsp;"
Case Vbcrlf:coder = coder & "<br>"
Case CHR: Coder = coder & "&nbsp;"
Case CHR: Coder = coder & "&quot;"
Case Chr (+): Coder = coder & "& #39;"
Case Else:coder = coder & Mid (str,i,1)
End Select
Next
End Function

Content=request ("content") ' body
Content=replace (Content, "&nbsp;", "") is processed here because the spaces added to the modified page are converted to &nbsp;, first filtered
Content=coder (content)

%>
On the Modify page
<%
Rs. Open SQL, Conn, adOpenStatic
Content=rs ("body") ' must be written here, if you write directly at textarea
' <textarea rows= "7" name= "T" cols= "><%=rs" ("Body")%></textarea > "Can not be displayed (I was