ASP Flet ind.

Hejsa NG..

Er der én med snildhed der kan flette denne her kode:
profil = fncTextChange(request.form("profil"))


Function fncTextChange(strText)
                                  strTekst = Trim(strText)
fncTextChange = Replace(strTekst,"""","''")
fncTextChange = Replace(fncTextChange,"'","''")
fncTextChange = Replace(fncTextChange,"  ","  ")
fncTextChange = Replace(fncTextChange,">",">")
fncTextChange = Replace(fncTextChange,"<","&lt;")
fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>")
fncTextChange = Replace(fncTextChange,"å","&aring;")
fncTextChange = Replace(fncTextChange,"æ","&aelig;")
fncTextChange = Replace(fncTextChange,"ø","&oslash;")
fncTextChange = Replace(fncTextChange,"Å","&Aring;")
fncTextChange = Replace(fncTextChange,"Æ","&AElig;")
fncTextChange = Replace(fncTextChange,"Ø","&Oslash;")
fncTextChange = Replace(fncTextChange,"&lt;b&gt;","<b>")
fncTextChange = Replace(fncTextChange,"&lt;/b&gt;","</b>")
fncTextChange = Replace(fncTextChange,"&lt;i&gt;","<i>")
fncTextChange = Replace(fncTextChange,"&lt;/i&gt;","</i>")
fncTextChange = Replace(fncTextChange,"&lt;u&gt;","<u>")
fncTextChange = Replace(fncTextChange,"&lt;/u&gt;","</u>")
                                  End Function


Ind i denne her kode:



'Tjecker om brugeren er logget ind
if session("user") = "" then
Response.Redirect("login.asp")
end if

'Henter brugerens profil
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from users where user = '" & Session("user") & "'"
rs.open sql, conn, 1, 3
                           
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
                       
'Opdaterer felterner
rs.update
rs("password") = Server.HTMLEncode(Request("adgangskode"))
rs("alder") = Server.HTMLEncode(Request("alder"))
rs("email") = Server.HTMLEncode(Request("email"))
rs("Hjemmeside") = Server.HTMLEncode(Request("hjemmeside"))
rs("Icq") = Server.HTMLEncode(Request("icq"))
rs("Tekst") = Server.HTMLEncode(Request("fri_tekst"))
rs("yndlingskue") = Server.HTMLEncode(Request("yndlingskue"))
rs("hadeskue") = Server.HTMLEncode(Request("hadeskue"))
rs("yndlingfilm") = Server.HTMLEncode(Request("yndlingfilm"))
rs("hadefilm") = Server.HTMLEncode(Request("hadefilm"))
rs("realname") = Server.HTMLEncode(Request("realname"))
rs("adresse") = Server.HTMLEncode(Request("adresse"))
rs("postby") = Server.HTMLEncode(Request("postby"))
rs("tlf") = Server.HTMLEncode(Request("tlf"))
rs.update
                               
                            end if