Tratar valor nulo ASP

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