stored procedure and asp problems

[bigDWK]

Hi-
I'm having problems with the following stored procedure. Below
first I have the stored proc, then I have the asp code that calls it.
Randomly it won't insert the order into the database and a way out of
sequence order id is returned. My connection string looks like this:

Provider=SQLOLE DB;Data Source=192.168. 1.2;Initial
Catalog=myDatab ase;Network Library=DBMSSOC N;Persist Security
Info=True;User Id=myUser;Passw ord=myPassword

The web server and the sql server are directly connected using a
crossover cable. Now for the sproc:

CREATE PROCEDURE myUser.sp_order Inital
@iCustID VarChar(40),
@iPayID VarChar(40),
@iAddrID VarChar(40),
@orderAmount VarChar(25),
@orderComments NText,
@orderSTax VarChar(25),
@orderShipMetho d VarChar(200),
@orderShippingA mount VarChar(25),
@orderBrowser VarChar(250),
@orderGrandTota l VarChar(25),
@orderPaymentMe thod VarChar(100),
@orderCheckAcct Number VarChar(100),
@orderCheckNumb er VarChar(100),
@orderBankName VarChar(250),
@orderRoutingNu mber VarChar(100),
@orderPurchaseO rderName VarChar(250),
@orderPurchaseO rderNumber VarChar(100),
@orderRemoteAdd ress VarChar(30),
@orderTradingPa rtner VarChar(250),
@orderHttpRefer rer VarChar(250)
AS
DECLARE @orderID INT

INSERT INTO sfOrders (orderCustId, orderPayId, orderAddrId,
orderAmount, orderComments, orderSTax, orderShipMethod ,
orderShippingAm ount, orderGrandTotal , orderPaymentMet hod,
orderCheckAcctN umber, orderCheckNumbe r, orderBankName,
orderRoutingNum ber, orderPurchaseOr derName,
orderPurchaseOr derNumber,
orderRemoteAddr ess, orderHttpReferr er, orderTradingPar tner,
orderBrowser)
VALUES (@iCustID, @iPayID, @iAddrID,
@orderAmount, @orderComments, @orderSTax, @orderShipMetho d,
@orderShippingA mount, @orderGrandTota l, @orderPaymentMe thod,
@orderCheckAcct Number, @orderCheckNumb er, @orderBankName,
@orderRoutingNu mber, @orderPurchaseO rderName,
@orderPurchaseO rderNumber,
@orderRemoteAdd ress, @orderHttpRefer rer, @orderTradingPa rtner,
@orderBrowser)

SELECT @orderID = @@IDENTITY
RETURN @orderID
GO

*************** *************** *************** ***********
Now the asp code starts
*************** *************** *************** ***********

Dim iOrderID

Dim cmdOrders
Set cmdOrders = Server.CreateOb ject("ADODB.Com mand")

