Re: Multiple-step operation generated errors. Check each status value.

Bob Barrows [MVP] wrote:

And, when using it:

dim arData, arEmpty(), i
arData=Session("my_fav")
if Not IsArray(arData) then
redim arEmpty(1,0)
arData = arEmpty
End If
i=ubound(arData,2)
arData(0,i) = cInt(Request.QueryString("BPID"))
arData(1,i) = Request.QueryString("Title")
Session("my_fav") = arData


Oops, left out the Else clause:
dim arData, arEmpty(), i
arData=Session("my_fav")
if Not IsArray(arData) then
redim arEmpty(1,0)
arData = arEmpty
Else
redim preserve arData(ubound(arData,1), ubound(arData,2) + 1)
End If
i=ubound(arData,2)
arData(0,i) = cInt(Request.QueryString("BPID"))
arData(1,i) = Request.QueryString("Title")
Session("my_fav") = arData


--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.


.