p2p.wrox.com Forums

p2p.wrox.com Forums (http://p2p.wrox.com/index.php)
-   Classic ASP Databases (http://p2p.wrox.com/forumdisplay.php?f=62)
-   -   response.write (http://p2p.wrox.com/showthread.php?t=19150)

netcrawler September 29th, 2004 09:15 AM

response.write
 
[?]
here is part of my code:


do until rs.EOF
        intTrainingDay=0
        strTrainingTime = ""
        corpscount=corpscount+1


        if strLang="e" then
            select case rs("elementid")

                case 1
                            Response.Write "<h4 class=sea>Sea<br>"
                case 2
                    Response.Write "<h4 class=army>Army<br>"
                case 3
                    Response.Write "<h4 class=air>Air<br>"
            end select

    end if

--------------------------------------------------------------

and this is the output, what i want is to have output only ONE "Sea" instead of having a Sea for each units. If you see below you will notice that there are 3 Units all within the Sea category but I want to have only ONE Sea to show up as the Category and have the Units follow bellow that. And hide the Sea for the other Units.

----------------------------------------------------------------



Sea
6 Victory
2055 DRUMMOND ST, MONTRÉAL, QC

Voice mail: 1-888-690-2236, followed by 471-0006 + #
Email: 6marine@cadets.net


Unit trains Saturdays at 09H00

top of page

Sea
188 Trafalgar
6755 36E Avenue, Montréal, QC

Voice mail: 1-888-690-2236, followed by 471-0188 + #
Email: 188marine@cadets.net


Unit trains Sundays at 09H00

top of page

Sea
233
École sec. Jean-Grou, 12725 boul Rodolphe-Forget, Montréal, QC

Voice mail: 1-888-690-2236, followed by 471-0233 + #
Email: 233marine@cadets.net


Unit trains Mondays at 18:00

------------------------------------------------------

Can someone help me out here with this problem.

Thanks for your help.





pgtips September 29th, 2004 09:34 AM

Just keep track of what the last elementid was and only write out Sea etc when elementid changes, i.e. when rs("elementid") <> lastElementId.

netcrawler September 29th, 2004 09:41 AM

Thanks for the answer but could you write the full example string to guide me because i am kind of new in this and i am still learning..

Thanks.


happygv September 29th, 2004 09:55 AM

Code:

Dim lastElementId
do until rs.EOF
        intTrainingDay=0
        strTrainingTime = ""
        corpscount=corpscount+1

    If lastElementId <> rs("elementid") then
        lastElementId = rs("elementid")
        if strLang="e" then
            select case rs("elementid")
                case 1
                    Response.Write "<h4 class=sea>Sea<br>"
                case 2
                    Response.Write "<h4 class=army>Army<br>"
                case 3
                    Response.Write "<h4 class=air>Air<br>"
            end select
     End If
    end if

    Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection

netcrawler September 29th, 2004 10:13 AM

Thanks happygv you rock man i added the code to my script and Voila it worked like a charmed... again thanks.;)



All times are GMT -4. The time now is 09:00 PM.

Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.