iki kodum var birleştirmeye çalışıyorum.

ARKADAŞLAR ŞİMDİ APLİCATİON LU KODUM VARDI BUNU BEN NORMALde ELLE İSİMLER YAZIYORDUM ŞİMDİ BEN buna mdb olayı eklemek sitiyorum faka tolmadı bi türlü yapamadım

MDB KODUM

[ Tüm kodu seç ] [ Yeni Pencerede Göster ]

<% Set Tech = Server.CreateObject("ADODB.Connection") Tech.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("efestech.mdb") id= Request("id") Set Rs = Server.CreateObject("ADODB.Recordset") StrSql = "Select * from efestech order by id desc" Rs.Open StrSql, Tech, 1, 3 %> <% do while not rs.eof response.write rs("efestech") & "," rs.movenext loop %>

BU YUKARDA Kİ KODLA MDB DE BULUNAN İSİMLERİ SAYFAYA yazdırabiliyorum fakat altta bulunan elle giriş yaptığım kısma bu isimleri yazdırmak istiyorum nasıl olcak :(

BUDA ELLE GİRİŞ YAPTIĞIM APLİCATİON KODUM

[ Tüm kodu seç ] [ Yeni Pencerede Göster ]

<% if Application("arrays") = "" then APPLICATION.LOCK Application("arrays") = "ahmet,ayşe,fatma,hakan,"<font color="red">=>ahmet ayşe fatma hakan elle yazıyodum APPLICATION.UNLOCK end if dim rastgele dim gelen dim temizle Dim rasgele_sayi rastgele= Split(Application("arrays"),",") Randomize rasgele_sayi = int((Rnd * ubound(rastgele))+1) gelen = rastgele(rasgele_sayi-1) Session("uye_adi")=gelen response.write gelen APPLICATION.LOCK temizle = Replace(Application("arrays"),gelen &",","", 1, -1, 0) Application("arrays") = temizle APPLICATION.UNLOCK %>