Arkdaşlar Bi Yardım Ederseniz sSevinirim ...


şimdi butona bir ıd tanımlamam gerkiyor ...
tıklayınca bu ıd açılan pencerde okutulsun ve veriyi asp yardımıyla alsın nasıl bir değişiklk yapılmalı yardım edermisin ....

bu index.swf deki buton kodu :

on (release) {
   loadMovieNum("pencere.swf",1);
}

buda açılacak olan sayfanın ilk fragmedeki kod :

//------Asp dosyasını alıyoruz---------//
var veri:LoadVars = new LoadVars();
veri.load("veriler.asp",0)

//-----Ön Yükleyiciyi Ayarlıyoruz-----//
Preloader = function () {
   boyut = _root.getBytesTotal();
   yuklenen = _root.getBytesLoaded();
   if (yuklenen == boyut) {
      clearInterval (PreloaderTimer);
      gotoAndPlay(2);
      yuzde = Math.floor ((yuklenen / boyut) * 100) + "%";
      yuzde_txt.text = yuzde;
   } else {
      yuzde = Math.floor ((yuklenen / boyut) * 100) + "%";
      yuzde_txt.text = yuzde;
   }
};
PreloaderTimer = setInterval (Preloader, 100);
//------------------------------------//
stop ();

buda açılan penceredeki veiyi yazdırdığım kod :

stop();
tablo_txt.text = /*bu kod*/unescape/* hexadecimal karakterleri ASCII formatına çeviriyor.*/(veri.baslik);

kaynak_txt.text = unescape(veri.kaynak);

buda asp de ki kod :

<center><%
dim DBString, Conn, RS, RS1, RS2, RS3
Set  Kon = Server.CreateObject("ADODB.Connection" ) 
Kon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb" ))
Set RS   = Server.CreateObject("ADODB.RecordSet") ' Ana QRY 'kon.Open DBString
%>

<%id=request.QueryString("id")%>
<%sql="select * from veriler where ID = " &id
Rs.Open sql, kon, 1, 3
If RS.BOF And RS.EOF Then
else %>

&baslik=<%response.write Rs("BASLIK" )%>
&soz=<%response.write Rs("SOZ" )%>
&link=<%response.write rs("LINK")%>
&kaynak=<%response.write Rs("KAYNAK")%>

<% end if
Rs.close
%>