Access update memo field problem

mar0364 · March 25th, 2004, 04:03 PM

I have an edit form like this (more fields on actual form)

<tr>
<td>Description</td>
<td height="20"><%=oRS("describe")%></td>
</tr>
<tr>
<td><b>New Description</b></td>
<td height="26"><input type=text name=describe></td>
</tr>

The field named âdescribeâ in the mdb is actually a memo field. But if I change the input type to textarea like this

Describe:<br> <TEXTAREA name="describe" rows="5" cols="80">
</TEXTAREA>

and submit the form it deletes/writes over what is already in that field. I have the same problem with a drop down selection Iâm using. Once again if I leave the input type as text it works great.

Here is the code that actually writes the update.

<body>
<h1>Edit Response Write</h1>
<%
    Dim oRS
    Dim varName
    varauto_id =Request.QueryString ("auto_id")
    varcode =Request.QueryString ("code")
    vartitle =Request.QueryString ("title")
    varurl =Request.QueryString ("url")
    varfile_name =Request.QueryString ("file_name")
    varbox =Request.QueryString ("box")
    vardescribe =Request.QueryString ("describe")
    varlocation =Request.QueryString ("location")
    varsource =Request.QueryString ("source")
    varcreated =Request.QueryString ("created")
    varsub_category =Request.QueryString ("sub_category")

    'following line for testing
    'Response.Write varauto_ID & "<br>"
    'Response.Write "vartitle = " & vartitle & "<br>"

    Set oRS=Server.CreateObject ("ADODB.Recordset")
    oRS.Open "links", "DSN=cumber",adOpenKeyset,adLockOptimistic
    oRS.Find "auto_ID = " & varauto_ID
    If oRS.EOF Then
        Response.Write "There was an error in finding your item"
        Response.Write "<a href='index.asp'>Homepage</a>"
    End If

    'Perform Updates
    If varcode<>"" Then oRS("code") = varcode
    If vartitle<>"" Then oRS("title") = vartitle
    If varurl<>"" Then oRS("url") = varurl
    If varfile_name<>"" Then oRS("file_name") = varfile_name
    If varbox<>"" Then oRS("box") = varbox
    If vardescribe<>"" Then oRS("describe") = vardescribe
    If varlocation<>"" Then oRS("location") = varlocation
    If varsource<>"" Then oRS("source") = varsource
    If varcreated<>"" Then oRS("created") = varcreated
    If varsub_category<>"" Then oRS("sub_category") = varsub_category
    oRS.Update
%>