Problems interact with Flash and ASP

Question

Hello people, I am beginning to learn how flash to interact
with asp, but im having problems in the execution of the file.
access the link below to see what happens:
http://www.trusttarget.com.br/flash/flash_asp.swf
My AS code:
var endereco:URLRequest=new URLRequest("
http://www.trusttarget.com.br/flash/produtos.asp");
endereco.method=URLRequestMethod.GET;
var carregar:URLLoader = new URLLoader();
botao.addEventListener(MouseEvent.CLICK,chama);
function chama(evento:MouseEvent) :void {
var variavel:URLVariables = new URLVariables("nome="+
busca.text);
endereco.data= variavel;
carregar.load(endereco);
carregar.addEventListener(Event.COMPLETE,carregou);
var texto:String= "";
function carregou(evento:Event) :void {
var variaveis:URLVariables= new URLVariables(carregar.data);
var quantos:int= Number(variaveis.quantidade);
texto= "";
if (quantos == 0) {
texto= "Nenhum Produto encontrado";
} else {
for (var i:int=1; i<= quantos; i++) {
texto+= variaveis["produto"+i] + "\n";
resultado.text= texto;
When I execute the file ASP that makes the search in DB, he
perfectly works, exhibiting the existent information in DB.
But when I try for the Flash, not of the right.
Please, help me
Thanks everbody

Answer 1

my ASP code
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
banco = Server.MapPath("livro.mdb")
Set conexao = Server.CreateObject( "adodb.Connection" )
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
& banco & ";"
Dim registros
Set registros = Server.CreateObject("ADODB.Recordset")
registros.ActiveConnection = conexao
registros.Source = "SELECT * FROM produtos WHERE produto LIKE
'" & Request.QueryString("nome") & "%'"
registros.CursorType = 0
registros.CursorLocation = 2
registros.LockType = 1
registros.Open()
x=0
Do while not registros.eof
x=x+1
response.write "produto" & x & "=" &
(registros.Fields.Item("produto").Value)
response.write " - Preço= " &
(FormatCurrency(registros.Fields.Item("preco").Value)) & " "
registros.MoveNext()
Loop
response.write "quantidade=" & x
registros.Close()
Set registros = Nothing
%>
thanks