---
title: "Olika färger på tabellrader ??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/101741-olika-färger-på-tabellrader"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ghost"
published: "2004-04-17T22:52:01.000Z"
updated: "2004-04-22T13:03:48.000Z"
replies: 25
views: 944
page: 1
pages: 2
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/101741-olika-färger-på-tabellrader"
---

# Olika färger på tabellrader ??

_Sida 1 av 2._

## #1 — Ghost, 2004-04-17T22:52Z

Hej alla !!

Är en total noob på detta men gör ett ärligt försök till att lära mej den svåra vägen...\*skrattar\*

Jag har en liten, liten fråga som någon kanske kan hjälpa mej med....

Om jag tar ut en massa olika poster ur en databas och vill att raderna postraderna skall ha olika färger...
( Vit, blå, vit, blå, vit, blå)  och så vidare...

Hur gör jag ?

Har koden så här i dagsläget, den funkar men jag vill att listan som presenteras på ASP-sidan  skall bli lite mer lättöverskådlig.

\___________________________________________________\_

rs.Open "Select \* From Kalender Where Datum Between '" & Date() & "' And '" & DateAdd("d", 150, Date()) & "' Order By Datum", conn
If NOT rs.EOF Then
	Do Until rs.EOF
		M_Datum = M_Datum & "\<br\>" & left(rs.Fields("Datum"),10) & vbCrLf
		M_Tid = M_Tid & "\<br\>" & rs.Fields("Tid") & vbCrLf
		M_Samling = M_Samling & "\<br\>" & rs.Fields("Samling") & vbCrLf
		M_Plats = M_Plats & "\<br\>" & rs.Fields("Plats") & vbCrLf
		M_Motstand = M_Motstand & "\<br\>" & rs.Fields("Motståndare") & vbCrLf
		M_Farger = M_Farger & "\<br\>" & getPics(rs.Fields("Färger")) & "\</a\>" & vbCrLf
		rs.MoveNext
	Loop
End IF

rs.Close

\__________________________________________________\_

Har sedan en tabell liggande som ser ut på följande sätt:

\<table width="100%"  border="0" cellpadding="0" cellspacing="0" class="picbox-low-full"\>
            \<tr bgcolor="752E2E" class="text-white-small"\>
              \<td width="2%"\>&nbsp;\</td\>
              \<td width="15%"\> Datum\</td\>
              \<td width="12%"\>Tid\</td\>
              \<td width="12%"\>Samling\</td\>
              \<td width="21%"\>Plats\</td\>
              \<td width="20%"\>Motst&aring;nd\</td\>
              \<td width="18%"\> F&auml;rger\</td\>
              \<tr valign="top" bgcolor="#9A5150" class="text-white-small"\>
              \<td\>&nbsp;\</td\>
              \<td\>&nbsp; \<%=M_Datum%\>\</td\>
              \<td\>&nbsp; \<%=M_Tid%\>\</td\>
              \<td\>&nbsp; \<%=M_Samling%\>\</td\>
              \<td\>&nbsp; \<%=M_Plats%\>\</td\>
              \<td\>&nbsp; \<%=M_Motstand%\>\</td\>
              \<td\>&nbsp; \<%=M_Farger%\>\</td\>
            \</tr\>

\_________________________________________________\_

Fattar ni att jag är lost ??   \*asgarv\*

tackar på förhand för hjälpen... :P

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

## #2 — LBC, 2004-04-17T22:56Z

<http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=85366&highlight=varannan+rad>

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

## #3 — Ghost, 2004-04-17T23:48Z

Aj aj

Har ju all kod liggande i toppen på sidan, all HTML i botten....
Får ett felmeddelande

Microsoft VBScript runtime error '800a01a8' 
Object required 

/kalender2.asp, line 169

Rad 169 ser ut som följer:
do until not rs.eof%\>

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

## #4 — @nders, 2004-04-18T00:39Z

Mer kod, tack.

mvh

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

## #5 — Ghost, 2004-04-18T00:50Z

Hela sidans kod

\<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%\>
\<!--#include file="include/db.inc"--\>
\<%
Dim act(6), admin, M_Datum, M_Tid, M_Samling, M_Plats, M_Motstand, M_Farger, i

edit = Request.QueryString("edit")

