digomiranda

Cara, era isso mesmo! Muito obrigado! Eu tinha percebido que após alterar a quantidade no Array, ele dava Stack Overflow... Nem tinha me atentado a isso, que seria estouro do Array Alterei de: +60 <%for i=1 to 2%> +61 <% +62 Dim porta1(99999) +63 Dim porta2(99999) Para: +60 <% +61 Dim porta1(99999) +62 Dim porta2(99999) +63 for i=1 to 2 Funcionou perfeitamente!

Boa tarde, não sou especialista em ASP, mas estou tentando dar manutenção em um sistema e estou tomando um erro aqui e não estou identificando o problema, com a declaração do array Microsoft VBScript runtime error '800a000d' Type mismatch /infratec/monitoring_sx/SX_Captura_Detalhe_OK.asp, line 63 A linha 63 do meu código, é a declaração do array +60 <%for i=1 to 2%> +61 <% +62 Dim porta1(99999) +63 Dim porta2(99999) +64 sql= "select nu_prt from SX.sx_porta" +65 sql= sql & " where st_prt not like 'connected%' and st_prt not like 'STOPPED%'" +66 sql= sql & " and Id_maq=" & i +67 sql= sql & " and nu_prt<>8673 and nu_prt<>8703 and nu_prt<>8710" +68 sql= sql & " order by nu_prt" +69 +70 set DadosP1=SwitchOrbS1.Execute(SQL) +71 do while not DadosP1.eof +72 sql= "select SW_IndSmbl from sw_paramRede where sw_valor=" & DadosP1("nu_prt") +73 +74 set DadosDescP1=intranet.Execute(SQL) +75 If not DadosDescP1.eof then +76 If i=1 then +77 porta1(DadosDescP1("SW_IndSmbl"))="sim" +78 else +79 porta2(DadosDescP1("SW_IndSmbl"))="sim" +80 end if +81 end if +82 DadosP1.movenext +83 loop +84 +85 sql= "select nu_prt from SX.sx_porta" +86 sql= sql & " where (Id_maq=1 or Id_maq=2)" +87 sql= sql & " and (nu_prt=8673 or nu_prt=8703 or nu_prt=8710 )" +88 sql= sql & " order by nu_prt" +89 set DadosP2=SwitchOrbS1.Execute(SQL) +90 +91 do while not DadosP2.eof +92 sql= "select SW_IndSmbl from sw_paramRede where sw_valor=" & DadosP2("nu_prt") +93 set DadosDescP2=intranet.Execute(SQL) +94 If not DadosDescP2.eof then +95 If i=1 then +96 porta1(DadosDescP2("SW_IndSmbl"))="sim" +97 else +98 porta2(DadosDescP2("SW_IndSmbl"))="sim" +99 end if +100 end if +101 DadosP2.movenext +102 loop +103 %> Alguém pode me ajudar?