Looking for a way to Alernating Table row colors. Currently using the following:
But in my ASP (classic) I have several <TR> that I don't what to have the color. Is there a way just to build a class in CSS that I could add to my <TR> tag maybe something like:Code:<script type="text/javascript"> window.onload=function() { var b, r, t = document.getElementsByTagName("TABLE"); for(var i=0; i<t.length; i++) { var current_t = t[i]; if(current_t.className && current_t.className == "zebra") { b = current_t.getElementsByTagName("TBODY"); for(var j=0; j<b.length; j++) { var current_b = b[j]; r = current_b.getElementsByTagName("TR"); for(var k=0; k<r.length; k+=2) { r[k].className = "udda"; } } } } } </script> <style type="text/css"> table.zebra thead tr { background-color: #ccc; } table.zebra tr { background-color: #fff; } table.zebra tr.udda { background-color: #efefef; } </style>
BTW here is my ASP (classic) just in case.Code:table.data tbody tr { background-color:expression( ((sourceIndex- parentNode.firstChild.sourceIndex)%2==1)? (parentNode.parentNode.rowHighlightColor||"#dddddd"):""); }
HTML Code:<% Option Explicit Response.Buffer = True Dim oXml, oGroup, oQuestion, lGroup, lQuestion Set oXml = Server.CreateObject("Microsoft.XMLDOM") oXml.async = False oXml.load (Server.MapPath("paafv2.xml")) %> <html xmlns="http://www.w3.org/1999/xhtml"> <head><title></title> <link rel="STYLESHEET" href="paaf.css" /> </head> <body> <form action="Questionnaire.asp?action=submit" method="post"> <table"> <% If Request.QueryString("action") = "submit" Then For lGroup = 0 to oXml.SelectNodes("//root/group").Length - 1 Set oGroup = oXml.SelectNodes("//root/group").Item(lGroup) Response.Write("<tr><td><b>" & oGroup.SelectSingleNode("@name").Text & "</b></td></tr>") For lQuestion = 0 to oGroup.SelectNodes("question").Length - 1 Set oQuestion = oGroup.SelectNodes("question").Item(lQuestion) Response.Write("<tr><td>" & oQuestion.SelectSingleNode("text").Text & " Answer: " & Request.Form("question_" & lGroup & "_" & lQuestion) & "</tr></td>") Next Response.Write("<tr><td><br><br></td></tr>") Next Else For lGroup = 0 to oXml.SelectNodes("//root/group").Length - 1 Set oGroup = oXml.SelectNodes("//root/group").Item(lGroup) Response.Write("<tr><td class=""groupheader""><b>" & oGroup.SelectSingleNode("@name").Text & "</b></td></tr>") For lQuestion = 0 to oGroup.SelectNodes("question").Length - 1 Set oQuestion = oGroup.SelectNodes("question").Item(lQuestion) Response.Write("<tr class=""Looking to Insert Alternating Table row colors Here""><td>" & lQuestion + 1 & " " & oQuestion.SelectSingleNode("text").Text) If oQuestion.SelectSingleNode("@response").Text = "2" Then Response.Write(" <input type=""radio"" name=""question_" & lGroup & "_" & lQuestion & """ value=""100"">Yes") Response.Write(" <input type=""radio"" name=""question_" & lGroup & "_" & lQuestion & """ value=""0"">No") ElseIf oQuestion.SelectSingleNode("@response").Text = "3" Then Response.Write(" <input type=""radio"" name=""question_" & lGroup & "_" & lQuestion & """ value=""100"">Yes") Response.Write(" <input type=""radio"" name=""question_" & lGroup & "_" & lQuestion & """ value=""0"">No") Response.Write(" <input type=""radio"" name=""question_" & lGroup & "_" & lQuestion & """ value=""50"">Maybe") ElseIf oQuestion.SelectSingleNode("@response").Text = "5" Then Response.Write(" <input type=""radio"" name=""question_" & lGroup & "_" & lQuestion & """ value=""0"">1") Response.Write(" <input type=""radio"" name=""question_" & lGroup & "_" & lQuestion & """ value=""25"">2") Response.Write(" <input type=""radio"" name=""question_" & lGroup & "_" & lQuestion & """ value=""50"">3") Response.Write(" <input type=""radio"" name=""question_" & lGroup & "_" & lQuestion & """ value=""75"">4") Response.Write(" <input type=""radio"" name=""question_" & lGroup & "_" & lQuestion & """ value=""100"">5") End If Response.Write("<br><font size=""1"">" & oQuestion.SelectSingleNode("desc").Text & "</font></td></tr>") 'Response.Write("<td><textarea id=""TextArea1"" rows=""2"" cols="20"></textarea></td></tr>")'was tryen to insert the textarea for the comments but no luck here. Next Response.Write("<tr class=""groupfooter""><td>" & oGroup.SelectSingleNode("@name").Text & " Score:" & "</td></tr>") Next Response.Write("<tr><td><input type=""submit"" value=""Submit Selections"" class=""button""></tr></td>") End If %> </table> </form> </body> </html> <% Set oXml = Nothing Set oGroup = Nothing Set oQuestion = Nothing %>



Reply With Quote
Bookmarks