---
title: "Färg på varannan rad"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13697-färg-på-varannan-rad"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gimbo"
published: "2002-01-10T12:19:00.000Z"
updated: "2002-01-11T11:16:00.000Z"
replies: 13
views: 465
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/13697-färg-på-varannan-rad"
---

# Färg på varannan rad

## #1 — Gimbo, 2002-01-10T12:19Z

Hejsan,
jag använder följande metod för att få färg på varannat gästboksinlägg men det fungerar inte, jag får samtliga tabeller att vara vita, så här ser det ut:

```
<%
	Set db = Server.CreateObject("ADODB.Connection")
	db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("datab.mdb")

	SQL = "SELECT * From gbook ORDER BY Datum DESC"
	Set rs = db.Execute(SQL)
	
	count = count + 1
	If count Mod 2 = 0 then
	color = "#AEAEFF"
	Else 
	color = "#FFFFFF"
	End If 
%>
```

och html koden plus läsningen från databasen ser ut på följande sätt:

```
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Do Until rs.EOF
%>
<%
meddelande=Replace(rs("meddelande"),vbCrLf, "<br>")
%>

  <tr>
    <td width="300" bgcolor="<%=color%>">
	<b><%=rs("amne")%></b> <img src="<%=rs("smile")%>.gif"><br>
	<%=meddelande%>
	  <tr>
    <td width="300" bgcolor="<%=color%>" style="border-bottom: 1px solid #000000;"><b><%=rs("namn")%></b> &#0124;  <%=rs("datum")%></td>
  </tr>
<p>
    </td>
  </tr>
      <%
rs.MoveNext
Loop
%>
```

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

## #2 — @nders, 2002-01-10T12:48Z

Du måste lägga in färgningskoden i din loop, annars får aldrig variabeln color något nytt värde.

mvh,

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

## #3 — Gimbo, 2002-01-10T17:45Z

Och hur går man tillväga för att göra det?

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

## #4 — LarsG, 2002-01-10T17:49Z

```
count = 0
Do Until rs.EOF
count = count + 1
If count Mod 2 = 0 then
color = "#AEAEFF"
Else 
color = "#FFFFFF"
End If 
meddelande=Replace(rs("meddelande"),vbCrLf, "<br>")
%>
<tr>
<td width="300" bgcolor="<%=color%>">
<b><%=rs("amne")%></b> <img src="<%=rs("smile")%>.gif"><br>
<%=meddelande%>
<tr>
<td width="300" bgcolor="<%=color%>" style="border-bottom: 1px solid #000000;"><b><%=rs("namn")%></b> &#0124; <%=rs("datum")%></td>
</tr>
<p>
</td>
</tr>
<%
rs.MoveNext
Loop
%>
```

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

## #5 — Gimbo, 2002-01-10T18:05Z

Måste säga att hela sidan knasa sig nu, tabeller går över varandra och allt är knas

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

## #6 — LarsG, 2002-01-10T18:11Z

Har du missat något %\> eller så?

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

## #7 — Gimbo, 2002-01-10T18:23Z

Nope, men jag tror att du glömde i din kod som du visa mig :-) eller det kanske inte ska vara ngn \<% i början

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

## #8 — Gimbo, 2002-01-10T18:29Z

så här ser min kod ut nu:

```
<%
	Set db = Server.CreateObject("ADODB.Connection")
	db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("datab.mdb")

	SQL = "SELECT * From gbook ORDER BY Datum DESC"
	Set rs = db.Execute(SQL)
	
	count = 0
        Do Until rs.EOF
	count = count + 1
	If count Mod 2 = 0 then
	color = "#AEAEFF"
	Else 
	color = "#FFFFFF"
	End If 
	meddelande=Replace(rs("meddelande"),vbCrLf, "<br>")
%>

och så här ser det ut längre ner:
[kod]
<table width="100%" border="0" cellspacing="0" cellpadding="0">

  <tr>
    <td width="300" bgcolor="<%=color%>">
	<b><%=rs("amne")%></b> <img src="<%=rs("smile")%>.gif"><br>
	<%=meddelande%>
	  <tr>
    <td width="300" bgcolor="<%=color%>" style="border-bottom: 1px solid #000000;"><b><%=rs("namn")%></b> &#0124;  <%=rs("datum")%></td>
  </tr>
<p>
    </td>
  </tr>
      <%
rs.MoveNext
Loop
%>
</table>
```

