Atendimente on line

[brasilis 0]

Atendimento on line erro alguem pode me ajuda?

Microsoft VBScript runtime error '800a000d' Type mismatch/atendente_monitor.asp, line 140

135 Application.Lock()136137  Dim atendente_online138  atendente_online = False139140  SOS_atendentes = Application("SOS_atendentes")  n = UBound(SOS_atendentes)  For i = 0 To n	If Int(SOS_atendentes(i)) = Int(Request("atendente")) Then atendente_online = True  Next    If atendente_online = False Then	Response.write "<script language='javascript'>parent.document.location.href='monitor.asp'</script>"	Set atendente_online = Nothing	Stop  End If  Set atendente_online = Nothing  SOS_usuario = Application("SOS_usuario")  SOS_atendente = Application("SOS_atendente")  SOS_ip = Application("SOS_ip")  SOS_entrada = Application("SOS_entrada")  SOS_ativo = Application("SOS_ativo")  SOS_email = Application("SOS_email")  SOS_assunto = Application("SOS_assunto")  SOS_id = Application("SOS_id")  SOS_controle = Application("SOS_controle")  n = UBound(SOS_usuario)

[jrcardozo 4]

esse atendimento é do superasp? se a resposta é positiva, já tentou entrar em contato com o suporte deles??