Hver anden række farvet.

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

id = Request.QueryString("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT overskrift, id, bruger, brugerID, category, dato, hits FROM emner where category='" & id & "' order by ID desc;"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};UID=; PWD=;DBQ=" & Server.Mappath("database.mdb")
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
raekketaeller = 0 
Do While Not rs.EOF And intRecCount > 0
if (raekketaeller mod 2 = 0) then
farve = "#ffffff"
else
farve = "#FBEBD2"
end if
response.write "<tr bgcolor=farve>"
    Response.write ("Indhold")  & "</tr>

  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=emner.asp?id=" & id & "&page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=emner.asp?id=" & id & "&page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
  Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=emner.asp?id=" & id & "&page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>

hov glemte at tælle raekketaelleren op:

raekketaeller = 0 
Do While Not rs.EOF And intRecCount > 0
if (raekketaeller mod 2 = 0) then
farve = "#ffffff"
else
farve = "#FBEBD2"
end if
response.write "<tr bgcolor=farve>"
    Response.write ("Indhold")  & "</tr>
raekketaeller = raekketaeller + 1 ' denne linie er glemt i den øverste

argh.....

og så en " efter "</t>

sådan:
Response.write ("Indhold")  & "</tr>"

hmm synes ikke rigtig det viker:
http://www.pcfreek.dk/test.asp?id=20

Skriver sådan her:
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

id = Request.QueryString("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT overskrift, id, bruger, brugerID, category, dato, hits FROM emner where category='" & id & "' order by ID desc;"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};UID=; PWD=;DBQ=" & Server.Mappath("db.mdb")
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
raekketaeller = 0
Do While Not rs.EOF And intRecCount > 0
if (raekketaeller mod 2 = 0) then
farve = "#ffffff"
else
farve = "#FBEBD2"
end if
   
    Response.write ("<tr bgcolor=""farve"">")
    Response.write ("Indhold")
    Response.write ("<br></tr>")

  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=emner.asp?id=" & id & "&page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=emner.asp?id=" & id & "&page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
  Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=emner.asp?id=" & id & "&page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>

nej der skal lige orettes en table, - øjeblik

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

id = Request.QueryString("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT overskrift, id, bruger, brugerID, category, dato, hits FROM emner where category='" & id & "' order by ID desc;"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};UID=; PWD=;DBQ=" & Server.Mappath("db.mdb")
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
raekketaeller = 0
response.write "<table>"
Do While Not rs.EOF And intRecCount > 0
if (raekketaeller mod 2 = 0) then
farve = "#ffffff"
else
farve = "#FBEBD2"
end if
   
    Response.write ("<tr bgcolor=""farve""><td>")
    Response.write ("Indhold")
    Response.write ("<br></td></tr>")

  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
response.write "</table>"
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=emner.asp?id=" & id & "&page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=emner.asp?id=" & id & "&page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
  Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=emner.asp?id=" & id & "&page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>

kan se jeg har lavet fejl:

Response.write ("<tr bgcolor=""farve""><td>")

skal være

Response.write ("<tr bgcolor=" & farve & "><td>")

husk <td> og </td>

Hvor siger du dette skal ind?

raekketaeller = raekketaeller + 1

bare kopier det hele her:

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

id = Request.QueryString("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT overskrift, id, bruger, brugerID, category, dato, hits FROM emner where category='" & id & "' order by ID desc;"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};UID=; PWD=;DBQ=" & Server.Mappath("db.mdb")
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
raekketaeller = 0
response.write "<table>"
Do While Not rs.EOF And intRecCount > 0
if (raekketaeller mod 2 = 0) then
farve = "#ffffff"
else
farve = "#FBEBD2"
end if
   
    Response.write ("<tr bgcolor=" &farve&"><td>")
    Response.write ("Indhold")
    Response.write ("<br></td></tr>")

  intRecCount = intRecCount - 1
  rs.MoveNext
raekketaeller = raekketaeller + 1
  Loop
response.write "</table>"
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=emner.asp?id=" & id & "&page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=emner.asp?id=" & id & "&page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
  Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=emner.asp?id=" & id & "&page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>

det kan ikke vaere saa svaert (og lad vaere med at poste saa meget kode). Du laver tabelen , cellen eller whatever html object du vil have farvet til "bgcolor=$farve" og saa laver du to globale variabler:

$farve1=#0000ff
#farve2=#00ff00

og saa laver du f.eks. i starten af din iteration:

if ($farve == $farve1) { $farve=$farve2; } else {$farve=$farve1}

Saare simpelt, held og lykke :)

<%
antal = 10
For t = 1 to antal
if t MOD 2 then
response.write("<font color='#0000CC'><strong>Blå</strong></font><br>")
else
response.write("<font color='#FF0000'><strong>Rød</strong></font><br>")
end if
next
%>

eks: http://www.tjaz.dk/exp/skift.asp

Takker for alle de gode svar.