With cmdOrders
.ActiveConnecti on = cnn
.CommandText = "bradley.sp_Ord erInital"
.CommandType = adCmdStoredProc
'sdfsdfsdff;sdf sd;
.Parameters.App end .CreateParamete r ("RetVal", adVarWChar,
adParamReturnVa lue, 40)
.Parameters.App end .CreateParamete r ("@iCustID", adVarWChar,
adParamInput, 40)
.Parameters.App end .CreateParamete r ("@iPayID", adVarWChar,
adParamInput, 40)
.Parameters.App end .CreateParamete r ("@iAddrID", adVarWChar,
adParamInput, 40)
.Parameters.App end .CreateParamete r ("@orderAmount" , adVarWChar,
adParamInput, 25)
.Parameters.App end .CreateParamete r ("@orderComment s",
adLongVarWChar, adParamInput, 4000)
.Parameters.App end .CreateParamete r ("@orderSTax ", adVarWChar,
adParamInput, 25)
.Parameters.App end .CreateParamete r ("@orderShipMet hod", adVarWChar,
adParamInput, 200)
.Parameters.App end .CreateParamete r ("@orderShippin gAmount",
adVarWChar, adParamInput, 25)
.Parameters.App end .CreateParamete r ("@orderBrowser ", adVarWChar,
adParamInput, 250)
.Parameters.App end .CreateParamete r ("@orderGrandTo tal", adVarChar,
adParamInput, 25)
.Parameters.App end .CreateParamete r ("@orderPayment Method",
adVarWChar, adParamInput, 100)
.Parameters.App end .CreateParamete r ("@orderCheckAc ctNumber",
adVarWChar, adParamInput, 100)
.Parameters.App end .CreateParamete r ("@orderCheckNu mber",
adVarWChar, adParamInput, 100)
.Parameters.App end .CreateParamete r ("@orderBankNam e", adVarWChar,
adParamInput, 250)
.Parameters.App end .CreateParamete r ("@orderRouting Number",
adVarWChar, adParamInput, 100)
.Parameters.App end .CreateParamete r ("@orderPurchas eOrderName",
adVarWChar, adParamInput, 250)
.Parameters.App end .CreateParamete r ("@orderPurchas eOrderNumber",
adVarWChar, adParamInput, 100)
.Parameters.App end .CreateParamete r ("@orderRemoteA ddress",
adVarWChar, adParamInput, 30)
.Parameters.App end .CreateParamete r ("@orderTrading Partner",
adVarWChar, adParamInput, 250)
.Parameters.App end .CreateParamete r ("@orderHttpRef errer",
adVarWChar, adParamInput, 250)
IF IsNumeric(iCust ID)Then
.Parameters ("@iCustId") = trim(iCustID)
ELSE
.Parameters ("@iCustId") = "0"
END IF
IF IsNumeric(iPayI D)Then
.Parameters("@i PayId") = trim(iPayID)
ELSE
.Parameters("@i PayId") = "0"
END IF
If IsNumeric(iAddr ID)Then
.Parameters("@i AddrId") = trim(iAddrID)
ELSE
.Parameters("@i AddrId") = "0"
End If
.Parameters("@o rderAmount") = trim(sTotalPric e)
IF trim(sShipInstr uctions) <> "" THEN
.Parameters("@o rderComments") = trim(sShipInstr uctions)
ELSE
.Parameters("@o rderComments") = ""
END IF
.Parameters("@o rderSTax") = trim(sTotalSTax )
'rsOrder.Fields ("orderCTax" ) = trim(sTotalCTax )
'rsOrder.Fields ("orderHandling ") = trim(sTotalHand ling)

.Parameters("@o rderShipMethod" ) = trim(sShipMetho dName)
.Parameters("@o rderShippingAmo unt") = trim(sShipping)
.Parameters("@o rderBrowser") =
trim(Request.Se rverVariables(" HTTP_USER_AGENT "))
.Parameters("@o rderGrandTotal" ) = trim(sGrandTota l)
.Parameters("@o rderPaymentMeth od") = trim(sPaymentMe thod)
IF trim(iCheckingA ccountNumber) <> "" THEN
.Parameters("@o rderCheckAcctNu mber") = trim(iCheckingA ccountNumber)
ELSE
.Parameters("@o rderCheckAcctNu mber") = ""
END IF
IF trim(iCheckNumb er) <> "" THEN
.Parameters("@o rderCheckNumber ") = trim(iCheckNumb er)
ELSE
.Parameters("@o rderCheckNumber ") = ""
END IF
IF trim(sBankName) <> "" THEN
.Parameters("@o rderBankName") = trim(sBankName)
ELSE
.Parameters("@o rderBankName") = ""
END IF
IF trim(iRoutingNu mber) <> "" THEN
.Parameters("@o rderRoutingNumb er") = trim(iRoutingNu mber)
ELSE
.Parameters("@o rderRoutingNumb er") = ""
END IF
IF trim(iPOName) <> "" THEN
.Parameters("@o rderPurchaseOrd erName") = trim(iPOName)
ELSE
.Parameters("@o rderPurchaseOrd erName") = ""
END IF
IF trim(iPONumber) <> "" THEN
.Parameters("@o rderPurchaseOrd erNumber") = trim(iPONumber)
ELSE
.Parameters("@o rderPurchaseOrd erNumber") = ""
END IF
if isArray(aRefere r) then
on error resume next
IF aReferer(2) <> "" THEN
.Parameters("@o rderRemoteAddre ss") = aReferer(2)
ELSE
.Parameters("@o rderRemoteAddre ss") = ""
END IF
IF aReferer(0) <> "" THEN
.Parameters("@o rderTradingPart ner") = aReferer(0)
ELSE
.Parameters("@o rderTradingPart ner") = ""
END IF
IF aReferer(1) <> "" THEN
.Parameters("@o rderHttpReferre r") = aReferer(1)
ELSE
.Parameters("@o rderHttpReferre r") = ""
END IF
else
.Parameters("@o rderRemoteAddre ss") = ""
.Parameters("@o rderTradingPart ner") = ""
.Parameters("@o rderHttpReferre r") = ""
end if
Dim lngRecs
.Execute

iOrderID = .Parameters("Re tVal") 'rsOrder.Fields ("orderID")