set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select \* From kalender Where Datum Between '" & Date() & "' And '" & DateAdd("d", 6, Date()) & "' Order By Datum", conn, 3, 3
If Not rs.Eof Then
	Do Until rs.Eof
		ddiff = DateDiff("d", Date(), rs.Fields("Datum"))
		act(ddiff) = act(ddiff) & "\<tr\>" & vbCrLf
		If edit = "1" Then
			act(ddiff) = act(ddiff) & "\<td bgcolor=""#752E2E""\>&nbsp;\<img src=""author.gif""\>\</td\>" & vbCrLf
		End If
		act(ddiff) = act(ddiff) & "\<td bgcolor=""#752E2E""\>&nbsp;" & rs.Fields("Akt_typ") & "\</td\>" & vbCrLf
		act(ddiff) = act(ddiff) & "\<td bgcolor=""#752E2E""\>&nbsp;" & rs.Fields("Plats") & "\</td\>" & vbCrLf
		act(ddiff) = act(ddiff) & "\<td bgcolor=""#752E2E""\>&nbsp;" & rs.Fields("Tid") & "\</td\>" & vbCrLf
		act(ddiff) = act(ddiff) & "\<td bgcolor=""#752E2E""\>&nbsp;" & rs.Fields("Samling") & "\</td\>" & vbCrLf
		'act(ddiff) = act(ddiff) & "\<td bgcolor=""#752E2E""\>&nbsp;" & rs.Fields("Datum") & "\</td\>" & vbCrLf
		act(ddiff) = act(ddiff) & "\<td bgcolor=""#752E2E""\>&nbsp;" & rs.Fields("Motståndare") & "\</td\>" & vbCrLf
		act(ddiff) = act(ddiff) & "\<td bgcolor=""#752E2E""\>&nbsp;" & getPics(rs.Fields("Färger")) & "\</td\>\</tr\>" & vbCrLf
		rs.MoveNext
	Loop
End If
rs.Close
rs.Open "Select \* From Kalender Where Datum Between '" & Date() & "' And '" & DateAdd("d", 150, Date()) & "' Order By Datum", conn
If NOT rs.EOF Then
	Do Until rs.EOF
		M_Datum = M_Datum & "\<br\>" & left(rs.Fields("Datum"),10) & vbCrLf
		M_Tid = M_Tid & "\<br\>" & rs.Fields("Tid") & vbCrLf
		M_Samling = M_Samling & "\<br\>" & rs.Fields("Samling") & vbCrLf
		M_Plats = M_Plats & "\<br\>" & rs.Fields("Plats") & vbCrLf
		M_Motstand = M_Motstand & "\<br\>" & rs.Fields("Motståndare") & vbCrLf
		M_Farger = M_Farger & "\<br\>" & getPics(rs.Fields("Färger")) & "\</a\>" & vbCrLf
		rs.MoveNext
	Loop
End IF

rs.Close
Set rs = Nothing
conn.Close
Set conn = nothing

Function PresDate(inVal)
	If cStr(inVal) = cStr(Date()) Then
		PresDate = WeekDayName(WeekDay(inVal)) & " " & Day(inVal) & " " & MonthName(Month(inVal)) & " - dagens datum"
		isCurrDate = True
	Else
		PresDate = WeekDayName(WeekDay(inVal)) & " " & Day(inVal) & " " & MonthName(Month(inVal))
	End If
End Function

Function GetPics(inval)
GetPics = "&nbsp;"
	If Len(TRIM(inval)) \<\> 0 Then
		picarr = Split(inval, ",")
		For x = 0 To UBound(picarr)
			GetPics = GetPics & "\<img src=""images/spelare/colors/" & Lcase(Trim(picarr(x))) & ".gif""\>&nbsp;"
		Next
	End If 
End Function

For i = 0 To 6
	If act(i) = "" Then
		act(i) =  "\<td bgcolor=""#752E2E"" colspan=""10""\>\<font face=""Verdana""\>Inga händelser på " & WeekDayName(WeekDay(DateAdd("d", i, Date()))) & "!\</font\>\</td\>"
	End If
Next
%\>
\<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"\>
\<html\>
\<head\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>
\<title\>Untitled Document\</title\>
\<style type="text/css"\>
\<!--
body {
	background-color: #752E2E;
	margin-left: 0px;
	margin-top: 0px;
}
\--\>
\</style\>
\<link href="/styles/eik.css" rel="stylesheet" type="text/css"\>
\</head\>

