Olá Pessoal Alguem pode me ajudar, esta me dando um erro e não consigo identificar onde esta.

Segue o erro, e  o código a linha esta identificada.

 

erro:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/desenvolvimento/Restrito/Inventario/PesqArea.asp, line 41

código:

while not rs.eof
    rsControl.close
    rsControl.open "Select Distinct Referencia from TBL_X where Inventario='"&rs.fields("Inventario")&"' and Referencia is not null order By Referencia",objConn

     dim Ref
     Ref=""    
     while not rsContol.EOF  ((((( ERRRO NESTA LINHA )))))
       Ref=Ref & rsControl("Referencia")
      rsControl.movenext
     wend
     if Ref="" then
      response.write("<TR><font color = black><TD><center>"& rs.fields("Inventario")&"</center></TD><TD><center>"& rs.fields("NOMERESP")&"</center></TD><TD><center>" &rs.fields("Area")&"</center></TD><TD><center>"&rs.fields("Ramal")&"</center></TD><TD><A href=Pesquisa.asp?Inventario="& rs.fields("Inventario") &" target=Principal><center><img src=../../Imagens/tick.gif width=32 height=20 border=0></center></a></TD></font></TR>") 
     else
     if Ref="G1A" then
      response.write("<TR><font color = blue><TD><center>"& rs.fields("Inventario")&"</center></TD><TD><center>"& rs.fields("NOMERESP")&"</center></TD><TD><center>" &rs.fields("Area")&"</center></TD><TD><center>"&rs.fields("Ramal")&"</center></TD><TD><A href=Pesquisa.asp?Inventario="& rs.fields("Inventario") &" target=Principal><center><img src=../../Imagens/tick.gif width=32 height=20 border=0></center></a></TD></font></TR>")
     else
      if Ref="TIVOLI" then
       response.write("<TR><font color = red><TD><center>"& rs.fields("Inventario")&"</center></TD><TD><center>"& rs.fields("NOMERESP")&"</center></TD><TD><center>" &rs.fields("Area")&"</center></TD><TD><center>"&rs.fields("Ramal")&"</center></TD><TD><A href=Pesquisa.asp?Inventario="& rs.fields("Inventario") &" target=Principal><center><img src=../../Imagens/tick.gif width=32 height=20 border=0></center></a></TD></font></TR>")
      else
       response.write("<TR><font color = green><TD><center>"& rs.fields("Inventario")&"</center></TD><TD><center>"& rs.fields("NOMERESP")&"</center></TD><TD><center>" &rs.fields("Area")&"</center></TD><TD><center>"&rs.fields("Ramal")&"</center></TD><TD><A href=Pesquisa.asp?Inventario="& rs.fields("Inventario") &" target=Principal><center><img src=../../Imagens/tick.gif width=32 height=20 border=0></center></a></TD></font></TR>")
      end if
     end if
    end if
    i=i+1  
 rs.movenext
 wend

 

 

Obrigado

 

Luiz

 

Pelas contas,

 

Este campo não existe, ou não é este nome...

 

rs.fields("Area")

 

verifique e qualquer coisa poste novamente...