<% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" Set bag1 = Server.CreateObject("ADODB.Connection") bag1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mp3.mdb") %> <%Set esersayisi = bag1.execute("select count(id) from eserler")%> <% Set liste = Server.CreateObject("ADODB.RecordSet") SQL_liste = "Select * from eserler" liste.open SQL_liste,bag1,1,3 %> <% Do while not liste.eof dinleme = dinleme + liste("dinlemehit") liste.movenext loop %>

<% Set liste = Server.CreateObject("ADODB.RecordSet") SQL_liste = "Select * from kategori order by sira " liste.open SQL_liste,bag1,1,3 %> <%i = 1%> <% Do while not liste.eof %> <%i = i + 1%> <% liste.movenext loop %> <%ssanatci = i - 1%> Sanatçılar "><%=i%>-<%=liste("kategori")%> <% Set liste = Server.CreateObject("ADODB.RecordSet") SQL_liste = "Select top 15 * from eserler order by dinlemehit desc" liste.open SQL_liste,bag1,1,3 %> <%i = 1%> <% Do while not liste.eof %> <%i = i + 1%> <% liste.movenext loop %>   En Çok Dinlenenler - <%=liste("album")%> - <%=liste("dinlemehit")%>" href="mp3.asp?eser=<%=liste("id")%>"><%=i%>-<%=liste("isim")%>   Toplam Sanatçı:<%=ssanatci%> Toplam Eser:<%=esersayisi(0)%> Toplam Dinleme:<%=dinleme%>

<% if request.querystring("s") <> "" then sanatci = request.querystring("s") sanatci = Replace(sanatci,"ı","ı") sanatci = Replace(sanatci,"İ","İ") sanatci = Replace(sanatci,"ş","ş") sanatci = Replace(sanatci,"Ş","Ş") sanatci = Replace(sanatci,"ğ","ğ") sanatci = Replace(sanatci,"Ğ","Ğ") Set liste = Server.CreateObject("ADODB.RecordSet") SQL_liste = "Select * from eserler where sanatci like '%"&sanatci&"%' order by album " liste.open SQL_liste,bag1,1,3 %> <%i = 1%> <% Do while not liste.eof %> <%i = i + 1%> <% liste.movenext loop %> <%end if%> <% if request.querystring("s") = "" and request.querystring("eser") = "" then Set liste = Server.CreateObject("ADODB.RecordSet") SQL_liste = "Select top 20 * from eserler order by id desc" liste.open SQL_liste,bag1,1,3 %> <% Do while not liste.eof %> <% liste.movenext loop %> <%end if%> <%if request.querystring("eser") <> "" then%> <% eser = request.querystring("eser") session("eser") = eser session.timeout = 1 Set liste = Server.CreateObject("ADODB.RecordSet") SQL_liste = "Select * from eserler where id like '"&eser&"'" liste.open SQL_liste,bag1,1,3 liste("dinlemehit") = liste("dinlemehit") + 1 liste.update %> <%end if%> Sanatçı:<%=sanatci%> Eser Adı Albüm " href="mp3.asp?eser=<%=liste("id")%>"><%=i%>-<%=liste("isim")%> <%=liste("album")%> En Son Eklenenler: Eser Adı Albüm " href="mp3.asp?eser=<%=liste("id")%>"><%=liste("isim")%> <%=liste("album")%> Sanatçı:<%=liste("sanatci")%> Albüm:<%=liste("album")%> Eser:<%=liste("isim")%> Dinlenme Sayısı:<%=liste("dinlemehit")%> <% album = liste("album") album = Replace(album,"ı","ı") album = Replace(album,"İ","İ") album= Replace(album,"ş","ş") album= Replace(album,"Ş","Ş") album= Replace(album,"ğ","ğ") album= Replace(album,"Ğ","Ğ") sanatci = liste("sanatci") Set liste = Server.CreateObject("ADODB.RecordSet") SQL_liste = "Select * from eserler where album like '%"&album&"%'" liste.open SQL_liste,bag1,1,3 %> <%i = 1%> <% Do while not liste.eof %> <%i = i + 1%> <% liste.movenext loop %>   Bu Albümün Tamamı: Albüm:<%=sanatci%>-<%=album%> "><%=i%>-<%=liste("isim")%>