[Resolvido] colorir div não esta rolando

galera estou lendo um xml ...

ai tentei colorir a div mais nem esta rolando

<%'rssURL = "xmlcarros.asp"Set objXML = Server.CreateObject("Microsoft.XMLDOM")objXML.async = falseobjXML.setProperty "ServerHTTPRequest", TrueobjXML.validateOnParse = falseobjXML.preserveWhiteSpace = falserssFile = objXML.Load(rssURL)cor = "#FF0000"%><style type="text/css"><!--.txt { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #666666;}a:link { color: #666666; text-decoration: none;}a:visited { text-decoration: none; color: #666666;}a:hover { text-decoration: none; color: #CC0000; font-weight:bold;}a:active { text-decoration: none; color: #666666;}--></style> <table width="100%" height="100%" border="0" align="left" cellpadding="0" cellspacing="0"> <% If Not (rssFile) Then %> <tr> <td width="275" height="18" class="style4" align="center"> <% Response.Write("Aguarde novas notícias") 'Response.write objXML.parseError.reason &"<br>" 'Response.write objXML.parseError.line &"<br>" 'Response.write objXML.parseError.errorCode &"<br>" 'Response.write objXML.parseError.titulo_chamada &"<br>" 'Response.write objXML.parseError.url &"<br>" 'Response.write objXML.parseError.filepos &"<br>" %> </td> </tr><% Else linha = 1 Set objNodeList = objXML.getElementsByTagName("noticia") For Each objNode In objNodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "titulo_chamada" strTitle = Trim(objNode2.firstChild.nodevalue) Case "id" strURL = Trim(objNode2.firstChild.nodevalue) End Select Next If cor = "#FF0000" Then cor = "#00FF00" Else cor = "#FF0000" End If%> <tr> <td width="100%" height="18" ><div style="background-color:<%=cor%>;"> <a href="[http://site.com/carros/noticia.asp?link=