Update tabel med lang tekst fra textarea til memo felt

Jeg har forsøgt at opdatere et felt i en tabel med en langtekst. Feltet er sat til memo, og forminput er text area. Jeg kan ikke få det til at virke. Når jeg opdatere bliver feltet helt blankt i databasen. De andre felter opdatere fint.

Hvad gør jeg forkert?

<%product=Request.QueryString("product")%>

<%If Request.QueryString("mode")=777 then

strlangtekst = Trim(Request.Form("langtekst"))

Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../log/database.mdb")

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&DBPath
SQL = "UPDATE produkter SET langtekst = '" & Server.HTMLEncode(strlangtekst) & "' Where idkey =" & product & ""
Set RS = Conn.Execute(SQL)
Conn.Close

Set Conn = Nothing

End If%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../log/database.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&DBPath

SQL = "Select * from produkter WHERE idkey=" & product & " "
Set RS = Conn.Execute(SQL)
%>
<!-- en form med submit og den virker -->
<textarea name="text" rows="10" cols="50"><%=rs("langtekst")%></textarea>
<%RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>

Kom med løsningen :-)