\<body\>
\<!--
\<table width="600" border="0" cellspacing="0" cellpadding="0"\>
\--\>
\<table width="850" height="100%" border="0" cellpadding="0" cellspacing="0"\>
  \<tr\>
    \<td width="762" valign="top" background="/images/bakgrunder/mitt.gif"\>\<table width="700" border="0" cellspacing="0" cellpadding="0"\>
      \<tr\>
        \<td\>&nbsp;\</td\>
        \<td\>\<img src="/images/pageheaders/kalender.gif" width="229" height="24" class="picbox"\>\</td\>
      \</tr\>
      \<tr\>
        \<td width="110"\>&nbsp;\</td\>
        \<td width="590"\>\<table width="600" border="1" cellpadding="2" cellspacing="0" bordercolor="#ffffff" class="text-white-small" style="border-collapse: collapse"\>
          \<tr class="picbox"\>
            \<%If edit = "1" Then%\>
            \<td bgcolor="752E2E" class="text-white-small-header"\>&nbsp;Edit\</td\>
            \<%End If%\>
            \<td bgcolor="752E2E" class="text-white-small-header"\>&nbsp;Aktivitet\</td\>
            \<td bgcolor="752E2E" class="text-white-small-header"\>&nbsp;Plats\</td\>
            \<td bgcolor="752E2E" class="text-white-small-header"\>&nbsp;Tid\</td\>
            \<td bgcolor="752E2E" class="text-white-small-header"\>&nbsp;Samling\</td\>
            \<!--
	\<td bgcolor="752E2E"\>&nbsp;Datum\</td\>
	\--\>
            \<td bgcolor="752E2E" class="text-white-small-header"\>&nbsp;Motst&aring;ndare\</td\>
            \<td bgcolor="752E2E" class="text-white-small-header"\>&nbsp;F&auml;rger\</td\>
          \</tr\>
          \<tr\>
            \<td colspan="10" bgcolor="9A5150"\>&nbsp;\<span class="text-white-small-header"\>\<%=PresDate(Date())%\>\</span\>\</td\>
          \</tr\>
          \<%=act(0)%\>
          \<tr class="text-white-small-header"\>
            \<td colspan="10" bgcolor="9A5150"\>&nbsp;\<%=PresDate(DateAdd("d", 1, Date()))%\>\</td\>
          \</tr\>
          \<%=act(1)%\>
          \<tr class="text-white-small-header"\>
            \<td colspan="10" bgcolor="9A5150"\>&nbsp;\<%=PresDate(DateAdd("d", 2, Date()))%\>\</td\>
          \</tr\>
          \<%=act(2)%\>
          \<tr class="text-white-small-header"\>
            \<td colspan="10" bgcolor="9A5150"\>&nbsp;\<%=PresDate(DateAdd("d", 3, Date()))%\>\</td\>
          \</tr\>
          \<%=act(3)%\>
          \<tr class="text-white-small-header"\>
            \<td colspan="10" bgcolor="9A5150"\>&nbsp;\<%=PresDate(DateAdd("d", 4, Date()))%\>\</td\>
          \</tr\>
          \<%=act(4)%\>
          \<tr class="text-white-small-header"\>
            \<td colspan="10" bgcolor="9A5150"\>&nbsp;\<%=PresDate(DateAdd("d", 5, Date()))%\>\</td\>
          \</tr\>
          \<%=act(5)%\>
          \<tr class="text-white-small-header"\>
            \<td colspan="10" bgcolor="9A5150"\>&nbsp;\<%=PresDate(DateAdd("d", 6, Date()))%\>\</td\>
          \</tr\>
          \<%=act(6)%\>
        \</table\>\</td\>
      \</tr\>
      \<tr\>
        \<td\>&nbsp;\</td\>
        \<td\>\<br\>
          \<table width="100%"  border="0" cellpadding="0" cellspacing="0" class="picbox-low-full"\>
            \<tr bgcolor="752e2e" class="text-white-small"\>
              \<td width="2%"\>&nbsp;\</td\>
              \<td width="15%"\> Datum\</td\>
              \<td width="12%"\>Tid\</td\>
              \<td width="12%"\>Samling\</td\>
              \<td width="21%"\>Plats\</td\>
              \<td width="20%"\>Motst&aring;nd\</td\>
              \<td width="18%"\> F&auml;rger\</td\>
              \<tr valign="top" bgcolor="#9A5150" class="text-white-small"\>
              \<td\>&nbsp;\</td\>
			  \<td\>&nbsp; \<%=M_Datum%\>\</td\>
              \<td\>&nbsp; \<%=M_Tid%\>\</td\>
              \<td\>&nbsp; \<%=M_Samling%\>\</td\>
              \<td\>&nbsp; \<%=M_Plats%\>\</td\>
              \<td\>&nbsp; \<%=M_Motstand%\>\</td\>
              \<td\>&nbsp; \<%=M_Farger%\>\</td\>
            \</tr\>
			 \<tr valign="top" bgcolor="#9A5150" class="text-white-small"\>
                \<td\>&nbsp;\</td\>
                \<td\>&nbsp;\</td\>
                \<td\>&nbsp;\</td\>
                \<td\>&nbsp;\</td\>
                \<td\>&nbsp;\</td\>
                \<td\>&nbsp;\</td\>
                \<td\>&nbsp;\</td\>
              \</tr\>
          \</table\>\</td\>
      \</tr\>
    \</table\>
    \<br\>
    \</td\>
  \</tr\>
