Faver på tabeler poster i asp side

Jeg fik det svar af  kotelet på mit spørgsmål : Jeg har det problem at jeg meget gerne vil have at der bliver skifte fave for vært recordset på en aspside der hente data fra en access database.
det skal være sådanne at den først blive hvid og den næste bliver grå osv.
Svaret var
cfarve1 = "#666666"
cFarve2 = "#000000"
response.write <table>
DO
IF cPos = 0 Then cFarve = cFarve1 Else cFarve = cFarve2
response.write "<tr bgcolor='" & cFarve & "'><td>"
response.write rs("data")
response.write "</tr><td>"
If cPos = 0 Then cPos = 1 Else cPos = 0
LOOP while not rs.EOF
response.write "</table>"
men da jeg ikke vidste vor det skulle stå  svare kotele
At skulle stå  sådanne
strSQL = "Select * FROM tabel"
set Rs = Conn.Execute(strSQL)

---- Og her indsætter du mit tidligere svar ------

Conn.Close
Set Conn = Nothing

------ slut --------
Jeg kan ikke få det til at funger eller ,jeg ved ikke nok om asp.
Jeg har en asp side der finger som ser sådanne ud og den funger meget godt, og ville jeg gerne have den til at skifte fave som før omtal  HJÆLp
ASP siden:Fisk
<%

Option Explicit


Dim sRowColor
Dim objDB
Dim objRS
Dim sDBName

'TODO: Verify database path...
sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\fpdb\lystfisker.mdb"
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open sDBName

'TODO: Modify the next line to only return the records you want...
Set objRS = objDB.Execute("select * from Q_fangst")

Response.Write("<html>")
Response.Write("<head>")
Response.Write("<title>ASP Table Wizard</title>")
Response.Write("</head>")
Response.Write("<body bgcolor=white>")

Response.Write("<h3> Fanget Fisk</h3>")

If objRS.EOF Then
    Response.Write("<b>No matching records found.</b>")
    objRS.Close
    objDB.Close
    Set objRS = Nothing
    Set objDB = Nothing
    Response.End
End If

Response.Write("<table border=0 cellpadding=2 cellspacing=2>")
Response.Write("<tr bgcolor=silver>")



Response.Write("<th filter=ALL>Fiskeart</th>")
Response.Write("<th filter=ALL>Cm</th>")
Response.Write("<th filter=ALL>Kg</th>")
Response.Write("<th filter=ALL>Navn</th>")
Response.Write("<th filter=ALL>Efternavn</th>")
Response.Write("<th filter=ALL>Postnr</th>")
Response.Write("<th filter=ALL>By</th>")
Response.Write("<th filter=ALL>Dag</th>")
Response.Write("<th filter=ALL>Mdr</th>")
Response.Write("<th filter=ALL>Aar</th>")
Response.Write("</tr>")

sRowColor = "lightblue"

Do While Not objRS.EOF
    Response.Write("<tr bgcolor=" & sRowColor & ">")
    Response.Write("<td>" & objRS("Fiskeart") & "</td>")
    Response.Write("<td>" & objRS("Cm") & "</td>")
    Response.Write("<td>" & objRS("Kg") & "</td>")
    Response.Write("<td>" & objRS("Navn") & "</td>")
    Response.Write("<td>" & objRS("Efternavn") & "</td>")
    Response.Write("<td>" & objRS("Postnr") & "</td>")
    Response.Write("<td>" & objRS("By") & "</td>")
    Response.Write("<td>" & objRS("Dag") & "</td>")
    Response.Write("<td>" & objRS("Mdr") & "</td>")
    Response.Write("<td>" & objRS("Aar") & "</td>")
    Response.Write("</tr>")
    objRS.MoveNext
Loop

Response.Write("</table>")
Response.Write("</body>")
Response.Write("</html>")

objRS.Close
objDB.Close
Set objRS = Nothing
Set objDB = Nothing

%>