<%
'Data bağlantınızı kurduğunuzu var sayıyorum.
'Formdan gelen veriyi alıyoruz.
'Dikkat ederseniz Request.Form şeklinde yazmıyoruz bunun nedeni eğer arama sonuç kısmında sayfalama yapacaksanız Request kullanılması gerekmektedir.Eğer biz burada Request.Form kullanmış olsaydık 2. sayfayı tıkladığımızda bütün kayıtlar çıkacaktı.Çünkü Reuest.form olarak belirlemiştik.Normalde 2. sayfa tıkladığımızda Request.QueryStringle gitmektedir ama biz Request.Form yaptığımız için bütün bilgiler çıkmaktadır.Bu nedenden dolayı burada sadece Request kullanmalıyız.
'aranan form alanının ismi
aranan=Request("aranan" )
Set ObjRs = Server.CreateObject("ADODB.Recordset" )
Strsql = "Select * from musteriler where ad_soyad like '%" &aranan&"%' order by ad_soyad asc"
ObjRs.Open Strsql,ObjCon,1,3
'Burada If ile aranılan kayıt bulunamazsa uyarı çıkartıyoruz.
If ObjRs.Eof Then
'Response.Write ile uyarıyı yazdırıyoruz.Dikakt ederseniz font size = 2 bunun html kodu içinde şu şekilde olması gerekiyor font size ="2" ama Response.Write bu şekilde yazmış olsaydık hata alırdık.
Response.Write "<font size=2 color=#000000> <i><b>Kayıt Bulunamadı ! ! !</i></b>"
'Else yapılacak işlem doğru ise yukarıdaki yazıyı yazmamızı sağlıyor.Yani eğer aranan bulunamadı ise If de belirtmiştik ya işte onu doğruluyor.
Else
'Burada bir döngü kuruyoruz.
Do While not musteriler.Eof
'Do While dönüsü hakkında : Bir başlangıç Bof bir de sonuç Eof değeri vardır. Burada döngümüz recordset'in ilk kaydından başlıyarak Eof değerine gelene kadar recordsetin bütün kayıtlarına bakacaktır.Eğer kayıt Eof değilsede tekrar MoveNext ile döngünün başına geçer.Eğer eof değerini görürse döngü biter ve işleme alınır.Kısacası bu kod bize kayıtları baştan sona taramamızı sağlamaktadır.Böyleliklede eof ve bof olaylarını anlamış olduk. Bir kodun içinde de ufak bir ders vermiş olduk.
%>
Şimdi ise aranan bulunursa bilgiler çıkacak.
<%=ObjRs("ad_soyad" ) %>
Daha sonra kayıtların sıralanmasını yapıyoruz.
<%
'yukarıda moveNexti açıklamıştık.
musteriler.Movenext
'Her Do diye başladığınızda mutlaka Loop eklemelisiniz yoksa hata alırsınız.
Loop
'yukarıda Else işlemler doğru ise yapılacakları belirliyordu eğer doğru değil ise de yani kayıt bulunursa yukarıdaki işlemleri yapacak.Buradan şu sonucu çıkartıyoruz. if'le Else arası eğer istenilen bulunamıyorsa yapılacak işlemler.Else End If arası ise eğer istenilen var ise yapılacak işlemler oluyor.Bir scripte ne kadar If kullanılırsa o kadarda End If kullanılmalıdır.Yukarıdaki If i End If şeklinde kapatmış oluyoruz.Eğer Elsenin altına End If i koymuş olsaydık aradığımız sonuç bulunsa bile kayıtlar gözükmeyecekti.
End If
%>