<% Set data=Server.CreateObject("ADODB.Connection") data.Open "PROVIDER=MSDASQL;" & _ "DRIVER={Microsoft Access Driver (*.mdb)}; " & _ "DBQ=" & server.mappath("vt/ekart.mdb") repsonse.write(server.mappath("vt/ekart.mdb") %> KABATASLILAR.ORG - EKART SİSTEMİ
<% Set RS = data.Execute("SELECT * FROM kategori") %> <% Do while not RS.eof %> <% Set kac = Server.Createobject("ADODB.Recordset") kac.open "SELECT * FROM ekartlar where kategori='"& RS("kategori") &"' " ,data,1,3 say = kac.RecordCount %> <% RS.MoveNext Loop %> <% kac.Close Set kac = Nothing RS.close Set RS= Nothing %> <% Set RS = Server.Createobject("ADODB.Recordset") RS.open "SELECT * FROM ekartlar",data,1,3 toplam_ekart = RS.RecordCount %>
>KATEGORİLER
»"><%=RS("kategori")%> (<%=say%>)
»Toplam Ekart Sayısı: <%=toplam_ekart%>

 

En Çok Gönderilenler Yeni Eklenenler
<% i=1 set rs = data.execute("select * from ekartlar where kucuk_resim order by hit desc") do while i<6 and not rs.eof %> <% rs.movenext i=i+1 loop rs.close %>
">">
<%=rs("kart_adi")%>
(<%=rs("hit")%> kez)
<% i=1 set rs = data.execute("select * from ekartlar where kucuk_resim order by kart_id desc") do while i<6 and not rs.eof %>
<% rs.movenext i=i+1 loop rs.close %>
" >">
<%=rs("kart_adi")%>
<%=rs("tarih")%>
<% data.Close set data=nothing %>