como evitar esse erro?

[natalia 0]

Oi pessoal,O que posso fazer para evitar esse erro chato:Erro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveis: '[object]' ArrayMes = Split("Zero|Janeiro|Fevereiro|Março|Abril|Maio|Junho|Julho|Agosto|Setembro|Outubro|Novembro|Dezembro","|") Response.Write "<option value=''> Mes </option>" rs1.open " SELECT DISTINCT Month(Data_Ped) AS ExMes, Year(Data_Ped) AS ExAno FROM Pedido " While not rs1.eof Response.Write "<option value='"& "01/"& rs1("ExMes") &"/"& rs1("ExAno") &"'>"&_ ArrayMes(rs1("ExMes")) &" - " & rs1("ExAno") &"</option>" rs1.movenext Wend rs1.closeO erro acontece nessa linha:Response.Write "<option value='"& "01/"& rs1("ExMes") &"/"& rs1("ExAno") &"'>"&_ ArrayMes(rs1("ExMes")) &" - " & rs1("ExAno") &"</option>"

[Salgado 4]

Troque por essa e verifique se funciona:

Response.Write "<option value='01/"& rs1("ExMes") &"/"& rs1("ExAno") &"'>"& ArrayMes(rs1("ExMes")) &" - "& rs1("ExAno") &"</option>"

[natalia 0]

Eu troquei e continua dando o mesmo erro.

[natalia 0]

Deu o mesmo erro, só não mencionou isso aqui: '[object]' como está na mensagem acima