Add dividing line between grouped records...

[david]

Hi,

I have a simple asp page which throws out a list of products on order
by Customer X.

As the page writes out the lines, I want to add a Horizontal Rule when
the ProductName changes .... i.e.

Product A
Product A
Product A
_________________

Product B
Product B

_________________

Product C
Product C
Product C

And so on.

I can only get the code to write a line after each individual record.
Appreciate your help on this
Thanks in advance
David

[Murray Jack]

you will need to setup a test to see if the group has changed and then print
the line

Giving something like this

<%
Dim strProductName as string

Do until rstProducts.eof
if strProductName <> rstProducts("ProductName") Then
Response.write "<hr>"
end if

response.write rstProducts("ProductName")
strProductName = rstProducts("ProductName")

rstProducts.movenext
Loop
%>


<da***@scene-double.co.uk> wrote in message
news:11**********************@c13g2000cwb.googlegr oups.com...

Hi,

I have a simple asp page which throws out a list of products on order
by Customer X.

As the page writes out the lines, I want to add a Horizontal Rule when
the ProductName changes .... i.e.

Product A
Product A
Product A
_________________

Product B
Product B

_________________

Product C
Product C
Product C

And so on.

I can only get the code to write a line after each individual record.
Appreciate your help on this
Thanks in advance
David

[McKirahan]

<da***@scene-double.co.uk> wrote in message
news:11**********************@c13g2000cwb.googlegr oups.com...

Hi,

I have a simple asp page which throws out a list of products on order
by Customer X.

As the page writes out the lines, I want to add a Horizontal Rule when
the ProductName changes .... i.e.

Product A
Product A
Product A
_________________

Product B
Product B

_________________

Product C
Product C
Product C

And so on.

I can only get the code to write a line after each individual record.
Appreciate your help on this

Thanks in advance

David

Will this help?

Dim strPRD
strPRD = ""

<% If strPRD <> Product Then
If strORD <> "" Then
%>
<hr>
<% End If
strPRD = Product
End If
%>