\</table\>
\<br\>
\<p\>&nbsp;\</p\>
\<p\>&nbsp; \</p\>
\</body\>
\</html\>

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

## #6 — @nders, 2004-04-18T07:34Z

Och vilken av alla de där raderna pekar felmeddelandet på?

(Använd gärna \[kod\]-taggar när du postar kod, så blir det lättare att läsa).

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

## #7 — Ghost, 2004-04-18T10:45Z

Koden ovan är den kod som funkar....
Frågan är vart jag skall peta in koden...

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

## #8 — @nders, 2004-04-18T16:21Z

Något sånt här kanske kan fungera?

```
If Not rs.Eof Then
strBgColor = "#FFFFFF"
Do Until rs.Eof
if strBgColor = "#FFFFFF" then strBgColor = "#752E2E" else strBgColor = "#FFFFFF"
ddiff = DateDiff("d", Date(), rs.Fields("Datum"))
act(ddiff) = act(ddiff) & "<tr bgcolor=""" & strBgColor & """>" & vbCrLf
If edit = "1" Then
act(ddiff) = act(ddiff) & "<td> <img src=""author.gif""></td>" & vbCrLf
End If
act(ddiff) = act(ddiff) & "<td> " & rs.Fields("Akt_typ") & "</td>" & vbCrLf
act(ddiff) = act(ddiff) & "<td> " & rs.Fields("Plats") & "</td>" & vbCrLf
act(ddiff) = act(ddiff) & "<td> " & rs.Fields("Tid") & "</td>" & vbCrLf
act(ddiff) = act(ddiff) & "<td> " & rs.Fields("Samling") & "</td>" & vbCrLf
'act(ddiff) = act(ddiff) & "<td> " & rs.Fields("Datum") & "</td>" & vbCrLf
act(ddiff) = act(ddiff) & "<td> " & rs.Fields("Motståndare") & "</td>" & vbCrLf
act(ddiff) = act(ddiff) & "<td> " & getPics(rs.Fields("Färger")) & "</td></tr>" & vbCrLf
rs.MoveNext
Loop
End If
```

Mvh

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

## #9 — Ghost, 2004-04-18T18:22Z

Den koden ser redan bra ut, den koddelen jag inte får till är:

```
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="picbox-low-full">
<tr bgcolor="752e2e" class="text-white-small">
<td width="2%"> </td>
<td width="15%"> Datum</td>
<td width="12%">Tid</td>
<td width="12%">Samling</td>
<td width="21%">Plats</td>
<td width="20%">Motstånd</td>
<td width="18%"> Färger</td>
<tr valign="top" bgcolor="#9A5150" class="text-white-small">
<td> </td>
<td>  <%=M_Datum%></td>
<td>  <%=M_Tid%></td>
<td>  <%=M_Samling%></td>
<td>  <%=M_Plats%></td>
<td>  <%=M_Motstand%></td>
<td>  <%=M_Farger%></td>
</tr>
```

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

## #10 — @nders, 2004-04-18T18:27Z

Då förstår jag inte hur du vill att det ska se ut.
Alltså: Hur ser det ut nu, och hur vill du att det ska se ut?

Förresten, redigera gärna in lite \[kod\]-taggar i dina inlägg, så blir det lättare att överblicka koden.

mvh

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

## #11 — Ghost, 2004-04-18T19:23Z

Just nu så listar den bara upp massa rader ur DB, alla rader har samma bakgrundsfärg...

Jag vill att rad 1 skall ha färgen #9a5150
Rad 2 skall ha färgen #752e2e
Rad 3 skall ha färgen #9a5150

Och så vidare

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

## #12 — @nders, 2004-04-18T19:39Z

