Server.HTMLEncode() e stringhe vuote

[ferra.s]

ciao a tutti.
devo estrarre dei dati da un db access per comporre una tabella, e utilizzo Server.HTMLEncode per codificare correttamente i caratteri accentati ecc...
In questo db ci sono a volte dei campi vuoti, e su quei campi Server.HTMLEncode mi da errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'Server.HTMLEncode'
/query.asp, line 84

E' possibile aggirare questo problema?

Ho anche provato a mettere un if che intercetti i campi vuoti ma non va...

Do while NOT ris.EOF
    response.write "<tr>" & VbCrLf
        if ris("inglese")="" then
            response.write "<td width=220px></td>"
        else
            response.write "<td width=220px>" & Server.HTMLEncode(ris("inglese")) & "</td>" & VbCrLf
        end if
        if ris("italiano")="" then
            response.write "<td width=220px></td>"
        else
            response.write "<td width=220px>" & Server.HTMLEncode(ris("italiano")) & "</td>" & VbCrLf
        end if
        if ris("comune")="" then
            response.write "<td width=220px></td>"
        else
            response.write "<td width=220px>" & Server.HTMLEncode(ris("comune")) & "</td>" & VbCrLf
        end if
    response.write "</tr>" & VbCrLf
ris.Movenext
Loop

[lukeonweb]

If rs("tuocampo") = "" Then
Response.Write "Nessun dato"
Else
Response.Write Server.HTMLEncode(rs("tuocampo"))
End If

[ferra.s]

ehm...cosa cambia dal codice che ho scritto io???
:master:

[Santino83_02]

if len(trim(Rs("tuocampo") & " "))>0 then
        'campo pieno
else
       'campo vuoto
end if

EDIT:

oppure:

if trim(rs("tuocampo") & "[]")<>"[]" then
        'campo pieno
else
       'campo vuoto
end if

RIEDIT:

oppure:

if not isNull(rs("tuocampo")) and rs("tuocampo")<>"" then
        'campo pieno
else
       'campo vuoto
end if

[lukeonweb]

pardon, non l'ho letto prima

1. che tipo di dato è il campo?

2. perchè non hai il filtro all'atto dell'inserimento nel database cosi ti levi il pensiero di farlo in lettura?

[ferra.s]

@luke:
il campo è semplicemente di testo....
posso filtrare direttamente in lettura dal db?
uso questo codice:

query="SELECT * FROM COLONNETTE WHERE COLONNETTE.CD='" & cod & "'"
set ris = objConn.Execute(query)

[lukeonweb]

si puoi, ma se ti da sti problemi... è per questo che ti consiglio di sostituire i caratteri direttamente in scrittuta con dei replace multipli

Dim campo, da_inserire
campo = Request.Form("campo")
da_inserire = Replace(Replace(campo, "à", "á"), "è", "é")

e cosi via

nel db inserisci la variabile da_inserire

mi spiego?

[ferra.s]

Si ho capito ma sembrava macchinoso...

Ho usato isNull che mi ha suggerito Santino, e funziona, anche se non capisco perché con

if ris("italiano")="" then

non funzionava ("" non è stringa nulla????)
mentre con

if isNull(ris("italiano")) then

funziona...
Grazie a tutti comunque, ciao

[lukeonweb]

beh... giusto

[PRInternationa|]

Invece di rompere le scatole al server con tutte quelle richieste, creati una funzione con il comando replace. Caricherai di meno il server e non avrai questo tipo di problemi.