hvor er fejlen

forresten fejlen er at den ikke laver farverne om i 3. række

hmmm fejlen ligger vel i

<%

If objRec("won") = "ja" Then
opwin = "green"
uswin = "red"
else
uswin = "green"
opwin = "red"
End if

%>

<%
While NOT objRec.EOF

intFarve = 0
If intFarve = 1 Then
  bg="#FCFCFC"
  Farve= Farve + 1
Else
  bg="#E5E5E5"
  Farve = 1
End If

Response.Write "<TR><TD width=200 bgcolor=silver><font face=arial size=2>" & objRec("dato") & "</TD>"
'Response.write "<A href = 'viscw.asp?ID="+CStr(objRec("id"))+"'><font color=#000000>"
'Response.write (objRec("dato"))+CrLf 
'Response.write "</font></a>"+CrLf & "</TD>"


Response.Write "<TD width=200 bgcolor=silver><font face=arial size=2>" & objRec("vs") & "</TD>"
Response.Write "<TD width=200 bgcolor=silver><font face=arial size=2>" & objRec("level") & "</TD>"
Response.Write "<TD width=200 bgcolor=silver><font face=arial size=2 color="& bg &">" & objRec("us") & "</TD>"
Response.Write "<TD width=200 bgcolor=silver><font face=arial size=2 color="& bg &">" & objRec("them") & "</TD>"
Response.Write "<TD width=200 bgcolor=silver><font face=arial size=2>" & objRec("comment") & "</TD>"
'Response.write "<A href = 'viscomment.asp?ID="+CStr(objRec("id"))+"'><font color=#000000>"
'Response.write (objRec("comment"))+CrLf 
'Response.write "</font></a>"+CrLf & "</TD></TR>"


objRec.MoveNext

Wend
%>

Er det sådan her du mener?

//>Rune

har selv fundet det

<%@ LANGUAGE=VBScript%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>

<body>
<!--#include file="topframe.html"-->

<br>
<%
StrConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("MS.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open StrConnect
%>


<%
Set objRec = Server.CreateObject ("ADODB.Recordset")
objRec.Open "cw ORDER BY id;", strConnect, 0,1,2
%>

<title>MS Clan</title>
<TABLE border="1" borderColor="#4682B4" borderColorDark="#000000" borderColorLight="#C0C0C0" width="700">
<br><br>
<TR>

<TD width="100"><font face="arial" size="2" align="center">Date:</font></TD>
<TD width="100"><font face="arial" size="2" align="center">Vs:</font></TD>
<TD width="100"><font face="arial" size="2" align="center">Levels:</font></TD>
<TD width="100"><font face="arial" size="2" align="center">US:</font></TD>
<TD width="100"><font face="arial" size="2" align="center">Them:</font></TD>
<TD width="100"><font face="arial" size="2" align="center">Comments:</font></TD>
</TR>
<%

While NOT objRec.EOF

Response.Write "<TR><TD width=200 bgcolor=silver><font face=arial size=2>" & objRec("dato") & "</TD>"
'Response.write "<A href = 'viscw.asp?ID="+CStr(objRec("id"))+"'><font color=#000000>"
'Response.write (objRec("dato"))+CrLf 
'Response.write "</font></a>"+CrLf & "</TD>"

if objRec("us") < objRec("them") then
opwin = "green"
uswin = "red"
else
uswin = "green"
opwin = "red"
End if

Response.Write "<TD width=200 bgcolor=silver><font face=arial size=2>" & objRec("vs") & "</TD>"
Response.Write "<TD width=200 bgcolor=silver><font face=arial size=2>" & objRec("level") & "</TD>"
Response.Write "<TD width=200 bgcolor=silver><font face=arial size=2 color="& uswin &">" & objRec("us") & "</TD>"
Response.Write "<TD width=200 bgcolor=silver><font face=arial size=2 color="& opwin &">" & objRec("them") & "</TD>"
Response.Write "<TD width=200 bgcolor=silver><font face=arial size=2>" & objRec("comment") & "</TD>"
'Response.write "<A href = 'viscomment.asp?ID="+CStr(objRec("id"))+"'><font color=#000000>"
'Response.write (objRec("comment"))+CrLf 
'Response.write "</font></a>"+CrLf & "</TD></TR>"

objRec.MoveNext

Wend
%>

du får ½ da jeg også selv fandt det .. har ikke testet din .. men

Fair nok
Thx 4 Poinz

//>Rune