Excel beregninger opdateres ikke når det kaldes gennem ASP

Hej

Jeg sidder med et problem hvor brugeren skal indtaste x antal værdier på en asp side, værdierne ligges nu over i et excel ark, hvor de skal danne grundlag for videre beregning. Resultatet af beregningerne, lad os kalde den SUM, skal kun trækkes fra excel og vises til brugeren. På nuværende tidspunkt kan jeg trække godt smide værdierne ned i excel og trække værdierne ud igen, problemet er bare at SUM ikke opdateres til de brugerindtastede værdier, men stadig er baseret på gamle værdier. Hvordan får jeg opdateret excel arket gennem ASP?

Excel ark:

Navn  Tal
test  10
test2  15
Sum    25

Idéen er nu at smide 20 i stedet for 10, så skulle summen gerne blive 35, hvis jeg bagefter læser fra Excel er 10 rigtig nok opdateret til 20, men summen er stadig 25. Når jeg manuelt åbner excel op vises summen 35. Her regner jeg med at opdateringen sker i det øjeblik jeg åbner excel.

  <%@ LANGUAGE="VBSCRIPT" %>
      <%
   
        Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.Open "OEF_excel"

        Set objRS = Server.CreateObject("ADODB.Recordset")
        objRS.ActiveConnection = objConn
        objRS.CursorType = 3                    'Static cursor.
        objRS.LockType = 2                      'Pessimistic Lock.
        objRS.Source = "SELECT * FROM TestData"
        objRS.Open
  %>
  <br>
  <%
      Response.Write("Original Data")

      Response.Write("<TABLE><TR>")
      For X = 0 To objRS.Fields.Count - 1
        Response.Write("<TD>" & objRS.Fields.Item(X).Name & "</TD>")
      Next
      Response.Write("</TR>")
      objRS.MoveFirst

      While Not objRS.EOF
        Response.Write("<TR>")
        For X = 0 To objRS.Fields.Count - 1
            Response.write("<TD>" & objRS.Fields.Item(X).Value)
        Next
        objRS.MoveNext
        Response.Write("</TR>")
      Wend
      Response.Write("</TABLE>")

      objRS.MoveFirst
      objRS.Fields(0).Value = "test"
      objRS.Fields(1).Value = 20
      objRS.Update

      Response.Write("<br>Data after the update")
      Response.Write("<TABLE><TR>")
      For X = 0 To objRS.Fields.Count - 1
        Response.Write("<TD>" & objRS.Fields.Item(X).Name & "</TD>")
      Next
      Response.Write("</TR>")
      objRS.MoveFirst

      While Not objRS.EOF
        Response.Write("<TR>")
        For X = 0 To objRS.Fields.Count - 1
            Response.write("<TD>" & objRS.Fields.Item(X).Value)
        Next
        objRS.MoveNext
        Response.Write("</TR>")
      Wend
      Response.Write("</TABLE>"

      objRS.Close
      Set objRS = Nothing

      objConn.Close
      Set objConn = Nothing
  %>

/ogfed