[somebody]

נסה שניה את זה:
(לסגור את ה סוגריים של ה שאילתה)

    Call replacequote(body)
    Call replacequote(image)
    Call replacequote(shortbody)
       rs.close
       rs.Open "Select * FROM news WHERE id="&delid&"", Con, 2, 3
                rs.fields("image") = image
                rs.fields("head") = head
                rs.fields("body") = body
                rs.fields("shortbody") = shortbody
                    rs.fields("date") = daa
           rs.Update 'line 86
       rs.close
        response.redirect("index.asp")

ודרך אגב, DATE זה משתנה שמור, למה אתה משתמש בו?
נסה לשנות אותו ל date1 או משהו..

איזה מסד אתה משתמש?