Flash + ASP + MDB

[mows 0]

Bom dia pessoal, estou tentando mostrar alguns dados de um banco mdb dentro de um arquivo flash.

Dentro do arquivo flash fiz um retângulo, defini ele como movieclip e coloquei a action abaixo.

Porém não aparece nenhum dado no swf.

Alguem poderia me indicar qual meu erro?!

Obrigado.

[]s

 

Arquivo ASP (relarquivos.asp):

CODE

'Declarando variáveis

Dim adoCon, strCon

Dim caminho_banco

 

'Definindo caminho do banco

caminho_banco = Server.MapPath("banco.mdb")

 

'Definindo string de conexão

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco

 

'Criando objeto

Set adoCon = Server.CreateObject("ADODB.Connection")

 

'Abrindo conexão

adoCon.Open strCon

 

StrSql = "select distinct (case when mes = '1' then 'Janeiro' " & _

" when mes = '2' then 'Fevereiro' " & _

" when mes = '3' then 'Março' " & _

" when mes = '4' then 'Abril' " & _

" when mes = '5' then 'Maio' " & _

" when mes = '6' then 'Junho' " & _

" when mes = '7' then 'Julho' " & _

" when mes = '8' then 'Agosto' " & _

" when mes = '9' then 'Setembro' " & _

" when mes = '10' then 'Outubro' " & _

" when mes = '11' then 'Novembro' " & _

" when mes = '12' then 'Dezembro' " & _

" end) as nomemes, mes, link " & _

" from arquivos " & _

" WHERE status = 1 " & _

" ORDER BY mes "

Set Rs = adoCon.Execute(StrSql)

 

'Fechando conexão

'''adoCon.Close

'''Set adoCon = Nothing

%>

 

 

<%

if not Rs.EOF then

while not Rs.EOF

response.write(" "&Rs("nomemes")&" <BR>")

Response.Write(" <a href="&Rs("link")&">"&Rs("link")&"</a><BR> ")

rs.Movenext

wend

end if

%>

 

Arquivo FLASH:

CODE

onClipEvent (load) {

loadVariables("relarquivos.asp","");

}

[mows 0]

Fiz algumas modificações na estrutura, porém ainda não me retorna os resultados, a variável vem vazia.

Será que alguém tem alguma idéia?!

 

Obrigado.

 

 

ActionScript dentro de um quadrado convertido para MovieClip:

CODE

onClipEvent (load) {

myVariables = new LoadVars();

myVariables.load("arquivos.asp");

myVariables.onLoad = function(success) {

if (success) {

trace("My name is "+myVariables.mes+"");

} else {

trace("there was a problem loading the variables");

}

};

 

}

 

 

Arquivo ASP

CODE

if not Rs.EOF then

strNome = Rs("nomemes")

while not Rs.EOF

 

 

Response.Write(" &mes="&Rs("nomemes")&" ")

Response.Write("<BR>")

 

rs.Movenext

wend

end if

%>

 

 

obs: a página asp rodada no servidor traz os resultados normalmente, apenas no flash que não.