xml asp ve flashı birbirine baglama?

yazdıgımdan ben bile anlamadım xD ama anlasılır herhal combobox ilk önce görünmüyo r combobox icinde katagoriler var bunlar basıldıgında altta resimler acılcak ama ilk önce bunları yapabilmek icin kullanıcı girisi yapması gerek bunu yaptıktan sonra combobox görünmeye baslıcak ve katogoriyi sectiginde xml den veriyi alcak görüntülenecek resimler ise asp den alınacak yani sırayla
flashtan komut alan xml aspden resim alacak daha sonra asp xml veri aktarcak xml flasaha veri verecek bu kadar basit diyemiyorum cünkü basit diil simdiden tesekürler

Al bakalım hızlıca buranın editörün de yazdım yazım hatası olabilir kontrol edersin , kodları iyice incele ve anlamaya çalış takıldığın yerleri sorabilirsin

FLASH KISMI

var LvList:LoadVars = new LoadVars();
LvList.onLoad = function(success:Boolean)
{
if(success)
{
if(LvList.sonuc = "1")
{
trace("Kullanıcı bilgileri doğru")
fncComboYukle();
}
else
{
trace("Kullanıcı bilgileri geçersiz , lütfen tekrar deneyiniz")
}
}

var LvSend:LoadVars = new LoadVars ();
LvSend.KullaniciAd = txtKullaniciAd.text; //sahnende ki kullaniciAdı girilen text kutusunun ismini yazacaksın
LvSend.Sifre = txtSifre.text; //sahnende ki şifre girilen text kutusunun ismini yazacaksın
LvSend.sendAndLoad("KullaniciGiris.asp",LvList,"POST")



function fncComboYukle()
{
var xml:XML = new XML();
xml.ignoreWhite = true;
xml.onLoad = function(success:Boolean)
{
for(var i:Number = 0; i<xml.firstChild.childNodes.length; i++)
{
comboBox.addItem({data:i,label:xml.firstChild.childNodes.childNodes[0]})
}
}
xml.load("Urunler.asp?Kategori=Saat")
}


KULLANICI GİRİŞİ ASP KISMI

'Hangi veritabanı sistemini kullandığını bilmediğim için bağlantı kısmını sana bırakıyorum...

<%

KullaniciAd = Trim(Request.Form("KullaniciAd"))
Sifre = Trim(Request.Form("Sifre"))

Set Sorgu = BaglantiObjen.Execute("Select Count(*) From tabloAdi Where KullaniciAd = '"&KullaniciAd&"' And Sifre = '"&Sifre&"' ")

If Sorgu(0) = "1" Then
Response.Write("&sonuc=1")
Else
Response.write("&sonuc=0")
End If



%>

ÜRÜN ASP KISMI

<%

Response.Write("<?xml version="1.0" encoding="windows-1254"?>")
Response.write("<urunler")

'Hangi veritabanı sistemini kullandığını bilmediğim için bağlantı kısmını sana bırakıyorum...

Kategori = Trim(Request.Qerystring("Kategori")

If Kategori <> "" Then

Set Kayitlar = BaglantiObjen.Execute("Select UrunAd From tabloAdi Where Kategori = '"&Kategori&"' ")

While Not Kayitlar.EOF

Response.Write("<urun")
Response.Write("<urunad"&Kayitlar("UrunAd")&"</urunad>")
Response.Write("</urun")


Kayitlar.MoveNext:Wend

End If

Response.write("</urunler")

%>

cok tesekürler....