errore error '800a005e'

[simones70]

Salve,
in una pagina ho il seguente script
-------------------------------------------------------
strMessage1 = rs("descrizioneit")
strMessage1 = Replace(strMessage1, "&lt;", "<", 1, -1, 1)
strMessage1 = Replace(strMessage1, "&gt;", ">", 1, -1, 1)
strMessage1 = Replace(strMessage1, "", " ", 1, -1, 1)
strMessage1 = Replace(strMessage1, "", " ", 1, -1, 1)
strMessage1 = Replace(strMessage1, "", " ", 1, -1, 1)
strMessage1 = Replace(strMessage1, "", " ", 1, -1, 1)
strMessage1 = Replace(strMessage1, "", " ", 1, -1, 1)
strMessage1 = Replace(strMessage1, "", vbTab, 1, -1, 1)
strMessage1 = Replace(strMessage1, vbCrLf, "", 1, -1, 1)
strMessage1 = Replace(strMessage1, "
" & vbCrLf, vbCrLf, 1, -1, 1)
strMessage1 = Replace(strMessage1, "
", vbCrLf, 1, -1, 1)
strMessage1 = Replace(strMessage1, "", "[", 1, -1, 1)
strMessage1 = Replace(strMessage1, "", "]", 1, -1, 1)
-----------------------------------------------------------------------------


che mi restituisce il seguente errore quando il campo descrizioneit è vuoto

--------------------------------
Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'Replace'

/admin/gestione_camere_mod.asp, line 14
--------------------------------

Come posso risolvere?

[SGr33n]

Certo, la variabile non può essere vuota...

Rinchiudi in una condizionale

If rs... <> '' Then...

[Dirk Pitt]

L'errore potrebbe essere generato dal fatto che il campo rs("descrizioneit") è vuoto o nullo.
In tal caso è impossibile fare il replace di un campo nullo o vuoto.
Prova semmai a verificare prima che il campo contenga qualcosa

strMessage1 = rs("descrizioneit")
If strMessage1 <> "" then 
strMessage1 = Replace(strMessage1, "&lt;", "<", 1, -1, 1)
strMessage1 = Replace(strMessage1, "&gt;", ">", 1, -1, 1)
strMessage1 = Replace(strMessage1, "       ", " ", 1, -1, 1)
strMessage1 = Replace(strMessage1, "      ", " ", 1, -1, 1)
strMessage1 = Replace(strMessage1, "     ", " ", 1, -1, 1)
strMessage1 = Replace(strMessage1, "    ", " ", 1, -1, 1)
strMessage1 = Replace(strMessage1, "   ", " ", 1, -1, 1)
strMessage1 = Replace(strMessage1, "     ", vbTab, 1, -1, 1)
strMessage1 = Replace(strMessage1, vbCrLf, "", 1, -1, 1)
strMessage1 = Replace(strMessage1, "
" & vbCrLf, vbCrLf, 1, -1, 1)
strMessage1 = Replace(strMessage1, "
", vbCrLf, 1, -1, 1)
strMessage1 = Replace(strMessage1, "", "[", 1, -1, 1)
strMessage1 = Replace(strMessage1, "", "]", 1, -1, 1)
End If

[santino83_11_04]

che strano replace:

strMessage1 = Replace(strMessage1, "", "[", 1, -1, 1)
strMessage1 = Replace(strMessage1, "", "]", 1, -1, 1)

[SGr33n]

Originariamente inviato da santino83_11_04
che strano replace:

strMessage1 = Replace(strMessage1, "", "[", 1, -1, 1)
strMessage1 = Replace(strMessage1, "", "]", 1, -1, 1)

Perchè strano ? quella che vedi è la sintassi completa di tutti i parametri. A cominciare dal primo valore numerico: inizio > conteggio (-1 sta a significare che tutti i valori trovati verranno sostituiti), 0 = comparazione binaria e 1 = comparazione testuale.

[Roby_72]

Si domandava solo che senso avesse sostituire il grassetto con una parentesi quadra.

Roby

[SGr33n]

Pare voglia inserire il testo in grasseto tra 2 parentesi quadre, non penso lo faccia per nulla però... gli servirà

[santino83_11_04]

Originariamente inviato da SGr33n
Pare voglia inserire il testo in grasseto tra 2 parentesi quadre, non penso lo faccia per nulla però... gli servirà

ero curioso ok?

[simones70]

si, non volendo usare javascript, dico al cliente che se vuole fare comparire del testo in grassetto, deve racchiuderlo tra parentesi quadre.

[Roby_72]

E se del testo che il cliente inserisce deve essere visualizzato tra parentesi quadre?

Roby