Variavel Dentro De Filter()

[Alam]

Olá pessoal, por favor, peço que me ajudem!!! é uma bobagem danada mas que eu estou apanhando pra caramba.

Fiz uma função pra retornar o mês de uma string de data específica pois não encontrei em lugar nenhum esse padrão de escrita.

Function retornaMes(valor)
    Meses =  array("jan,01","feb,02","mar,03","apr,04","may,05","june,06","july,07","aug,08","sept,09","oct,10","nov,11","dec,12")
    Mes = Trim(Mid(valor,8,4))
    AchaMes = filter(Meses,mes)
    mes = right(AchaMes(0),2)
    retornaMes = Mes
End function

Response.Write(retornaMes("Mon, 24 Sep 2007 17:58:39 -0300"))

Com esse código estou tendo como resposta esse erro...

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 0]'

/data.asp, line 6 --> mes = right(AchaMes(0),2)

quando eu substituo a variavel "mes" por uma string entre aspas duplas ex."sep" na linha (AchaMes = filter(Meses,mes)), deixando como (AchaMes = filter(Meses,"sep'))ele funciona belezinha e me retorna o que eu quero. É como se ele não tivesse encontrando no array o conteúdo da variável "mes" por algum motivo... mas até agora não descobri.

Por favor Me Ajuuuuuuuuuuuudem!!

Agradeço muito

[fercosmig]

fiz uns testes aqui, e uns debugs rsss

o filter não esta retornando nenhum valor porque ele procura o valor exato dentro do array

neste caso está procurando Sep e no seu array está sept,09

e é case sensitive.

da uma olhada! ae

<script language="VBScript">
<!--
'Function retornaMes(valor)
    valor = "Mon, 24 sep 2007 17:58:39 -0300"
    Meses = array("jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec")
    For i=0 to Ubound(Meses)
        document.Write(Meses(i) & "<br />") 
    Next
    Mes = Trim(Mid(valor,9,3))
    document.write("Var Mes = " & Mes & "<br />")
    AchaMes = filter(Meses,Mes,true)
    document.write("Var AchaMes = " & AchaMes(0) & "<br />")
    'vmes = right(AchaMes(0),2)
    'retornaMes = vmes(1)
'End function
'document.Write(retornaMes("Mon, 24 Sep 2007 17:58:39 -0300"))
//-->
</script>

[+] http://www.w3schools.com/vbscript/func_filter.asp

[Alam]

Cara! valeu mesmo pela dica! problema resolvido. Não sabia que Filter é case sensitive. Valeu!!!!

Abração!!

Valeus!

Alam