| Navigation |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Hite Göre Kayıtları Dökmek |
|
| |
makale.mdb veritabanı makale tablosundan hite göre kayıtları dökmek için örnek
| Kod Alanı: |
<%
Set Sur = Server.createObject("ADODB.Connection" )
Sur.Open "Driver={Microsoft Access Driver (*.mdb )}; dbq=" & server.mappath("makale.mdb" )
Set efkan = Server.createObject("ADODB.Recordset" )
sor = "select * from makale order by hit desc"
efkan.Open sor,Sur,1,3
if efkan.eof or efkan.bof then
Response.Write "<B>KAYIT BULUNAMADI..</B>"
response.end
end if
for i = 1 to 10
if efkan.eof then exit for
%>
<%=efkan("baslik" )%>"> <BR>
<%
efkan.movenext
Next
efkan.close
set efkan = Nothing
%> |
|
|
|
|
|
|
|
|
|
|
| |
Bugün 77 ziyaretçi (92 klik) buradaydı |
|
|
|
|
|
|
|
