<%
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") &...