Problemas em código

[thicomp 0]

Bom dia pessoalEstou com alguns probleminhas neste código para leitura de arquivo txt:<%Const forReading = 1, forWriting = 2, forAppending = 8Dim objteste, objtextstreamSet Fso = CreateObject("Scripting.FileSystemObject")Set ObjFile = Fso.GetFile ("C:\Produto\"& session("nome") &"\"& session("etap") &"\Relat\"& session("etap") &".txt")Set objStream = ObjFile.OpenAsTextStream(forReading,false)Texto = ObjStream.ReadAllDados= Split(Replace(Texto,Chr(10),""),Chr(09))for x=LBound(dados) to UBound(dados)%><tr><td align=left colspan=50 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><a href="/Produto/<%=session("NOME")%>/<%=session("etap")%>/Relat/SE01_001.pdf" target=window><%=dados(x)%></a><td align=left colspan=80 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(x+1)%><td align=CENTER colspan=58 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(x+2)%><td align=CENTER colspan=50 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(x+3)%><td align=CENTER colspan=40 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(x+4)%><td align=CENTER colspan=50 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(x+5)%></tr><%nextobjStream.CloseSet Fso = nothingSet objStream = nothing%>O problema é o seguinte:1. Qd acesso o txt, ele me retorna a primeira linha da tabela, mas o ultimo campo vem na mesma célula do primeiro campo da linha seguinte;2. A partir da linha "dois", elas se repetem seis vezes;3. Gostaria de uma sugestão de como posso fazer para alterar as cores das linhas da tabela, utilizando duas cores.Grato pela atenção

[thicomp 0]

Pessoal, problema resolvido.