0x80020009 Exception occured? ASP/VB and MSSQL

Question

Hi. I have a two-menu form on an asp page that posts to a
second page. On
the second page I have a form.
Within this form are a set of blank form fields for a user to
complete.
These fields should be displayed (Show if Empty) if the user
chooses "New"
from either, or both, of the menus on my initial page. The
value of "new",
being passed to the second page, is blank:
<option value="" selected>New</option>
Also within this form, are a set of pre-filled (from
recordset) form fields,
identical to the blank form fields, but only displayed (Show
if Not Empty)
if the user makes a selection other than "New" from either,
or both, of the
menus on my intial page.
<option
value="<%=(rsRecordset.Fields.Item("orderID").Value)%>">Order
ID -
Name - City</option>
If I make a selection, other than "New", in BOTH of the menus
on my first
page, and submit the form, my second page form fields are
correctly filled -
no problem!
If, however, I select "New" from either of the menus, or
both, I get the
following:
Error Type:
(0x80020009)
Exception occurred.
/my2ndpage.asp, line 230
Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET
CLR 1.1.4322)
Page:
POST 42 bytes to /mypage.asp
POST Data:
orderIDpick=&orderIDdel=&Submit=Continue
I've tried inserting a "dummy" value in my "New" value (an
order ID I know
doesn't, or won't exist):
<option value="999" selected>New</option>
My thoughts being that, because I wasn't passing any value,
that was what
was causing the error, however this just gives me the
following:
Error Type:
(0x80020009)
Exception occurred.
/my2ndpage.asp, line 230
Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET
CLR 1.1.4322)
Page:
POST 42 bytes to /mypage.asp
POST Data:
orderIDpick=999&orderIDdel=999&Submit=Continue
Line 230 on my second page is:
<%
Dim rsOtherRecordset__MMColParam
rsOtherRecordset__MMColParam = "1"
230>>>>If
(rsOtherRecordset2.Fields.Item("pickupregion") <> "") Then
rsOtherRecordset__MMColParam =
rsOtherRecordset2.Fields.Item("pickupregion")
End If
%>
...this recordset is completely unrelated to the problem, I
feel, so I am
wondering if this is, really, my line 230 as is being
reported by the error
in IE?
Can anyone see what might be causing this? Would really
appreciate the
assistance. Thanks.
Regards
Nath.

Answer 1

