<% Response.CharSet = "windows-1254" %> <% 'Veritabanı bağlantımızı oluşturuyoruz Set conn = Server.CreateObject("ADODB.Connection") dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("iller.mdb") conn.open dsn 'Formdan gelen veriyi alıyoruz aranan = Request.Form("queryString") 'Recordset açılıyor Set RS=Server.CreateObject("ADODB.Recordset") 'Gelen veriyi veritabanında sorgulayacak sql cümlesini yazıyoruz Sql = "Select * From ilceler Where ilce Like '" & aranan & "%' Order By ilce" RS.Open Sql, conn, 1, 3 If RS.RecordCount > 0 Then 'Veritabanından dönen kayıt sayısı sıfırdan büyükse i = 1 'Toplam 10 kayıt listeliyoruz Do While Not RS.EOF And i < 11 Response.Write ("

"&RS("ilce")&"

") i = i + 1 RS.MoveNext Loop End If RS.Close conn.Close %>