Yazdırılabilir Sayfa

<% Set Sur = Server.CreateObject("ADODB.Connection" ) Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb" ) ' Yukarda mdb dosyamızın yerini belirledik ve ve baglantıyı kurduk.. Set RS = Server.CreateObject("ADODB.Recordset" ) sor = "Select * from tablo" 'Tablomuzu seciyoruz.. RS.Open sor,Sur,1,3 'Burada ise rs baglantımızı açıyoruz.. %> Açıklamalar : sor = "Select * from tablo" ile tablo seçeneğimizi seçiyoruz.. Eğer biz bunu sor = "Select * from tablo order by id desc" deseydik tablomuzdaki verileri id numaralarına gore sıralıycaktı.. En yeni eklenen veri en üstte yerini alacaktı.. Mesala siz bir Download Arşivi olusturdunuz.. Dosyalari aldıkları hite gore sıralıcaksınız.. o zman ise yine yukardaki gibi sql satırımız soyle olacak : sor = "Select * from tablo order by hit desc" boyle ise veriler aldiklari hite gore yukardan asagiya dogru dizilirler.. NOT : * Veritabanimizin yolumu gosterirken DBQ=" & Server.MapPath("database.mdb") olarak gosterdigimizde vt ile baglantisini kurdugumuz asp dosyasi ile ayni klasordedir.. DBQ=" & Server.MapPath("../database.mdb") db yolu satirimiz boyle olsaydi. Yani basina " ../ " gelseydi.. Database klasorumuz bir ust klasordedir demektir.. * Burada verilerimizi <%=RS("alan1" ) %> sekline ekrana gosteriyoruz..