Uso Inválido De Null: 'replace'

[PhoEniXFirE]

Estou utilizando o seguinte código...

<% If rs("informacoes") <> "" Then

Response.Write(Replace(rs("informacoes"), chr(10), "<br>" & chr(10)))

End If%>

E o campo no banco esta com conteudo. Mas estou recebendo a seguinte msg de erro: Erro de tempo de execução do Microsoft VBScript (0x800A005E) Uso inválido de Null: 'Replace' /enderecosuteis/endereco.asp, line 28 porque diz esta vazio se tem conteúdo? :blink: Fiz uns testes aqui e vejam só! quando uso só <%Response.Write(Replace(rs("informacoes"), chr(10), "<br>" & chr(10)))%> funciona! Mas o campo informações n pode está vazio que dá erro. Aquele If seria p impedir que dar erro, mas na verdade está atribuindo para rs('informacoes') um valor null, pois quando uso

<% If rs("informacoes") <> "" Then

'Response.Write(Replace(rs("informacoes"), chr(10), "<br>" & chr(10)))
Response.Write(rs("informacoes"))

End If%>

N aparece nd

[Romero Dias]

kara, tenta assim, aqui deu certo.

<% If CStr(rs("informacoes")) <> "" Then

Response.Write(Replace(CStr(rs("informacoes")), chr(10), "<br>" & chr(10)))
End If%>

se der erro, poste ai..

falou

[PhoEniXFirE]

kara, tenta assim, aqui deu certo.

<% If CStr(rs("informacoes")) <> "" Then

Response.Write(Replace(CStr(rs("informacoes")), chr(10), "<br>" & chr(10)))
End If%>

se der erro, poste ai..

falou

Deu no mesmo:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A005E)

Uso inválido de Null: 'CStr'

/enderecosuteis/endereco.asp, line 27

No caso na linha Response.Write(Replace(CStr(rs("informacoes")), chr(10), "<br>" & chr(10)))

[marciombl]

PhoEniXFirE

O que deu para entender é que você está com problemas com null e não sabe o porque, em seu caso está muito parecido quando está dentro de um loop, uma linha estando null retorna este erro, tipo:

1 sim

2

3 não

Você quer retornar sim ou não porem ao fazer o loop o número 2 está null e é retornado o erro independente de qual linha for, ao fazer o loop verifica todas as linhas em bisca de informações, porem se seu caso não for o loop é muito difícil acontecer isto por que você está indicando a linha por um ID e o motor do banco de dados ira na informação correta, mas para ter certeza que isto esteja acontecendo, poste como está sendo feita esta sua chamada, por loop ou não, desta forma daria para ter uma idéia melhor do que está acontecendo.

Forte abraço fica com Deus.

Editado Março 15, 2007 por marciombl

[PhoEniXFirE]

PhoEniXFirE

O que deu para entender é que você está com problemas com null e não sabe o porque, em seu caso está muito parecido quando está dentro de um loop, uma linha estando null retorna este erro, tipo:

Na verdade n estou usando loop, eis o código completo p entender o que estou fazendo:

<%

Set Rs = Conn.execute("SELECT * FROM enderecos WHERE Id = " & Request.QueryString("id"))

%>
<table border="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111" width="100%">
  <tr>
    <td width="100%" bgcolor="#EEEEEE">
    <b><font face="Verdana" size="2">&nbsp;<%Response.Write(rs("nome"))%>
</td></tr>
  <tr>
    <td width="100%" bgcolor="#F9F9F9" style="border: 1px solid #EEEEEE">
    <table border="0" cellpadding="3" cellspacing="2" style="border-collapse: collapse" bordercolor="#111111" width="100%">
      <tr>
        <td width="210" align="center" valign="top">
        <img border="0" src="images/<%Response.Write(rs("imagem"))%>" width="200"></td>
        <td valign="top"><font face="Arial" style="font-size: 9pt">

        <b><%Response.Write(rs("endereco"))%></b><br>
    Euclides da Cunha-BA<br>
        <br>

<% 
Informacoes = Replace(rs("informacoes"), chr(10), "<br>" & chr(10))
'Response.Write Informacoes

If rs("informacoes") <> "" Then

Response.Write Informacoes

End If%>
    </font></td>
      </tr>
    </table>
    </td>
  </tr>
  <tr>
    <td width="100%" style="font-size=6">&nbsp;</td>
  </tr>

</table>

Vê algo de errado? ou que posso ocasionar não aparecer nada? Ah, quando tiro a ASPA de 'Response.Write Informacoes as informacoes aparecem, a prova que o conteudo existe.

Abraços e espero que alguém saiba o porque disso....

Editado Março 16, 2007 por PhoEniXFirE