Hver anden række forskellig

ren HTML kilde til hver enkelt række:
<tr><td>tekst</td><td>tal</td><td>dato</td></tr>

<%   
    Farve = 1
       
    do while not Hent.eof
   
           
    Farve = Farve * -1                                                         
                                                                                 
    Select Case Farve                                                   
        Case -1                                                             
        Color = "5090F9"                                             
        Case 1                                                             
        Color = "ADABBA"                                             
    End Select

%>   
    <TR>
        <TD BGCOLOR="<%=color%>" ALIGN=LEFT WIDTH="200px" VALIGN="TOP">
            <B>Brugernavn:</B><BR>
            <%=hent("dbNick")%>
        </TD>
    </TR>
<%
    hent.movenext
    Loop
%>

Skal lige skrives ind i din kode.....

Tror det skal ligne det her lidt:

<%   
If Not (rs.BOF Or rs.EOF) Then

    Farve = 1
       
    do while not rs.eof
   
           
    Farve = Farve * -1                                                         
                                                                                 
    Select Case Farve                                                   
        Case -1                                                             
        Color = "5090F9"                                             
        Case 1                                                             
        Color = "ADABBA"                                             
    End Select

        strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (ReplyID = " & rs("Id") & ") AND (OrgThread <> TRUE)"
        Set recordCount = myConn.Execute(strSQL)
        Dim waybackID
waybackID=rs("Id")
        strHTML = strHTML & "<tr><td bgcolor="<%color%>"><a href=""viewmsg.asp?id=" & rs("ID") & "&ForumID=" & intForumID & """>" & Server.HTMLEncode(rs("Subject")) & "</a></td>"
        strHTML = strHTML & "<td align=center valign=top bgcolor="<%color%>">" & recordCount("ItemCount") & "</td>"
        strHTML = strHTML & "<td align=center valign=top bgcolor="<%color%>">" & rs("FormDate") & "</td></tr>"
        rs.MoveNext
    Loop
End If

eller:

bgcolor="DDEEFF"
If Not (rs.BOF Or rs.EOF) Then
    Do While Not rs.EOF
if bgcolor = "DDEEFF" then
bgcolor = "FFFFFF"
else
bgcolor = "DDEEFF"
end if
        strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (ReplyID = " & rs("Id") & ") AND (OrgThread <> TRUE)"
        Set recordCount = myConn.Execute(strSQL)
        Dim waybackID
waybackID=rs("Id")
        strHTML = strHTML & "<tr" & bgcolor & "><td><a href=""viewmsg.asp?id=" & rs("ID") & "&ForumID=" & intForumID & """>" & Server.HTMLEncode(rs("Subject")) & "</a></td>"
        strHTML = strHTML & "<td align=center valign=top>" & recordCount("ItemCount") & "</td>"
        strHTML = strHTML & "<td align=center valign=top>" & rs("FormDate") & "</td></tr>"
        rs.MoveNext
    Loop
End If

superior > jeg får en error på dit script:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/forumthreads.asp, line 27

linje 27:
        strHTML = strHTML & "<tr" & bgcolor & "><td><a href=""viewmsg.asp?id=" & rs("ID") & "&ForumID=" & intForumID & """>" & Server.HTMLEncode(rs("Subject")) & "</a></td>"

skal jeg poste mere af mit script, så du kan se åbning af min db mv?

Jeg har fundet fejlen - nu er det bare sket det, at tr kommer til at se skiftevis sådan ud: <trDDEEFF> og sådan ud: <trFFEEFF> *G* hmm... kigger lige nærmere på hvor det går galt.

Det er selvfølgelig også forkert:
strHTML = strHTML & "<tr bgcolor=<%=bgcolor%>><td><a href=""viewmsg.asp?id=" & rs("ID") & "&ForumID=" & intForumID & """>" & Server.HTMLEncode(rs("Subject")) & "</a></td>"

Sådan skulle det gøres:

bgcolor="DDEEFF"
If Not (rs.BOF Or rs.EOF) Then
    Do While Not rs.EOF
if bgcolor = "DDEEFF" then
bgcolor = "FFFFFF"
else
bgcolor = "DDEEFF"
end if
        strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (ReplyID = " & rs("Id") & ") AND (OrgThread <> TRUE)"
        Set recordCount = myConn.Execute(strSQL)
        Dim waybackID
waybackID=rs("Id")
        strHTML = strHTML & "<tr bgcolor=" & bgcolor & "><td><a href=""viewmsg.asp?id=" & rs("ID") & "&ForumID=" & intForumID & """>" & Server.HTMLEncode(rs("Subject")) & "</a></td>"
        strHTML = strHTML & "<td align=center valign=top>" & recordCount("ItemCount") & "</td>"
        strHTML = strHTML & "<td align=center valign=top>" & rs("FormDate") & "</td></tr>"
        rs.MoveNext
    Loop
End If

nu sidder jeg og roder html og asp sammen.. prøver lige igen:

strHTML = strHTML & "<tr bgcolor="& bgcolor &"><td><a href=""viewmsg.asp?id=" & rs("ID") & "&ForumID=" & intForumID & """>" & Server.HTMLEncode(rs("Subject")) & "</a></td>"


sådan bør den virke

nå den fandt du selv ;)

ja, hehe... og nu funger det bare super godt. Tak for hjælpen :o)

Selv tak for point :D