---
title: "Varannan grå, varannan mörkgrå..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41313-varannan-grå-varannan-mörkgrå"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "carbon.nu"
published: "2002-04-10T18:19:57.000Z"
updated: "2002-04-18T07:04:07.000Z"
replies: 13
views: 770
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/41313-varannan-grå-varannan-mörkgrå"
---

# Varannan grå, varannan mörkgrå...

## #1 — carbon.nu, 2002-04-10T18:19Z

Hej

Jag har en asp fil som söker efter massa saker i en databas, och sen så radar den upp sakerna:

första raden=grå
andra raden=mörkgrå
tredje raden=grå
fjärde raden=mörkgrå
osv.

men jag vil ha det så här:

första raden=grå
andra raden=lite gråare
tredje raden=mörkgrå
första raden=grå
andra raden=lite gråare
tredje raden=mörkgrå
osv.

Hoppas ni kan hjälpa mig

så här ser koden ut:

```

<%
maingroup = Request.Querystring("maingroup")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("midicart.mdb")
set rs=conn.execute("SELECT * FROM products where maingroup = '" & maingroup & "' ORDER BY item")
%>

<table cellpadding="2" cellspacing="1" border="0">

<% 
iCount = 0
Do While Not rs.EOF 'start the count
If Eval(iCount\2 = iCount/2) Then 'determine if the number is odd or even
%>

<tr bgcolor=#D9D9D9>
<% =RS("art_no") %></TR>

<% Else %>

<tr bgcolor=#E9E9E9>

<TD><% =RS("art_no") %></TR>

<%
                  End If
            iCount = iCount +1  'increment the counter
            rs.MoveNext
            Loop
       response.write "</table>"
 %>
```

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

## #2 — Sico, 2002-04-10T18:28Z

såhär kan en kod se ut för att byta färg på varannan rad: 

```
<%
Do Until RS.EOF
  
cnt = cnt + 1
strColor = "#000000" 
If cnt Mod 2 = 0 then strColor = "#ffffff"
%>

	<table>
	  <tr bgcolor="<%= strColor%>">
	    <td>Bah</td></tr>
	</table>

<%
RS.MoveNext
Loop
RS.Close
%>
```

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

## #3 — LarsG, 2002-04-10T18:28Z

I princip så ser det ut så här

```
If iCount mod 3 = 0 then
  color = grå
elseif icount mod 3 = 1 then
  color = lite gråare 
else
  color = mörkgrå
end if
```

så får du fylla i detaljerna

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

## #4 — carbon.nu, 2002-04-10T18:40Z

Sico: jo men jag vill ha tre olia rader...

LarsG: Jag provade att sätta in det, men de funkade inte, kan du hjälpa mig, jag är inte så duktig på asp..

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

## #5 — Sico, 2002-04-10T18:43Z

oj läste fel :(

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

## #6 — carbon.nu, 2002-04-10T18:49Z

Jag provade en gång till att sätta in konden du gav mig, me det blir bara fel...

Hur gör jag??

Det är ingen som har lust att sätta in koden jag fick av LarsG i min kod så att det blir rätt???

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

## #7 — LarsG, 2002-04-10T18:52Z

Ok, lite mer detaljer. Det jag inte vet är vilket färg du vill ha där det står #?

```
<%
maingroup = Request.Querystring("maingroup")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("midicart.mdb")
set rs=conn.execute("SELECT * FROM products where maingroup = '" & maingroup & "' ORDER BY item")
%>

<table cellpadding="2" cellspacing="1" border="0">

<% 
iCount = 0

Do While Not rs.EOF 'start the count
If iCount mod 3 = 1 then Then 
   bgcolor = "#D9D9D9"
elseif iCount mod 3 = 2 then
   bgcolor = "#?"
else
   bgcolor = "#E9E9E9"
end if
response.write "<tr bgcolor=" & bgcolor & "> RS("art_no") & "</TR>"

iCount = iCount +1  'increment the counter
            rs.MoveNext
            Loop
       response.write "</table>"
 %>
```

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

## #8 — carbon.nu, 2002-04-11T06:42Z

Ok, vart kommer då raderna??

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

## #9 — carbon.nu, 2002-04-11T06:45Z

Ok, tror jag fattar, så jag skrivar bara som jag gjort under då???

```
<%
maingroup = Request.Querystring("maingroup")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("midicart.mdb")
set rs=conn.execute("SELECT * FROM products where maingroup = '" & maingroup & "' ORDER BY item")
%>

<table cellpadding="2" cellspacing="1" border="0">

<% 
iCount = 0

Do While Not rs.EOF 'start the count
If iCount mod 3 = 1 then Then 
   bgcolor = "#D9D9D9"
elseif iCount mod 3 = 2 then
   bgcolor = "#?"
else
   bgcolor = "#E9E9E9"
end if
response.write "<tr bgcolor=" & bgcolor & "> RS("art_no") & "</TR>"

iCount = iCount +1  'increment the counter
            rs.MoveNext
            Loop
       response.write "</table>"
 %>
' här kodar jag alltså hur raderna ska vara!?, så blir var tredje grå osv.
```

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

## #10 — carbon.nu, 2002-04-17T18:17Z

Hej

Det funkade inte när jag provade som **LarsG** skrev.

Nån som har nåt annat förslag på hur man skulle funna lösa frågan? Eller är det helt kört?

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

## #11 — carbon.nu, 2002-04-17T18:19Z

Hmmm, eller så har jag gjort helt fel  :h , Hur ska jag skriva?

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

## #12 — solbulle, 2002-04-17T19:12Z

Tycker det ser ut som om hans kod ska fungera, fyll i färgen bara, eller?
Du ska inte lägga till något vad jag kan se.

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

## #13 — Erik Juhlin, 2002-04-18T06:17Z

Jag brukar skriva så här eftersom att man då inte behöver ha någon If-sats i loopen och koden blir då snabbare och snyggare. :)

```
<%
maingroup = Request.Querystring("maingroup")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("midicart.mdb")
set rs=conn.execute("SELECT * FROM products where maingroup = '" & maingroup & "' ORDER BY item")
%>
<table cellpadding="2" cellspacing="1" border="0">
<% 
iCount = 0
vColor = Array("#D9D9D9", "#?", "#E9E9E9")

Do While Not rs.EOF 'start the count
	response.write "<tr bgcolor=""" & vColor(iCount Mod 3) & """>" & RS("art_no") & "</TR>"
	
	iCount = iCount + 1  'increment the counter
	rs.MoveNext
Loop
 %>
 </table>
```

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

## #14 — webtomten, 2002-04-18T07:04Z

om du kollar på LarsGs kod så ser du att han har med response.write så det ska bara vara att kopiera in den där du ska visa posterna.

```
<%
maingroup = Request.Querystring("maingroup")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("midicart.mdb")
set rs=conn.execute("SELECT * FROM products where maingroup = '" & maingroup & "' ORDER BY item")
%>

<table cellpadding="2" cellspacing="1" border="0">

<% 
iCount = 0

Do While Not rs.EOF 'start the count
If iCount mod 3 = 1 then Then 
   bgcolor = "#D9D9D9"
elseif iCount mod 3 = 2 then
   bgcolor = "#?"
else
   bgcolor = "#E9E9E9"
end if
response.write "<tr bgcolor=" & bgcolor & "> RS("art_no") & "</TR>"

iCount = iCount +1  'increment the counter
            rs.MoveNext
            Loop
       response.write "</table>"
 %>
```

```
Skriver ut raderna -> response.write "<tr bgcolor=" & bgcolor & "> RS("art_no") & "</TR>"
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/41313-varannan-grå-varannan-mörkgrå