Estou tentando alimentar um array multidimensional e associativo a partir de um ResultSet, porém acusa o seguinte erro:
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/beta/comercialBannersRelatorioGerado.asp, line 53
Redim preserve arrayRs("porIP", "mesPorIP") = rsRelatorio1("mesPorIP")
--------------------------------------------^
E aqui o código onde tento fazer isso:
Dim arrayRs()
while not rsRelatorio1.EOF
Redim preserve arrayRs("porIP", "mesPorIP") = rsRelatorio1("mesPorIP")
Redim preserve arrayRs("porIP", "viewsPorIP") = rsRelatorio1("viewsPorIP")
Redim preserve arrayRs("porIP", "clickPorIP") = rsRelatorio1("clickPorIP")
rsRelatorio1.movenext
wend