0x80020009 Exception occured? ASP/VB and MSSQL

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" <HIDElionstone@HIDEhushmail.com> wrote in message
news:e8tkho$514$1@forums.macromedia.com...
> 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" <sales@NOSHPAMtradmusic.com> wrote in message
> news:e8o3rq$lja$1@forums.macromedia.com...
>> 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.Item("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.Fields.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" <HIDElionstone@HIDEhushmail.com> wrote in message
>> news:e8mbll$jhi$1@forums.macromedia.com...
>>> Are you certain that the other recordset exists and has records?
>>>
>>> "Nathon Jones" <sales@NOSHPAMtradmusic.com> wrote in message
>>> news:e8lt96$1s5$1@forums.macromedia.com...
>>>> 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.
>>>>
>>>
>>>
>>
>>
>
>

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" <sales@NOSHPAMtradmusic.com> wrote in message
news:e8o3rq$lja$1@forums.macromedia.com...
> 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.Item("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.Fields.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" <HIDElionstone@HIDEhushmail.com> wrote in message
> news:e8mbll$jhi$1@forums.macromedia.com...
>> Are you certain that the other recordset exists and has records?
>>
>> "Nathon Jones" <sales@NOSHPAMtradmusic.com> wrote in message
>> news:e8lt96$1s5$1@forums.macromedia.com...
>>> 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.
>>>
>>
>>
>
>

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.Item("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.Fields.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" <HIDElionstone@HIDEhushmail.com> wrote in message
news:e8mbll$jhi$1@forums.macromedia.com...
> Are you certain that the other recordset exists and has records?
>
> "Nathon Jones" <sales@NOSHPAMtradmusic.com> wrote in message
> news:e8lt96$1s5$1@forums.macromedia.com...
>> 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.
>>
>
>

Are you certain that the other recordset exists and has records?

"Nathon Jones" <sales@NOSHPAMtradmusic.com> wrote in message
news:e8lt96$1s5$1@forums.macromedia.com...
> 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.
>