Problemi replace

[fabiodm75]

Ciao a tutti,
ho un problema con il replace per convertire in
gli spazi di una textarea, il codice usato è questo:

If rsAutori.fields("USR_INFO").value <> "" Then  
Response.Write (replace(rsAutori.fields("USR_INFO"),vbcrlf,"
"))
Else
Response.Write("Nessuna info inserita per questo autore")
End if

a me il codice sembra giusto poi non so cmq l'errore che mi dà è il seguente:

Microsoft VBScript runtime error '800a005e'
Invalid use of Null: 'replace'
/pagine/utentiautori.asp, line 211

ovvio che la riga 211 è quella del replace... dove sbaglio?
Ciao e grazie
fabio

[longline]

Evidentemente il campo USR_INFO è NULL (che è diverso da stringa di lunghezza zero). Prova così:

If rsAutori.fields("USR_INFO").value <> "" AND Not(IsNull(rsAutori.fields("USR_INFO").value)) Then  
  Response.Write (replace(rsAutori.fields("USR_INFO"),vbcrlf,"
"))
Else
  Response.Write("Nessuna info inserita per questo autore")
End if

[fabiodm75]

Ciao e grazie per la risposta, ma continua la serie dei misteri...
allora con il tuo codice non dà errore ma anche se il campo USR_INFO è pieno mi dà sempre il msg "Nessuna info inserita per questo autore"

ma il bello è che se tolgo il ciclo IF funziona!
infatti se scrivo solo:

response.write (replace(rsAutori("USR_INFO"),vbcrlf,"
"))

oppure come hai scritto tu:

Response.Write (replace(rsAutori.fields("USR_INFO"),vbcrlf,"
"))

funziona e mi mostra la biografia, solo che quando non c'è veramente le info sull'autore non mi scrive nulla...

Com'è possibile una cosa del genere?

ciao e grazie
fabio

[longline]

Uhm... Prova così:

If Not(IsNull(rsAutori.fields("USR_INFO").value)) Then  
  Response.Write (replace(rsAutori.fields("USR_INFO"),vbcrlf,"
"))
Else
  Response.Write("Nessuna info inserita per questo autore")
End if

[fabiodm75]

No niente sempre lo stesso errore sul replace...
sinceramente non riesco a spiegarmi come possa succedere una cosa del genere...

[Killer99]

io uso:

stringa = rs("campo")
stringa=replace(stringa,chr(13),"
")
stringa=replace(stringa,vbcrlf," ")
stringa=replace(stringa,vblf," ")
arrstringa = split(stringa," ")

[optime]

perche' il campo vale NULL, molto semplice.

adatta la pluripremiata funzione

IF Trim(Variabile & "[]") = "[]" Then
' e' vuota
Else
' contiene qualcosa
End If

al posto di "variabile" metti il campo dal tuo recordset

[fabiodm75]

Ciao optime,
ma allora se il campo vale null (e non dovrebbe in quanto contiene delle info) perchè quando lo tolgo dal ciclo If funziona e mostra le info? è questo che non mi spiego...

[optime]

non ti seguo... cosa vuol dire "quando lo tolgo dal ciclo If funziona"...?

[fabiodm75]

scusa mi spiego meglio...

If rsAutori.fields("USR_INFO").value <> "" Then  
Response.Write (replace(rsAutori("USR_INFO"),vbcrlf,"
"))
Else
Response.Write("Nessuna info inserita per questo autore")
End if

o in altro modo come ha suggerito anche longline ho sempre questo errore:

Microsoft VBScript runtime error '800a005e'
Invalid use of Null: 'replace'
/pagine/utentiautori.asp, line 211

Se invece scrivo

response.write (replace(rsAutori("USR_INFO"),vbcrlf,"
"))

funziona ossia mi fa vedere le info dell'autore, però a me il ciclo IF serve nel caso che non ci sia nessuna info presente...

Spero di essermi spiegato bene
ciao e grazie
fabio