subscript out of range error

[-D-]

I am getting the following error: Subscript out of range: 'x' which occurs on
the following line: cmd_AlloUpdate.Parameters.Item('@ddo').Value = ddolist(x)
I'm using the split function: ddolist = Split(Request.Form('ddomenuA'),', ') I
pass in the parameter like so: Dim cmd_AlloUpdate__ddo cmd_AlloUpdate__ddo = ''
if(Request('ddomenuA') <> '') then cmd_AlloUpdate__ddo = Request('ddomenuA')
I'm pretty sure the problem is due to a change I made in the dynamic selection
list, which can now pass in one of two possible parameters: <% if
rsHdr.Fields.Item('ABR_STATUS').Value = 'INREVIEW' XOR
rsHdr.Fields.Item('ABR_STATUS').Value = 'WITHDRAW' Then %> <input
name='ddomenuA<%=(rsAllocation.Fields.Item('ABR_DE TLS_ID').Value)%>'
class='ddoinput'
id='ddomenuA<%=(rsAllocation.Fields.Item('ABR_DETL S_ID').Value)%>'
value='<%=(rsAllocation.Fields.Item('ABR_DETLS_DDO ').Value)%>' readonly='true'>
<% else %> <select
name='ddomenuA<%=(rsAllocation.Fields.Item('ABR_DE TLS_ID').Value)%>'
class='ddoinput'
id='ddomenuA<%=(rsAllocation.Fields.Item('ABR_DETL S_ID').Value)%>'> <% Do While
NOT rsDDOMenu.EOF Response.Write('<option value=''' &amp;
rsDDOMenu.Fields.Item('strddomenu').Value &amp; '''') If
rsAllocation.Fields.Item('ABR_DETLS_DDO').Value =
rsDDOMenu.Fields.Item('strddomenu').Value Then Response.Write('selected') End
If Response.Write ('>' &amp; rsDDOMenu.Fields.Item('strddomenu').Value &amp;
'</option>') rsDDOMenu.MoveNext() Loop rsDDOMenu.Requery %> </select> <% end if
%> I'm lost on how to resolve this? I can provide more code if needed. I
was just trying to isolate the problem and keep the code to a minimum. Can
anyone help. Thanks, -D-

[-D-]

I think I found the problem...ddomenuA isn't valid now because I appended a
recordset value to the end of it. So, I need to attach the value of the
recordset field to ddomenuA. Not sure how to do this? -D-

[-D-]

I capture the value for each record ID with the form field: detlsidA detlsidA
can hold a comma delimited list...i.e.: 46, 45, 100, 200, etc. I need to
append the values for detlsidA to each form field in the following statement:
Dim cmd_AlloUpdate__ddo cmd_AlloUpdate__ddo = '' if(Request('ddomenuA') <> '')
then cmd_AlloUpdate__ddo = Request('ddomenuA') How can I do this? Any help is
greatly appreciated. Thanks. -D-