Estourando a TR

[Igor Meireles 0]

If  tipo = 0 or tipo = 1 or tipo = 2 or tipo = 3 or tipo = 4 or tipo = 9 then
SQL = "SELECT r.DATA_CADASTRO, r.ID, r.CODIGO_CLIENTE, r.CONTATO_NOME, r.SITUACAO, r.MODO, i.SERIAL, i.CODIGO_REFERENCIA, i.PRODUTO_DESCRICAO, i.LAUDO_CLIENTE, i.DATA_COMPRA, i.NOTA_FISCAL, i.DS_OPERACAO, i.DS_USUARIO FROM RMA r INNER JOIN RMA_ITEM i ON r.ID = i.RMA_ID WHERE r.SITUACAO ="&tipo&" ORDER BY r.ID, i.DATA_COMPRA"
Set rs = Con.Execute(SQL)

If rs.EOF then
%>            
<span class="txtAlerta">Não foi localizado nenhum registro com essa solicitação.</span>
<%
Else%>
<tr class="TxtBrancoBgAzul">
<td align="center"><p class="TxtBrancoBgAzul">ID RMA</p></td>
<td align="center" class="TxtBrancoBgAzul">COD. CLIENTE</td>
<td align="center" class="TxtBrancoBgAzul">NOME</td>
<td align="center" class="TxtBrancoBgAzul">SERIAL</td>
<td align="center" class="TxtBrancoBgAzul">CODIGO</td>
<td align="center" class="TxtBrancoBgAzul">DESCRIÇÃO</td>
<td align="center" class="TxtBrancoBgAzul">DEFEITO</td>
<td align="center" class="TxtBrancoBgAzul">DATA COMPRA</td>
<td align="center" class="TxtBrancoBgAzul">DATA CADASTRO</td>
<td align="center" class="TxtBrancoBgAzul">NF</td>
<td align="center" class="TxtBrancoBgAzul">OPERAÇAO</td>
<td align="center" class="TxtBrancoBgAzul">USUÁRIO</td>
<td align="center" class="TxtBrancoBgAzul">SITUAÇÃO</td>
<td align="center" class="TxtBrancoBgAzul">AÇÃO</td>
</tr>


<%while not rs.eof

If rs("SITUACAO") = 0 then
								situacao = "(EA)"
ElseIf rs("SITUACAO") = 1 then
situacao = "(CC)"
ElseIf rs("SITUACAO") = 2 then
situacao = "(RA)"
ElseIf rs("SITUACAO") = 3 then
situacao = "(EE)"
ElseIf rs("SITUACAO") = 4 then
situacao = "(FF)"
ElseIf rs("SITUACAO") = 9 then
situacao = "(EX)"
Else
situacao = "ERRO"
End If
'situacaoB é a a ação que o botão vai executar.
If situacao = "(EA)" then
situacaoB = "(CC)"
ElseIf situacao = "(CC)" then
situacaoB = "(FF)"
ElseIf situacao = "(RA)" then
situacaoB = "(EA)"
ElseIf situacao = "(EE)" then
situacaoB = "(RA)"
ElseIf situacao = "(FF)" then
situacaoB = "(Sem Ação)"
ElseIf situacao = "(EX)" then
situacaoB = "(Sem Ação)"
Else
situacaoB = "ERRO"
End If
%>							  
<tr>
<td class="TxtPretoBgBranco"><%=rs("ID")%></td>
<td class="TxtPretoBgBranco"><%=rs("CODIGO_CLIENTE")%></td>
<td class="TxtPretoBgBranco"><%=rs("CONTATO_NOME")%></td>
<td class="TxtPretoBgBranco"><%=rs("SERIAL")%></td>
<td class="TxtPretoBgBranco"><%=rs("CODIGO_REFERENCIA")%></td>
<td class="TxtPretoBgBranco"><%=rs("PRODUTO_DESCRICAO")%></td>
<td class="TxtPretoBgBranco"><%=rs("LAUDO_CLIENTE")%></td>
<td class="TxtPretoBgBranco"><%=rs("DATA_CADASTRO")%></td>
<td class="TxtPretoBgBranco"><%=rs("DATA_COMPRA")%></td>
<td class="TxtPretoBgBranco"><%=rs("NOTA_FISCAL")%></td>
<td class="TxtPretoBgBranco"><%=rs("DS_OPERACAO")%></td>
<td class="TxtPretoBgBranco"><%=rs("DS_USUARIO")%></td>
<td class="TxtPretoBgBranco"><%=situacao%></td>
<td class="TxtPretoBgBranco"><input name="situacaoB" type="submit" class="form12pxBt" id="situacaoB" value="<%=situacaoB%>" onClick="javascript:location='processa.asp?id_rma=<%=rs("ID")%>&situacao=<%=situacaoB%>&st=3';"></td>
</tr>
<%
rs.movenext
wend
End If
Set rs = nothing

 

 

Tah aparecendo tudo na tela . .. sem estar dentro da table!!! e só quando eu pego tipo = 1 ou 2

 

ob: é uma tabela com muitos registros!!!

[xanburzum 169]

olá amigo...

 

seja mais especifico, porfavor