Och nur ser sidan inte alls bra men när jag tar bort Do until i början av koden och lägger in den efter taggen med table så ser sidan bra ut igen men fortfarande inte färg på varannan rad...

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

## #9 — @nders, 2002-01-10T18:37Z

Du får nog gå igenom din html-tabell. Du har en \<tr\>, sedan en \<td\>, sedan en \<tr\> igen.

Till att börja med se till att den tabellen är korrekt.

Mvh,

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

## #10 — Gimbo, 2002-01-10T22:18Z

Har fixat html tabellen men det fungerar fortfarande inte med färg på varannan, så här ser html tabellen ut nu:

```
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% Do until rs.EOF %>

  <tr>
    <td width="300" bgcolor="<%=color%>">
	<b><%=rs("amne")%></b> <img src="<%=rs("smile")%>.gif"><br>
	<%=meddelande%>
	</tr>
	  <tr>
    <td width="300" bgcolor="<%=color%>" style="border-bottom: 1px solid #000000;"><b><%=rs("namn")%></b> &#0124;  <%=rs("datum")%></td>
  </tr>
<p>
    </td>
  
      <%
rs.MoveNext
Loop
%>
</table>
```

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

## #11 — LarsG, 2002-01-10T22:30Z

Byte av color måste ligga innaför do until

```
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% 
count = 0
Do Until rs.EOF
count = count + 1
If count Mod 2 = 0 then
color = "#AEAEFF"
Else 
color = "#FFFFFF"
End If %>
<tr>
<td width="300" bgcolor="<%=color%>">
<b><%=rs("amne")%></b> <img src="<%=rs("smile")%>.gif"><br>
<%=meddelande%>
</tr>
<tr>
<td width="300" bgcolor="<%=color%>" style="border-bottom: 1px solid #000000;"><b><%=rs("namn")%></b> &#0124; <%=rs("datum")%></td>
</tr>
<p>
</td>

<%
rs.MoveNext
Loop
%>
</table>
```

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

## #12 — Gimbo, 2002-01-11T01:19Z

Man tackar LarsG you'r the mään ;-)

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

## #13 — doggelito, 2002-01-11T08:52Z

Kolla igenom din kod igen(se markeringar)!

```
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% 
count = 0
Do Until rs.EOF
count = count + 1
If count Mod 2 = 0 then
color = "#AEAEFF"
Else 
color = "#FFFFFF"
End If %>
<tr>
<td width="300" bgcolor="<%=color%>">
<b><%=rs("amne")%></b> <img src="<%=rs("smile")%>.gif"><br>
<%=meddelande%>[b]</td>[/b]
</tr>
<tr>
<td width="300" bgcolor="<%=color%>" style="border-bottom: 1px solid #000000;"><b><%=rs("namn")%></b> &#0124; <%=rs("datum")%></td>
</tr>
[b]<p>
</td>[/b]
<%
rs.MoveNext
Loop
%>
</table>
```

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

## #14 — iceM2, 2002-01-11T11:16Z

Nja, så här ska nog det se ut, om det ska vara mest felfritt...

```
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% 
count = 0
Do Until rs.EOF
count = count + 1
If count Mod 2 = 0 then
color = "#AEAEFF"
Else 
color = "#FFFFFF"
End If %>
<tr>
<td width="300" bgcolor="<%=color%>">
<b><%=rs("amne")%></b> <img src="<%=rs("smile")%>.gif"><br>
<%=meddelande%>[b]</td>[/b]
</tr>
<tr>
<td width="300" bgcolor="<%=color%>" style="border-bottom: 1px solid #000000;"><b><%=rs("namn")%></b> &#0124; <%=rs("datum")%></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
```

Notera att den fetmarkerade td inte alls är felaktigt använd.. Men den fetmarkerade td- och p-taggen i föregående innlägg i slutet av scriptet är borttaget i och med att dessa är felaktigt använda.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13697-färg-på-varannan-rad