Färga varannan rad, fast egentligen var tredje!

9 svar · 430 visningar · startad av magnusfernstrom 18 aug. 2004

magnusfernstromMedlem sedan mars 20033 686 inlägg

Frågan18 aug. 2004 05:42#1

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?

cyprysMedlem sedan dec. 20003 563 inlägg

18 aug. 2004 05:54#2

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

magnusfernstromMedlem sedan mars 20033 686 inlägg

18 aug. 2004 05:58#3

Microsoft VBScript runtime error '800a01c2'

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

/f/forum_start.asp, line 278

Erik JuhlinMedlem sedan maj 200010 687 inlägg

18 aug. 2004 06:08#4

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

magnusfernstromMedlem sedan mars 20033 686 inlägg

18 aug. 2004 06:39#5

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

@ndersMedlem sedan juni 200032 967 inlägg

18 aug. 2004 06:41#6

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

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

magnusfernstromMedlem sedan mars 20033 686 inlägg

18 aug. 2004 06:42#7

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

InsiderMedlem sedan jan. 2000978 inlägg

18 aug. 2004 06:42#8

tohaMedlem sedan dec. 1999707 inlägg

18 aug. 2004 06:43#9

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

magnusfernstromMedlem sedan mars 20033 686 inlägg

18 aug. 2004 06:43#10

@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