nested repeat region

[shank]

I'm trying to use code I found on:
http://www.dmxzone.com/ShowDetail.as...d=394&offset=5

I've used it before without issue, but this time it's not working. The
nested records are not being filtered. They are all displayed on the very
first request. <%=FilterParam%> shows that the correct KeyNumber is
requested, but still all records are displayed.
Can anyone see what I'm missing?
thanks!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
<%
While ((Repeat1__numRows <> 0) AND (NOT rsItemKey.EOF))
%>
<%=(rsItemKey.Fields.Item("Descrip").Value)%><br >
#<%=(rsItemKey.Fields.Item("KeyNumber").Value)%>&n bsp;&nbsp;&nbsp;&nbsp;Reg
Price&nbsp;<%=
FormatCurrency((rsItemKey.Fields.Item("RegPrice"). Value), -1, -2, -2, -2)
%>&nbsp;&nbsp;&nbsp;&nbsp;<%=
FormatCurrency((rsItemKey.Fields.Item("Price").Val ue), -1, -2, -2, -2)
%><br>

<%
FilterParam = rsItemKey.Fields.Item("KeyNumber").Value
rsItemKeyProducts.Filter = "rsItemKeyProducts.KeyNumber = " & FilterParam
While (NOT rsItemKeyProducts.EOF)
%>
<%=(rsItemKeyProducts.Fields.Item("OrderNo").Value )%><%=FilterParam%><br>
<%
rsItemKeyProducts.MoveNext()
Wend
%>

<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsItemKey.MoveNext()
Wend
%>

[shank]

never mind - found it
rsItemKeyProducts.Filter = "KeyNumber = '" & FilterParam & "'"
Code originally designed for numeric key fields
Mine are alpha-numeric

"shank" <sh***@tampabay.rr.com> wrote in message
news:eJ**************@tk2msftngp13.phx.gbl...

I'm trying to use code I found on:
http://www.dmxzone.com/ShowDetail.as...d=394&offset=5

I've used it before without issue, but this time it's not working. The
nested records are not being filtered. They are all displayed on the very
first request. <%=FilterParam%> shows that the correct KeyNumber is
requested, but still all records are displayed.
Can anyone see what I'm missing?
thanks!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
<%
While ((Repeat1__numRows <> 0) AND (NOT rsItemKey.EOF))
%>
<%=(rsItemKey.Fields.Item("Descrip").Value)%><br >
#<%=(rsItemKey.Fields.Item("KeyNumber").Value)%>&n bsp;&nbsp;&nbsp;&nbsp;Reg
Price&nbsp;<%=
FormatCurrency((rsItemKey.Fields.Item("RegPrice"). Value), -1, -2, -2, -2)
%>&nbsp;&nbsp;&nbsp;&nbsp;<%=
FormatCurrency((rsItemKey.Fields.Item("Price").Val ue), -1, -2, -2, -2)
%><br>

<%
FilterParam = rsItemKey.Fields.Item("KeyNumber").Value
rsItemKeyProducts.Filter = "rsItemKeyProducts.KeyNumber = " & FilterParam
While (NOT rsItemKeyProducts.EOF)
%>
<%=(rsItemKeyProducts.Fields.Item("OrderNo").Value )%><%=FilterParam%><br>
<%
rsItemKeyProducts.MoveNext()
Wend
%>

<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsItemKey.MoveNext()
Wend
%>