Array
(
)

Tratar valor nulo ASP

Haudson Silva
   - 22 dez 2010

Caros, na minha página ASP, está aparecendo a seguinte mensagem de erro e não puxa todos as referências dos produtos:   Erro de tempo de execução do Microsoft VBScript erro '800a000d'

Tipos incompatíveis: 'ccur'

/dev/sag/relatorio_sugcompra_resultado_gestor.asp, line 302

Abaixo está a linha do erro:

Set query5 = Server.CreateObject("ADODB.Recordset")

query5.ActiveConnection = conn_ultrasyst

query5.Source = "select loc_codi, est_quan from estoque where pro_codi = '"& pro_codi &"' order by loc_codi"

query5.CursorType = 0

query5.CursorLocation = 2

query5.LockType = 1

query5.Open()

do while (not query5.EOF)

loja = ccur(query5.Fields.Item("loc_codi").Value)

if loja = "1" then

qtdlj01 = query5.Fields.Item("est_quan").Value

else if loja = "2" then

qtdlj02 = query5.Fields.Item("est_quan").Value

else if loja = "3" then

qtdlj03 = query5.Fields.Item("est_quan").Value

else if loja = "4" then

qtdlj04 = query5.Fields.Item("est_quan").Value

else if loja = "5" then

qtdlj05 = query5.Fields.Item("est_quan").Value

end if

end if

end if

end if

end if

query5.MoveNext