Noen små endringer mot database.

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

    ' Opprett recordset
    Set oRS=Server.CreateObject("ADODB.Recordset")
    ' Åpne Recordset
    oRS.Open "tblOrdre", Application("oConn"), _
        adOpenKeyset, adLockOptimistic, adCmdTable
   
    ' 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
   
    oRS.Open "tblOrdreLinjer", Application("oConn"), _
          adOpenKeyset, adLockOptimistic, adCmdTable

    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 Err.number <> 0 Then
        %>En feil oppstod... Beklager, ordren din ble ikke registrert.<%
        Response.End
    End If

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