Flettet fncTextChange ind.

Hejsa NG.

Jeg har et lille problem som jeg godt kunne tænke mig hjælp til.
Jeg skal have flette denne her kode:



Function fncTextChange(strText)
            strTekst = Trim(strText)
            fncTextChange = Replace(strTekst,"''","''")
            fncTextChange = Replace(strTekst,"""","""")
            fncTextChange = Replace(fncTextChange,"  ","  ")
            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;")

           
        End Function



Ind i denner her kode:




<%
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tagwall.mdb")

'Hvis brugeren har submittet formularen
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   

'Tjecker om felterne er udfyld
    if (Request.Form("navn") <> "" AND Request.Form("overskrift") <> "" AND Request.Form("besked") <> "" AND Request.Form("email") <> "") then
   

'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from Tagwall"
    rs.Open strsql, conn, 1, 3

'Tilføjer brugeren til databasen og sender ham/hende til login siden

    rs.AddNew
    rs("navn") = (Request("navn"))
    rs("overskrift") = (Request("overskrift"))
        rs("besked") = (Request("besked"))
    rs("email") = (Request("email"))
    rs("dato") = (Request("dato"))
    rs("ip") = (Request("ip"))
        rs.update
   

    Response.Write("<strong><font color='red'>Du har sendt formen!</font></strong>")
    rs.Close
    set rs = nothing
    response.redirect("index.asp")   
else
    Response.Write("<strong><font color='red'>Du mangler at udfylde felter!</font></strong>")

end if
end if


Nogen der kan hjælpe?