"shank" <sh***@tampabay.rr.com> wrote in message
news:eJ8ZQ1Z$FHA.4028@tk2msftngp13.phx.gbl...
> I'm trying to use code I found on:
> http://www.dmxzone.com/ShowDetail.asp?NewsId=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)%>&nbsp;&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").Value), -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
> %>
>