---
title: "Färga varannan rad, fast egentligen var tredje!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/109488-färga-varannan-rad-fast-egentligen-var-tredje"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfernstrom"
published: "2004-08-18T05:42:59.000Z"
updated: "2004-08-18T06:43:47.000Z"
replies: 9
views: 448
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/109488-färga-varannan-rad-fast-egentligen-var-tredje"
---

# Färga varannan rad, fast egentligen var tredje!

## #1 — magnusfernstrom, 2004-08-18T05:42Z

Hej håw!

Jag har denna kod, för att färga varannan rad:

```

       dim color
       color = "#333333"
       function setColor ()
       if color = "#333333" then
       color = "#111111"
       else
       color = "#333333"
       end if
       setColor = color
       end function
```

Nu är det så att jag har tre tabeller, och om jag sätter setColor så blir det ju varannan färg i dom.

Jag suger på att förklara. Så jag länkar:
<http://midgetzinc.net.loopiadns.com/f/forum_start.asp?cat=2>

Kan man göra så att var setColor bar tredje gång blir #111111 och var tredje gång blir #333333?

Permalänk: https://www.webforum.nu/p/109488

## #2 — cyprys, 2004-08-18T05:54Z

```
function setColor(bgCol)
  select case bgCol
    case "#333"
      setColor = ""
    case "#111"
      setColor = "#333"
    case else
      setColor = "#111"
  end select
end function
```

Permalänk: https://www.webforum.nu/p/1415529

## #3 — magnusfernstrom, 2004-08-18T05:58Z

Microsoft VBScript runtime error '800a01c2' 

Wrong number of arguments or invalid property assignment: 'setColor' 

/f/forum_start.asp, line 278

Permalänk: https://www.webforum.nu/p/1415530

## #4 — Erik Juhlin, 2004-08-18T06:08Z

Snyggare och effektivare kod:

```
Dim vColor, i
vColor = Array("#333333", "#111111", "")
i = 0

While Not rs.EOF
	%>
	<tr style="background-color: <%=vColor(i Mod 3)%>;">
		<td>...</td>
	</tr><%
	rs.MoveNext
	i = i + 1
Wend
```

Ännu snyggare skulle ju vara om man använde klasser istället för färger och sen stryde färgerna i CSS-filen.

Redigering: Fixade till felet. :)

Permalänk: https://www.webforum.nu/p/1415534

## #5 — magnusfernstrom, 2004-08-18T06:39Z

Det fungerar inte. Det står "& vColor(i Mod 3) &" i bgcolor nu.

Permalänk: https://www.webforum.nu/p/1415543

## #6 — @nders, 2004-08-18T06:41Z

Då får du se till att själv korrigera Erik Juhlins miss. :)

```
<tr style="background-color: <%= vColor(i Mod 3) %>;">
```

Permalänk: https://www.webforum.nu/p/1415544

## #7 — magnusfernstrom, 2004-08-18T06:42Z

Nu löste det sig, på sätt och vis.

Se resultatet själva:
<http://midgetzinc.net.loopiadns.com/f/forum_start.asp?cat=2>

Permalänk: https://www.webforum.nu/p/1415545

## #8 — Insider, 2004-08-18T06:42Z

\<tr style="background-color:\<%=vColor(i Mod 3)%\>;"\>

Permalänk: https://www.webforum.nu/p/1415546

## #9 — toha, 2004-08-18T06:43Z

Var bara ett litet fel i Eriks skript. Jag ändrade att Mod:a med rs.AbsolutePosition istället för i-variabeln.

```
Dim vColor
vColor = Array("#333333", "#111111", "")

Do Until rs.EOF
	%>
	<tr style="background-color: <%=vColor(rs.AbsolutePosition Mod 3)%>;">
		<td>...</td>
	</tr><%
	rs.MoveNext
Loop
```

Permalänk: https://www.webforum.nu/p/1415549

## #10 — magnusfernstrom, 2004-08-18T06:43Z

@nders: Dumma jag tänker inte på morgonen ;)
Nu börjar det gå igång, så jag gjorde som du sade faktiskt. Och det fungerade. Ändrade dock 3 till 2, då resultatet blev att en rad blev #333333, och sedan blev 2 #111111. Men men det fixade sig nu. 

Tackar Erik, @nders och cyprys! :)

RED: Tack toha också. :)

 :bire

Permalänk: https://www.webforum.nu/p/1415550

---

Tråden på webben: https://www.webforum.nu/amne/asp/109488-färga-varannan-rad-fast-egentligen-var-tredje