Thread: response.write
View Single Post
  #4 (permalink)  
Old September 29th, 2004, 09:55 AM
happygv happygv is offline
Friend of Wrox
 
Join Date: Jun 2003
Location: Bangalore, KA, India.
Posts: 2,480
Thanks: 0
Thanked 1 Time in 1 Post
Default

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
Reply With Quote