Ocultar campo com ASP

[suzaco7 0]

Boa tarde pessoal, estou tentando fazer uma coisa mais não funciona.

Preciso ocultar um campo se não houver nenhum registro na tabela relacionada.

O problema que coloco uma condição que se não houver registro então a campo não será visualizado mais não funciona.

Coloquei o código abaixo

 

<select name="chkColunas" multiple size="10"><%sSQL = "sp_relatorios_colunas_lista '" & sEntidades & "'"Set oRsColunas = ReadQuery(sSQL, SysConnection)i = 0If Not oRsColunas.EOF ThensColunaAntiga = ""Do While Not oRsColunas.EOFi = i + 1IdColuna = CLng("0" & oRsColunas("IdColuna"))sColunaAtual = Trim("" & oRsColunas("Entidade"))If sColunaAntiga <> sColunaAtual ThenResponse.Write "<b>" & sColunaAtual & "</b><br>"End If%><option <%If BelongsTo(IdColuna,sColunas) Then Response.write " selected "%> value="<%=CLng("0" & oRsColunas("IdColuna"))%>"><%=Trim("" & oRsColunas("Nome"))%></option><%sColunaAntiga = sColunaAtualoRsColunas.MoveNextLoopEnd IfoRsColunas.CloseSet oRsColunas = Nothing%></select>

 

 

Esta linha:

 

<option <%If BelongsTo(IdColuna,sColunas) Then Response.write " selected "%> value="<%=CLng("0" & oRsColunas("IdColuna"))%>"><%=Trim("" & oRsColunas("Nome"))%></option>

Não deve aparecer se não houver registro na tabela relacionada.

 

Coloquei:

 

If oRsColunas.Recordcount <> 0 Then

<option <%If BelongsTo(IdColuna,sColunas) Then Response.write " selected "%> value="<%=CLng("0" & oRsColunas("IdColuna"))%>"><%=Trim("" & oRsColunas("Nome"))%></option>

End If

 

Ou seja se tiver registro então amostra se não pula esta linha. Mais não acontece nada.

Desde já agradeço a ajuda.

[Ted k' 126]

Muito simples usar o IF, mais veja ai um ELSE

 

caso de um Else esquecido

 

<select name="chkColunas" multiple size="10">
<%
sSQL = "sp_relatorios_colunas_lista '" & sEntidades & "'"
Set oRsColunas = ReadQuery(sSQL, SysConnection)
i = 0

If Not oRsColunas.EOF Then
sColunaAntiga = ""

Do While Not oRsColunas.EOF	
i = i + 1
IdColuna = CLng("0" & oRsColunas("IdColuna"))
sColunaAtual = Trim("" & oRsColunas("Entidade"))

If sColunaAntiga <> sColunaAtual Then
Response.Write "<b>" & sColunaAtual & "</b><br>"
End If 

If BelongsTo(IdColuna,sColunas) Then 
%>
<option value="<%=CLng("0" & oRsColunas("IdColuna"))%>" selected><%=Trim("" & oRsColunas("Nome"))%></option>
<% Else %>
<option value="<%=CLng("0" & oRsColunas("IdColuna"))%>"><%=Trim("" & oRsColunas("Nome"))%></option>
<%
End If
sColunaAntiga = sColunaAtual
oRsColunas.MoveNext
Loop
End If
oRsColunas.Close
Set oRsColunas = Nothing
%>
</select>

[suzaco7 0]

De qualquer jeito o option aparece.Eu queria que ele não fosse exibido.Assim a option aparecer mais sem nenhum valor dentro.

[Ted k' 126]

simples

 

altere a linha abaixo

 

If BelongsTo(IdColuna,sColunas) Then 
%>
<option value="<%=CLng("0" & oRsColunas("IdColuna"))%>" selected><%=Trim("" & oRsColunas("Nome"))%></option>
<% Else %>
<option value="<%=CLng("0" & oRsColunas("IdColuna"))%>"><%=Trim("" & oRsColunas("Nome"))%></option>
<%
End If

para

 

If BelongsTo(IdColuna,sColunas) Then 
%>
<option value="<%=CLng("0" & oRsColunas("IdColuna"))%>" selected><%=Trim("" & oRsColunas("Nome"))%></option>
<%
Else
   Response.Write("")
End If

[Ted k' 126]

Mais caso você queira fazer com que o select ñ apareça vai ter que fazer a funão toda fora da tag!