Problema com criação de tabela utilizando dados asp

[GuilhermeT 0]

Boa tarde, em vermelho é o resultado que estou obtendo quando utilizo o código que vc vai ver abaixo, porém, o correto seria aparecer a tabela conforme está circulado em azul.

 

Veja o codigo:

 

<%
call Chamados
%>

<table>
  <tr>
<td><strong>Código</strong></td>
<td><strong>Data</strong></td>
<td><strong>Hora</strong></td>
<td><strong>Assunto</strong></td>
<td><strong>Solicitante</strong></td>
<td><strong>Setor</strong></td>
<td><strong>Opções</strong></td>
</tr>
<%

Sub Chamados
	Dim tbAcha2, sql2, lnSetorExpedicao, lnSetorClassificacao, NomeSetor, sql3
	call abrir_conexao
	set tbAcha2=Server.CreateObject("ADODB.Recordset")
	sql2 = "SELECT max(codigo) as codigomaior, min(codigo) as codigomenor from setores"
	tbAcha2.Open sql2, bd
		If tbAcha2.EOF Then
			lnSetorExpedicao = 1
			lnSetorClassificacao = 0
		Else
			lnSetorExpedicao = tbacha2("CodigoMaior")
			lnSetorClassificacao = tbacha2("CodigoMenor")
		End If
	tbAcha2.Close
	sql3 = "SELECT Chamados.ChamadoPrincipal,max(Chamados.Codigo) as MaiorCodigo from Chamados group by chamadoprincipal " 
	sql2= "SELECT Chamados.ChamadoPrincipal from Chamados WHERE Setor =" & lnSetorExpedicao & " group by chamados.chamadoprincipal"
	sql2 = "SELECT chamados.*,setores.NomeSetor from Chamados LEFT JOIN (" & sql2 &") sql2 on chamados.codigo = sql2.ChamadoPrincipal LEFT JOIN (" & SQL3 & ") sql3 on chamados.codigo = sql3.chamadoprincipal LEFT JOIN Chamados Chamados2 on sql3.MaiorCodigo = Chamados2.Codigo LEFT JOIN Setores on isnull(Chamados2.Setor, Chamados.Setor) = Setores.Codigo WHERE Chamados.CPFCNPJ ='" & session("cpfcnpj3") & "' and IsNull(Chamados.ChamadoPrincipal, 0) = 0 and Chamados.setor <>" & lnSetorExpedicao & " and sql2.chamadoprincipal is null"
	tbAcha2.Open sql2, bd
	If tbAcha2.EOF then
	%>
	<tr>
	<td>N/A</td>
	<td>N/A</td>
	<td>N/A</td>
	<td>N/A</td>
	<td>N/A</td>
	<td>N/A</td>
	<td>N/A</td>
	</tr>
	<%
	End If
	do while not tbAcha2.EOF
	%>
	<tr>
	<td><%=tbAcha2("Codigo")%></td>
	<td><%=tbAcha2("Data")%></td>
	<td><%=tbAcha2("Hora")%></td>
	<td><%=tbAcha2("NomeChamado")%></td>
	<td><%=tbAcha2("Usuario")%></td>
	<td><%=tbAcha2("NomeSetor")%></td>
	<td><a href="visualizarchamado.asp?id=<%=tbAcha2("Codigo")%>" title="Visualizar"><img src="imagens/view_icon.png"></a> <a href="deletarchamado.asp?id=<%=tbAcha2("Codigo")%>" title="Deletar" onClick="return confirm_del()"><img src="imagens/delete_icon.png"></a></td>
	</tr>
	<%
	tbAcha2.movenext
	loop 
	end sub
	%>
</table>

estou mesmo sem ideias do que seja o problema.

[wilnet 92]

E se vc inserir um else depois do seu if ???

 

 

If tbAcha2.EOF then

else

[GuilhermeT 0]

acho que vc não entendeu wilnet.

ele não está executando o codigo da tabela

[Victor Menezes 2]

sql="SELECT Chamados.ChamadoPrincipal,max(Chamados.Codigo) as MaiorCodigo from Chamados group by chamadoprincipal"

set rs = conexao.execute (sql)


response.Write("<table align='center' cellpadding='0' cellspacing='0' style='margin: 0px; font-size:12px;' border='1'>")
response.Write("<tr class='teste'>")
response.Write("<td align='center' width='250px'>Chamados</td>")
response.Write("<td align='center' width='125px'>ChamadoPrincipal</td>")
response.Write("<td align='center' width='125px'>MaiorCodigo</td>")

response.Write("</table>")
do while not rs.EOF
response.write "<table  style='font-size:12px; width='100%' border='0'>"

response.write "<tr>"
response.write "<td  width='260px' bgcolor="&coratual&">"& rs("Chamados")
response.write "<td  width='135px' bgcolor="&coratual&">"& rs("ChamadoPrincipal")
response.write "<td  width='135px' bgcolor="&coratual&">"& rs("MaiorCodigo")
response.write "</table>"

rs.movenext

loop      

tenta isso

[xanburzum 169]

realmente esta fora do laço de repetição...

[GuilhermeT 0]

Problema resolvido, obrigado.