errore replace

[agenti]

ho questo codice:

<%
if isVuoto(rec("info")) then%>
<font color="#666699">Nessuna Guida
<%else
sText = rec("info")
iMaxChar = 400
sResult = sText
If Len(sResult) > iMaxChar Then 
sResult = Left(sResult, InStr(iMaxChar, sResult, " ")) & "[...]"
End If
Response.Write Replace(sResult, vbcrlf, "
")
end if
%>

sarà un altra svista ma mi da questo errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A005E)
Utilizzo non valido di Null: 'Replace'
/last_3/sito/inc/info_utili.asp, line 41

questo errore lo da quando rec("info") non è null
la funzione isVuoto è:

<%
Function isVuoto(stringa) 
vuoto = false 
if isNull(stringa) OR isEmpty(stringa) OR stringa = "" then vuoto = true 
isVuoto = vuoto 
End Function 
%>

[Roby_72]

Devi spostare la replace dentro l'IF non fuori.

Roby

[agenti]

Originariamente inviato da Roby_72
Devi spostare la replace dentro l'IF non fuori.

Roby

ho fatto cosi...:

<%else
sText = rec("info")
iMaxChar = 400
sResult = sText
If Len(sResult) > iMaxChar Then 
sResult = Left(sResult, InStr(iMaxChar, sResult, " ")) & "[...]"
Response.Write Replace(sResult, vbcrlf, "
")
End If
End if
%>

ma non visualizzo i risultati...
in compenso l'errore non c'è più.

[Roby_72]

Perché tu prevedi di stampare qualcosa SOLO se il testo è maggiore di 400 caratteri...

Roby

[agenti]

Originariamente inviato da Roby_72
Perché tu prevedi di stampare qualcosa SOLO se il testo è maggiore di 400 caratteri...

Roby

a parte che il testo che ho in db è superiore di 400 caratteri...
uso questo script in altre pagine e funziona correttamente.

se il testo è maggiore di 400 effettua uno split e stampa il testo entro i 400 caratteri...

[optime]

probab il campo contiene Null... e IsVuoto non lo rileva

[deivnet]

Controlla che all'inizio della stringa che devi controllare non ci sia uno " " vuoto, fai un bel Trim() della stringa e vedi cosa fa.