Hi.
If a non-existent value is passed, isn't the Recordset empty?
To me, this is just passing a form value to a results page.
If the
recordset is empty, the Show If Empty is displayed (a blank
form). If the
recordset is not empty, the Show If Not Empty is displayed (a
pre-filled
form with data taken from the recordset).
I don't understand what you're saying about setting the
values for recordset
parameters based on other recordsets?
Hoping you can help me out Lionstone as I still can't get
past the Exception
Occurred error.
Could you describe the pattern you've described in bit more
detail? I don't
fully understand what DIM does.
Hope to hear from you,
Regards
Nathon.
"Lionstone" <[email protected]> wrote in
message
news:[email protected]...
> What's happening is that you're setting the values for
recordset
> parameters based on other recordsets. If those
recordsets don't exist,
> you have a problem. When you pass a blank (or
nonexistent, like 999)
> value, the recordset is empty (closed), which is just as
good as not
> existing in the first place. What happens down on the
page with the "show
> if empty" doesn't affect what happens at the top when
the parameters
> attempt to verify against a closed recordset.
>
> Your general pattern should be:
>
> Dim Menu1ID, Menu2ID
>
> Menu1ID = Request.QueryString("Menu1")
> Menu2ID = Request.QueryString("Menu2")
>
> Get Recordset for Menu1
> Get Recordset for Menu2
>
> If NOT Menu1.EOF Then
> set menu1 parameter for third recordset
> Else
> set menu1 parameter to some default value
> End If
>
> Repeat for Menu2
>
> Get third recordset
>
>
> "Nathon Jones" <[email protected]> wrote
in message
> news:[email protected]...
>> Absolutely. Thing is though, this error is occuring
when I'm submitting
>> a value that I know doesn't exist, therefore
triggering the Show If Empty
>> on the 2nd page. Well, that was the theory anyway!
:o)
>>
>> When I make a selection from the menus, other than
"New", then it works
>> (only if I've made a selection from BOTH menu's
though! - if I make a
>> selection from one menu, and leave the other one as
"New", the "Exception
>> occured" message appears again).
>>
>> This is the form on my first page:
>>
>> <form action="my2ndpage.asp" method="post"
name="formchooseaddress">
>> <select name="orderIDpick"
class="textformfields">
>> <option value="" selected>Enter New
Address</option>
>> <%
>> While (NOT rsCustPickUps.EOF)
>> %>
>> <option
>>
value="<%=(rsCustPickUps.Fields.Item("MinorderID").Value)%>"><%=(rsCustPickUps.Fields.Ite m("pickupname").Value)%>
>> -
<%=(rsCustPickUps.Fields.Item("pickupcity").Value)%>,
>>
<%=(rsCustPickUps.Fields.Item("pickuppostcode").Value)%></option>
>> <%
>> rsCustPickUps.MoveNext()
>> Wend
>> If (rsCustPickUps.CursorType > 0) Then
>> rsCustPickUps.MoveFirst
>> Else
>> rsCustPickUps.Requery
>> End If
>> %>
>> </select>
>> <select name="orderIDdel" class="textformfields"
>
>> <option value="" selected>Enter New
Address</option>
>> <%
>> While (NOT rsCustDeliverAdd.EOF)
>> %>
>> <option
>>
value="<%=(rsCustDeliverAdd.Fields.Item("MinorderID").Value)%>"><%=(rsCustDeliverAdd.Fiel ds.Item("delivername").Value)%>
>> -
<%=(rsCustDeliverAdd.Fields.Item("delivercity").Value)%>,
>>
<%=(rsCustDeliverAdd.Fields.Item("deliverpostcode").Value)%></option>
>> <%
>> rsCustDeliverAdd.MoveNext()
>> Wend
>> If (rsCustDeliverAdd.CursorType > 0) Then
>> rsCustDeliverAdd.MoveFirst
>> Else
>> rsCustDeliverAdd.Requery
>> End If
>> %>
>> </select>
>> <input name="Submit" type="submit"
value="Continue" />
>>
>> Seems pretty straightforward to me, AND it works if
I make two
>> selections.
>> Like I say though, I've tried entering this:
>> <option value="999" selected>Enter New
Address</option>
>> and also:
>> <option selected>Enter New
Address</option>
>>
>> ..to try to trigger the Show If Empty (because I
know there is no order
>> 999 or blank order ID).
>>
>> Considering that it works when selections are made,
would I be safe to
>> assume that the problem is most likely to be on the
2nd page, not in what
>> is being passed by the first?
>>
>> The code on my second page is HUGE, but if it would
help I am happy to
>> e-mail it to you.
>>
>> Really appreciate this again Lionstone. Thanks also
for the links to the
>> SQL tutorials.
>> Regards
>> Nath.
>>
>>
>>
>>
>>
>> "Lionstone" <[email protected]>
wrote in message
>> news:[email protected]...
>>> Are you certain that the other recordset exists
and has records?
>>>
>>> "Nathon Jones"
<[email protected]> wrote in message
>>> news:[email protected]...
>>>> Hi. I have a two-menu form on an asp page
that posts to a second page.
>>>> On the second page I have a form.
>>>> Within this form are a set of blank form
fields for a user to complete.
>>>> These fields should be displayed (Show if
Empty) if the user chooses
>>>> "New" from either, or both, of the menus on
my initial page. The value
>>>> of "new", being passed to the second page,
is blank:
>>>> <option value=""
selected>New</option>
>>>>
>>>> Also within this form, are a set of
pre-filled (from recordset) form
>>>> fields, identical to the blank form fields,
but only displayed (Show if
>>>> Not Empty) if the user makes a selection
other than "New" from either,
>>>> or both, of the menus on my intial page.
>>>> <option
value="<%=(rsRecordset.Fields.Item("orderID").Value)%>">Order
>>>> ID - Name - City</option>
>>>>
>>>> If I make a selection, other than "New", in
BOTH of the menus on my
>>>> first page, and submit the form, my second
page form fields are
>>>> correctly filled - no problem!
>>>> If, however, I select "New" from either of
the menus, or both, I get
>>>> the following:
>>>>
>>>> Error Type:
>>>> (0x80020009)
>>>> Exception occurred.
>>>> /my2ndpage.asp, line 230
>>>>
>>>> Browser Type:
>>>> Mozilla/4.0 (compatible; MSIE 6.0; Windows
NT 5.1; SV1; .NET CLR
>>>> 1.1.4322)
>>>> Page:
>>>> POST 42 bytes to /mypage.asp
>>>>
>>>> POST Data:
>>>>
orderIDpick=&orderIDdel=&Submit=Continue
>>>>
>>>> I've tried inserting a "dummy" value in my
"New" value (an order ID I
>>>> know doesn't, or won't exist):
>>>> <option value="999"
selected>New</option>
>>>>
>>>> My thoughts being that, because I wasn't
passing any value, that was
>>>> what was causing the error, however this
just gives me the following:
>>>>
>>>> Error Type:
>>>> (0x80020009)
>>>> Exception occurred.
>>>> /my2ndpage.asp, line 230
>>>>
>>>> Browser Type:
>>>> Mozilla/4.0 (compatible; MSIE 6.0; Windows
NT 5.1; SV1; .NET CLR
>>>> 1.1.4322)
>>>> Page:
>>>> POST 42 bytes to /mypage.asp
>>>>
>>>> POST Data:
>>>>
orderIDpick=999&orderIDdel=999&Submit=Continue
>>>>
>>>> Line 230 on my second page is:
>>>>
>>>> <%
>>>> Dim rsOtherRecordset__MMColParam
>>>> rsOtherRecordset__MMColParam = "1"
>>>> 230>>>>If
(rsOtherRecordset2.Fields.Item("pickupregion") <> "") Then
>>>> rsOtherRecordset__MMColParam =
>>>>
rsOtherRecordset2.Fields.Item("pickupregion")
>>>> End If
>>>> %>
>>>>
>>>> ...this recordset is completely unrelated to
the problem, I feel, so I
>>>> am wondering if this is, really, my line 230
as is being reported by
>>>> the error in IE?
>>>>
>>>> Can anyone see what might be causing this?
Would really appreciate the
>>>> assistance. Thanks.
>>>> Regards
>>>> Nath.
>>>>
>>>
>>>
>>
>>
>
>