A
andy.rich
I am getting the following error and I do not know why. Can anyone
help?
--------------------------------------------------------
this is what appears on the screen
--------------------------------------------------------
2Sports 'trouble shooting
illustrated 'trouble shooting
Newsstand 'trouble shooting
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '3'
/Lockerroom/search/searchfound.asp, line 69
-------------------------------------------------------
End of screen
-------------------------------------------------------
oTitle1 = "Sports illustrated Newsstand"
oTitle = Split(oTitle1," ")
lenoTitle = ubound(oTitle,1)
Response.Write(lenoTitle) 'trouble shooting
for i=0 to lenoTitle 'trouble shooting
Response.Write(oTitle(i)) & "<BR>" 'trouble shooting
next 'trouble shooting
--------------------------------------------------------
Line 69 starts here
--------------------------------------------------------
strSQL = "SELECT max(tblauctionbids.WinPrice) as highestPrice,
count(tblauctionbids.AID) as BidCount, tblauctionitems.Title,
tblauctionitems.MinPrice, tblauctionitems.IID, tblauctionitems.AID,
tableauctions.StartDate, tableauctions.EndDate " & _
"FROM tblauctionitems " & _
"left outer join tableauctions on (tblauctionitems.AID =
tableauctions.AID) " & _
"left outer join tblauctionbids on (tblauctionitems.AID =
tblauctionbids.AID) " & _
"WHERE (for i=0 to lenoTitle) " & _
"queryStr = queryStr & Title LIKE '%" & oTitle(i) & "%' OR Title LIKE
'%" & oTitle(i) & "%' OR" & _
"next " & _
"queryStr = left(queryStr, Len(queryStr)-3) " & _
"queryStr = queryStr & AND tblauctionitems.Title LIKE '%" & oTitle &
"%' ORDER BY AID"
help?
--------------------------------------------------------
this is what appears on the screen
--------------------------------------------------------
2Sports 'trouble shooting
illustrated 'trouble shooting
Newsstand 'trouble shooting
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '3'
/Lockerroom/search/searchfound.asp, line 69
-------------------------------------------------------
End of screen
-------------------------------------------------------
oTitle1 = "Sports illustrated Newsstand"
oTitle = Split(oTitle1," ")
lenoTitle = ubound(oTitle,1)
Response.Write(lenoTitle) 'trouble shooting
for i=0 to lenoTitle 'trouble shooting
Response.Write(oTitle(i)) & "<BR>" 'trouble shooting
next 'trouble shooting
--------------------------------------------------------
Line 69 starts here
--------------------------------------------------------
strSQL = "SELECT max(tblauctionbids.WinPrice) as highestPrice,
count(tblauctionbids.AID) as BidCount, tblauctionitems.Title,
tblauctionitems.MinPrice, tblauctionitems.IID, tblauctionitems.AID,
tableauctions.StartDate, tableauctions.EndDate " & _
"FROM tblauctionitems " & _
"left outer join tableauctions on (tblauctionitems.AID =
tableauctions.AID) " & _
"left outer join tblauctionbids on (tblauctionitems.AID =
tblauctionbids.AID) " & _
"WHERE (for i=0 to lenoTitle) " & _
"queryStr = queryStr & Title LIKE '%" & oTitle(i) & "%' OR Title LIKE
'%" & oTitle(i) & "%' OR" & _
"next " & _
"queryStr = left(queryStr, Len(queryStr)-3) " & _
"queryStr = queryStr & AND tblauctionitems.Title LIKE '%" & oTitle &
"%' ORDER BY AID"