Stored Procedure

Hej,

Jeg har et maerkeligt problem - Jeg benytter mig af en stored-procedure som i princippet skulle oprette en ny ordre i finansprogrammet. Det lader til at den opretter recorden, men jeg kan ikke se den i finansprogrammet og hellere ikke via Access (ADP-forbindelse). Men laver jeg en select from i asp og vælger det ID den returnerede til mig får jeg det output...

Hvis jeg via Access kører den stored-procedure og indtaster de 3 nødvendige parameter så opretter den fint ordren?!?!


<%
Dim objConn
Dim objCmd

Const adCmdStoredProc    = 4
Const adInteger          = 3
Const adCurrency        = 6
Const adParamInput      = 1
Const adParamOutput      = 2
Const adExecuteNoRecords = 128
Const adDBDate = 133
Const adLongVarChar = 201
Const adBSTR = 8

'Instantiate objects
Set objconn        = Server.CreateObject("ADODB.Connection")
set objCmd        = Server.CreateObject("ADODB.Command")

connect = " provider=sqloledb;server=xxx;database=x;uid=yx;pwd=yx"
objconn.open = connect

strSQL = "SELECT * from orders where OrderNo='5214'"
set rs = objConn.execute(strSQL)


do until rs.EOF
  for each x in rs.Fields
    Response.Write(x.name)
    Response.Write(" = ")
    Response.Write(x.value & "<br />")
  next
  Response.Write("<br />")
  response.Flush()
  rs.MoveNext
loop   
   
strSQL = "SELECT MAX (convert(bigInt,OrderNo)) as MaxOrder from Orders"
set rs = objConn.execute(strSQL)
strMaxOrder = CDbl(rs("MaxOrder")) + 1

With objCmd
    .ActiveConnection = connect
    .CommandText = "kompas_orders_addnew"
    .CommandType = adCmdStoredProc 'Requires the adovbs.inc file or typelib meta tag
   
    'Add Input Parameters
    .Parameters.Append .CreateParameter("@OrderID", adInteger, adParamInput, ,strMaxOrder)
    .Parameters.Append .CreateParameter("@Customer", adInteger, adParamInput, , 21472231)
    .Parameters.Append .CreateParameter("@UserID", adInteger, adParamInput, , 0)
   
    'Execute the function
    'If not returning a recordset, use the adExecuteNoRecords parameter option
    .Execute, , adExecuteNoRecords
    orderID = .Parameters("@orderID")
End With

response.write orderID

%>