Feil i kode. Vil ikke hente ut oRS("OID")

<%
    KID = Request.Form("KID")
    error = ""
   
    ' Sjekk om handlekurven er tom...
    If Session("totalsum") = 0 Then
        error = error & "Du har ikke bestillt noen varer! "
    End If
   
    txtDato = Date()
    txtDato = Day( txtDato ) & "." & Month( txtDato ) & "." & Year( txtDato )

    ' SKAL ÅPNE TABELLEN ORDRE.
    connStr = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/butikk.mdb")
    Set oConn = CreateObject("adodb.connection")
    oConn.Open connStr
  ' Åpne Recordset
    Set oRS=Server.CreateObject("ADODB.Recordset")
    oRS.CursorLocation = 2 ' adUseServer
    oRS.CursorType = 0 ' adOpenForwardOnly
    oRS.LockType = 3 ' adLockOptimistic
    SQL = "SELECT * FROM tblOrdre"
    oRS.Open SQL, oConn, , , &H0001 ' adCmdText
   
    ' Legg til ny ordre
    oRS.AddNew
    oRS("OKID") = KID
    oRS("ODato") = txtDato
    oRS("OStatus") = "P"
    oRS.Update

    ' Hente ut ordre id
    OID = oRS("OID")
   
    ' Lukke ordren
    oRS.Close
   
    ' SKAL ÅPNE TABELLEN ORDRELINJER.
    SQL = "SELECT * FROM tblOrdrelinjer"
    oRS.Open SQL, oConn, , , &H0001 ' adCmdText

    For i=1 To Session("varer")
        oRS.AddNew
        oRS("OLOID") = OID
        oRS("OLPID") = Session("PID" & i)
        oRS("OLKvant") = Session("Antall" & i)
        oRS.Update
    Next
   
    oRS.Close
   
    If error <> "" Then
    Response.Clear
    %>
    <html>
    <body onload="window.alert('En feil skjedde! <% =error %>');
            window.history.back();">
    &nbsp;</body>
    </html>
    <%
    Response.End
    End If

    Session.Abandon
   
    Response.Redirect("butikk_takk.asp")   
%>