Jo, det har jag förstått. Men jag förstår inte riktigt hur du presenterar det nu. Men men...

Du kan ju börja med att göra om dina M\_ - variabler så de är tabeller med en tabellrader istället för \<br\>-radbrytningar.

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

## #13 — Ghost, 2004-04-18T19:55Z

Så här ??

```
rs.Open "Select * From Kalender Where Datum Between '" & Date() & "' And '" & DateAdd("d", 150, Date()) & "' Order By Datum", conn
If NOT rs.EOF Then
	Do Until rs.EOF
		M_Datum = M_Datum & "<td>" & left(rs.Fields("Datum"),10)) & "</td>" & vbCrLf
		M_Tid = M_Tid & "<td>" & rs.Fields("Tid")) & "</td>" & vbCrLf
		M_Samling = M_Samling & "<td>" & rs.Fields("Samling")) & "</td>" & vbCrLf
		M_Plats = M_Plats & "<td>" & rs.Fields("Plats")) & "</td>" & vbCrLf
		M_Motstand = M_Motstand & "<td>" & rs.Fields("Motståndare")) & "</td>" & vbCrLf
		M_Farger = M_Farger & "<td>" & getPics(rs.Fields("Färger"))) & "</td>" & "</a>" & vbCrLf
		rs.MoveNext
	Loop
End IF

rs.Close
```

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

## #14 — @nders, 2004-04-18T19:59Z

Tja, jag vet inte, eftersom jag inte vet hur datat ser ut, eller hur du vill att det ska bli... Vad är en "rad" för dig i detta fall? Ett datum? En tid? Eller datum+tid+samling+plats+motstand+farger?
Hur ser tabellen ut nu? 

Har du en länk till sidan?

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

## #15 — Ghost, 2004-04-18T20:01Z

datum+tid+samling+plats+motstand+farger?

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

## #16 — Ghost, 2004-04-18T20:04Z

Utan frågetecken.....

Kolla själv, den finns online

<https://www.panthers.se/kalender.asp>

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

## #17 — @nders, 2004-04-19T04:18Z

Ok. Då får vi se till att göra en riktig tabell av det hela.

```
If NOT rs.EOF Then
strBgColor = "#9a5150"
	
	Do Until rs.EOF
		if strBgColor = "#9a5150" then strBgColor = "#752e2e" else strBgColor = "#9a5150"
		strMainTable = "<tr bgcolor=""" & strBgColor & """>" & _
		"<td>" & left(rs.Fields("Datum"),10)) & "</td>" & vbCrLf & _
		"<td>" & rs.Fields("Tid")) & "</td>" & vbCrLf & _
		"<td>" & rs.Fields("Samling")) & "</td>" & vbCrLf & _
		"<td>" & rs.Fields("Plats")) & "</td>" & vbCrLf & _
		"<td>" & rs.Fields("Motståndare")) & "</td>" & vbCrLf & _
		"<td>" & getPics(rs.Fields("Färger"))) & "</td></tr>" & vbCrLf
		rs.MoveNext
	Loop
End IF
```

Ersätt sedan utskriften av alla M_variabler, dvs detta block:

```
<tr valign="top" bgcolor="#9A5150" class="text-white-small">
<td> </td>
<td>  <%=M_Datum%></td>
<td>  <%=M_Tid%></td>
<td>  <%=M_Samling%></td>
<td>  <%=M_Plats%></td>
<td>  <%=M_Motstand%></td>
<td>  <%=M_Farger%></td>
</tr>
```

med följande:

```
<%=strMainTable%>
```

, så *bör* det nog bli som tänkt.

Jag tog förresten bort **\</a\>** i din kod, eftersom jag inte alls förstod vad den hade där att göra.

mvh

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

## #18 — Ghost, 2004-04-19T20:20Z

Kopierade in din kod....
Fick följande felmeddelande:

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
/Web/EIK_2004/testkalender.asp, line 35, column 36
"\<td\>" & left(rs.Fields("Datum"),10)) & "\</td\>" & vbCrLf & \_

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

## #19 — @nders, 2004-04-19T20:27Z

Hmm.

Jag kan inte se att jag gjort något fel. Kopierade du *hela* koden från mitt inlägg?

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

## #20 — Ghost, 2004-04-19T21:57Z

Jepp

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/101741-olika-färger-på-tabellrader  
Nästa sida: https://www.webforum.nu/amne/asp/101741-olika-färger-på-tabellrader/page2.md