Verifica campo inesistente.

[Roberto_AA]

Salve a tutti, ho un piccolo problema che non sono riuscito a risolvere dopo vari tentativi fatti.
Eseguendo una ricerca in una tabella con il seguente codice:

MySQL = "SELECT Campo FROM Tabella WHERE Campo2='" & Server.HTMLEncode(MyRs("Campo3")) & "'"
Set MyRs2 = DBRecordSet(MyCon, MySQL)

risulta tutto funzionare alla perfezione.

Il problema si verifica quando “Campo3” è stato precedentemente cancellato da un'altra pagina, l’errore restituito e il seguente:

Errore di run-time di Microsoft VBScript error '800a000d' - Tipo non corrispondente: 'Server.HTMLEncode'

Ho provato a fare:

If Server.HTMLEncode(MyRs("Campo3")) <> "" then
MySQL = "SELECT Campo FROM Tabella WHERE Campo2='" & Server.HTMLEncode(MyRs("Campo3")) & "'"
Set MyRs2 = DBRecordSet(MyCon, MySQL)
End if

Ma mi restituisce sempre lo stesso errore.

Come potrei verificare Server.HTMLEncode(MyRs("Campo3")) ?

Grazie.

[Domenix]

Usa delle variabili di appoggio.

campo3 = MyRs("Campo3")
if len(campo3) > 0 then campo3 = Server.HTMLEncode(campo3)
MySQL = "SELECT Campo FROM Tabella WHERE Campo2='" & campo3 & "'"
Set MyRs2 = DBRecordSet(MyCon, MySQL)

A te va in errore perchè server.HTMLEncode non può essere applicato su di un valore con lunghezza zero.

[Roberto_AA]

Grazie Domenix ho appena provato ma non funziona, mi restituisce un errore alla riga corrispondente a:

campo3 = MyRs("Campo3")

ADODB.Field error '800a0bcd'

Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.

[Domenix]

if not MyRs.eof then
campo3 = MyRs("Campo3")
else
campo3 = ""
end if
if len(campo3) > 0 then campo3 = Server.HTMLEncode(campo3)
MySQL = "SELECT Campo FROM Tabella WHERE Campo2='" & campo3 & "'"
Set MyRs2 = DBRecordSet(MyCon, MySQL)

[Roberto_AA]

Grazie Domenix, funziona tutto alla perfezione.