Verileri Gelişmiş Listeleme

[BaRaN]

Verileri Gelişmiş Listeleme












Kod:




****** http-equiv="Content-Language" content="tr">
****** http-equiv="Content-Type" content="text/html; charset=windows-1254">






<%
'sıralama ölçütü alınıyor
olcut= request.querystring ("olcut")

'veri tabanına bağlantı için gerekli değişkenler tanımlanıyor
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ogrenciler.mdb")
Set kayitseti = Server.CreateObject("ADODB.Recordset")

'sql cumlesi gelen ölçüte göre oluşturuluyor... oluşturlan sqlcümlesi yardımıyla tabloda bulunan bütün verileri kayitsetine çekeceğiz
select case olcut
case "ad"
sqlcumlesi = "Select * from ozluk order by ad asc"
case "soyad"
sqlcumlesi = "Select * from ozluk order by soyad asc"
case "adres"
sqlcumlesi = "Select * from ozluk order by adres asc"
case "sehir"
sqlcumlesi = "Select * from ozluk order by sehir asc"
case else