<%
Set hakan = Server.CreateObject("ADODB.Recordset")
Set hakan2 = Server.CreateObject("ADODB.Recordset")
hakan.open "select * from kategori_tablo1",Baglanti
do while not hakan.eof
hakan2.open "select * from 1_tablo where kat='"& hakan("S") &"' limit 4",baglanti
response.write hakan("adi") & "</br>" 'kategori adı
do while not hakan2.eof
response.write hakan2("adi")
hakan2.movenext
loop
hakan2.close
hakan.movenext
loop
hakan.close
set hakan=nothing
set hakan2=nothing
%>
|