problem med changescolor

har en side som skulle vise nogle forskellige nyheder hvor den første er med hvis baggrund og den næste er med grå og så hvis og grå osv.

men alle vises med en hvis baggrund, det er somom changescolor ikke virker.

Hvad kan fejlen være !?

<%
Dim tr_class
    Sub changeColor()
        If tr_class = "white" Then
            tr_class = "black"
        Else
            tr_class = "white"
        End If
    End Sub
   
    tr_class = "white"
   
Do While Not rs.EOF And intRecCount > 0

    strForfatter = rs("name")
    strOverskrift = rs("titel")
    strMail = rs("email")
    strTekst = rs("news")
    strDate = rs("Dato")
    strDate = FormatDateTime(strDate,vbLongDate) & " kl. " & FormatDateTime(strDate,vbLongTime)


Response.Write "<tr>"
Response.Write "<td colspan=""2"" class=""tr_class"" valign=""top"" style=""border-bottom: Dashed 1px #CCCCCC;"">"
Response.Write "<font class=""text""><b>"&strOverskrift&"</font></b><br>"
Response.Write "<font class=""text""><b>Forfatter:</b></font> <a class=""po"" href=mailto:"&strMail&">"&strForfatter&"</a><br>"
Response.Write "<font class=""text""><b>Dato:</b>&nbsp;"&strDate&"</font><br><br>"
Response.Write "<font class=""text"">"&strTekst&"</font><br><br>"
Response.Write "</td>"
Response.Write "</tr>"

intRecCount = intRecCount - 1

changeColor

rs.MoveNext