Error '800a005b'

Hi I'm getting the following error from some VBScript code running in ASP:

****************************************************************
ILIBusinessServices.Auction.AuctionItem@JJACOB error '800a005b'

Object variable or With block variable not set

/IPF/BidConfirmFloat.asp, line 50
*****************************************************************

Line 50 looks like this:
set rsAuctionItem = objAuctionItem.AuctionItem(hAuction, hAuctionItem)

Line 49 looks like this:
set objAuctionItem = server.CreateObject("ILIBusinessServices.Auction")

Please help. Thanks

Ray
Wed May 25 09:41:39 CDT 2005

Do you have hAuction and hAuctionItem defined somewhere? What do lines
35-48 look like?

Ray at work

"Jibey Jacob" <JibeyJacob@discussions.microsoft.com> wrote in message
news:7C105E40-AC39-4B98-BD32-59DCB61811A4@microsoft.com...
> Hi I'm getting the following error from some VBScript code running in ASP:
>
> ****************************************************************
> ILIBusinessServices.Auction.AuctionItem@JJACOB error '800a005b'
>
> Object variable or With block variable not set
>
> /IPF/BidConfirmFloat.asp, line 50
> *****************************************************************
>
> Line 50 looks like this:
> set rsAuctionItem = objAuctionItem.AuctionItem(hAuction, hAuctionItem)
>
> Line 49 looks like this:
> set objAuctionItem = server.CreateObject("ILIBusinessServices.Auction")
>
> Please help. Thanks

JibeyJacob
Wed May 25 10:26:03 CDT 2005

Hi:

Here's line 10 to 50:
******************************************************
dim strMake, strYear, strCity, strSeller, strKm, strVIN, strModel, curPrice,
curBuyNowPrice, bshowPhoto, bBuyNow, bMinBidsMet, strTermType, strZip,
strColor, strSeries, strBodyStyle, strTransmission, strState,
curBidIncrement, hImageCount
dim hQuantity, strComments, hAuction, hAuctionItem, curBid, strError,
hbidbuddy, strReferrer, numhCustomer

const MAX_NUMBER = 922337203680000

If Not CheckAID(sAID) Then
Response.Redirect("timeout.asp")
End If

dim iDealer
call CheckAdminLevel(sAID)
iDealer = intloggedInDealer



numhCustomer = iDealer
strReferrer = request("strRefer")
hBidBuddy = request("hBidBuddy")


if Request("DataAction") = "Confirm" then
Dim objAuctionItem
dim numCountry, dtAuctionStart, dtAuctionEnd, objAuction, rsAuction,
dtLastBid, strRegion, rsAuctionItem, bCanBid, strBidSuccess
dim objCustomer, strUserName, strPassword, bCustomerInRegisteredBrand,
country, curbuyNow, curCurrentBid

'Get Passed Data
hQuantity = 1
strComments = request("strComments")
hAuction = request("hAuction")
hAuctionItem = request("hAuctionItem")
curBid = request("curBid")

strVIN = request("strVIN")
curBuyNow = request("curbuyNow")
curBidIncrement = request("curBidIncrement")

curCurrentBid = 0

set objAuctionItem = server.CreateObject("ILIBusinessServices.Auction")
set rsAuctionItem = objAuctionItem.AuctionItem(hAuction, hAuctionItem)

******************************************************

"Ray Costanzo [MVP]" wrote:

> Do you have hAuction and hAuctionItem defined somewhere? What do lines
> 35-48 look like?
>
> Ray at work
>
> "Jibey Jacob" <JibeyJacob@discussions.microsoft.com> wrote in message
> news:7C105E40-AC39-4B98-BD32-59DCB61811A4@microsoft.com...
> > Hi I'm getting the following error from some VBScript code running in ASP:
> >
> > ****************************************************************
> > ILIBusinessServices.Auction.AuctionItem@JJACOB error '800a005b'
> >
> > Object variable or With block variable not set
> >
> > /IPF/BidConfirmFloat.asp, line 50
> > *****************************************************************
> >
> > Line 50 looks like this:
> > set rsAuctionItem = objAuctionItem.AuctionItem(hAuction, hAuctionItem)
> >
> > Line 49 looks like this:
> > set objAuctionItem = server.CreateObject("ILIBusinessServices.Auction")
> >
> > Please help. Thanks
>
>
>