response.write

netcrawler · September 29th, 2004, 09:15 AM

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: [email protected]

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: [email protected]

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: [email protected]

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.;)