---
title: "funktion för färg på text"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/152552-funktion-för-färg-på-text"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2006-10-15T18:08:00.000Z"
updated: "2006-10-23T19:48:37.000Z"
replies: 2
views: 477
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/152552-funktion-för-färg-på-text"
---

# funktion för färg på text

## #1 — devotion, 2006-10-15T18:08Z

Hej!

Har följande kod som visserligen fungerar:

```
	If RS.EOF then
		Response.write "<span>Alla handdatorer är synkroniserade</span>"
	Else
		Response.write "<table>"
		Response.write "<thead>"
		Response.write "<tr><th>Synkroniseringsinformation</th></tr>"
		Response.write "</thead>"
		Response.write "<tbody>"
		While Not RS.EOF 
			If bgcolor = "#FFFFFF" then bgcolor = "#EFEFEF" else bgcolor = "#FFFFFF"
			Response.write "<tr  bgcolor=""" & bgcolor & """>"
			Response.write "<td"
			If RS("syncDiff") > 168 then response.write " class=""syncAlert"">" End If
			Response.write RS("Name") & " har inte synkroniserat på " & RS("syncDiff") & " timmar!"
			Response.write "</td>"
			Response.write "</tr>"
	
			RS.Movenext
		wend
		Response.write "</tbody>"
		Response.write "</table>"
	End if
```

Det enda som ska hända är om att villkoret uppfylls ska texten bli röd...

Kan man göra det bättre och snyggare?

Mvh
Henrik

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

## #2 — Erik Juhlin, 2006-10-15T21:47Z

Mer lättläst när inte all HTML är ingrötad i strängar.
Slipper dessutom conditions och strängjämförelse för att sätta radfärg.

```
<%
If RS.EOF then
	%><span>Alla handdatorer är synkroniserade</span><%
Else
	%>
	<table>
	<thead>
		<tr>
			<th>Synkroniseringsinformation</th>
		</tr>
	</thead>
	<tbody><%
		Dim vClass, i
		vClass = Array("even", "odd")
		i = 0
		
		While Not RS.EOF
			%>
			<tr class="<%=vClass(i Mod 2)%>">
				<td<%If RS("syncDiff") > 168 Then Response.Write " class=""syncAlert"""%>>
					<%=RS("Name")%> har inte synkroniserat på <%=RS("syncDiff")%> timmar!
				</td>
			</tr><%
			RS.MoveNext
			i = i + 1
		Wend
		%>
	</tbody>
	</table><%
End if
%>
```

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

## #3 — devotion, 2006-10-23T19:48Z

Snyggt!  (y)  

Mvh
Henrik

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/152552-funktion-för-färg-på-text