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...
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
%>
