[Resolvido] construir uma tabela com cores de fundo alternadas

[xanburzum 169]

Este código irá gerar uma tabela com alternância rowcolours de qualquer ADO Recordset

 

Usado para construir automaticamente uma tabela com cores de fundo alternadas

a partir de qualquer ADO Recordset.

exemplo:

 

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = Sua_ConnectionString
rs.Open "SELECT * FROM SomeTable"
Sua_tabela(rs)
rs.Close
Set rs = Nothing

'**************************************
	<%@ Language=VBScript %>
	<%Sub Sua_tabela(rs)
		Dim i
		Dim j
		%><TABLE BORDER="1"><TR><%
		For i = 0 To rs.Fields.Count - 1
			%><TD><B><%=rs.Fields(i).Name%></B></TD><%
		Next
		%></TR><%
		i = 1
		Do While Not rs.EOF 
			%><TR<% 
			if i mod 2 = 0 Then%> 
			 BGCOLOR="#d3d3d3">
		 <%Else%>
				>
		 <%End if
			For j = 0 To rs.Fields.Count-1
				%><TD><%=rs.Fields(j).Value%></TD><%
			Next
			%></TR><%
			rs.MoveNext
			i=i+1
		Loop
		
		%></TABLE><%
	End Sub%>