Søg
Avatar billede nc85 Nybegynder
29. august 2007 - 15:21 Der er 4 kommentarer og
1 løsning

Skift classname for hver post

Hejsa alle...

Har en masse rækker i min database... Når jeg hiver dem ud så genereres dette:
o.Append "<div class=""inet_newsfolderitem"">"
                o.Append "<a href=""idd"&FirstNewsPage(newsfolder_id)&".asp"" title="""&newsfoldertitle&""">" & newsfoldertitle & "</a>"
                o.Append "</div>"

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

Jeg har 3 forskellige classes i mit css som jeg gerne vil bruge. Så det jeg gerne vil have der skal ske er at for hver post der bliver udskrevet skal der tilføjes et andet classname til <div>

Fx.
Post 1 = classname 1
Post 2 = classname 2
Post 3 = classname 3
Post 4 = classname 1
Post 5 = classname 2

Altså, for hver 3 post, starter den forfra med de classnames der er tilgængelige...

Allerførst tænkte jeg på om man kunne styre det med en tæller ala:

addClass = ""
If (i mod 3 = 0) Then addClass = " last"

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

Men kan ik få det til at fungere ordenligt...

Noget hjælp vil være skønt:)
Avatar billede cpufan Juniormester
29. august 2007 - 15:45 #1
i din løkke:
mincounter = 1
do while not db.eof
select case mincounter
case 1
minclass = "classname 1"
case 2
minclass = "classname 2"
case 3
minclass = "classname 3"
end select

'og så din anden kode ind her

mincounter = mincounter +1
if mincounter > 3 then mincounter = 1
loop
Avatar billede cpufan Juniormester
29. august 2007 - 15:49 #2
o.Append "<div class='"&minclass&"'>" skal det selvf. være så
Avatar billede nc85 Nybegynder
30. august 2007 - 10:04 #3
Hmm, det vil sq ik rigtig fungere:

Do Until rs.EOF
            Dim newsfoldertitle, newsfolder_id
            newsfolder_id = rs("id")
            newsfoldertitle = rs("titel")
           
            i = 1   

            Select Case Cint(i)
                Case 1
                    minclass = "inet_newsfolderitem_red"
                Case 2
                    minclass = "inet_newsfolderitem_green"
                Case 3
                    minclass = "inet_newsfolderitem_blue"
            End Select

           

            If rs("parent") > 0 Then
                o.Append "<div class="""&minclass&""">"
                o.Append "<div class=""wrapFolderItem"">"
                o.Append "<a href=""idd"&FirstNewsPage(newsfolder_id)&".asp"" title="""&newsfoldertitle&""">" & newsfoldertitle & "</a>"
                o.Append "</div>"
                o.Append "</div>"
            End If

            rs.MoveNext
            i = i + 1
        Loop
Avatar billede nc85 Nybegynder
30. august 2007 - 10:11 #4
Jeg fandt ud af det, tak for hjælpen :)
Avatar billede cpufan Juniormester
30. august 2007 - 10:34 #5
fint
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:03 Forlænge ringetid Af 1Dorte i Apps til Android
17/0117:38 Video ikoner Af Malm i Windows
17/0117:27 Video ikoner Af logbuilders i Windows
16/0110:29 Negativ billeder på samsung Af ALICE i Småopgaver
15/0115:45 HJÆLP - Lopslag, Indeks? Hvad gør jeg! Af Eva i Excel
White papers
Flere white papers »