wave41
Yeni Üye
Kayıt Tarihi: 27-Eylül-2011
Ülke: Turkiye
Gönderilenler: 1
|
| Gönderen: 10-Ekim-2011 Saat 18:12 | Kayıtlı IP
|
|
|
<% '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("db/db.mdb")
conn.open dsn
'Formdan gelen veriyi alıyoruz
aranan = LCase(Request.QueryString("q"))
'Recordset açılıyor
Set RS=Server.CreateObject("ADODB.Recordset")
'Gelen veriyi veritabanında sorgulayacak sql
cümlesini yazıyoruz
Sql = "Select * From YAZILAR Where YAZILAR_ADI Like '%" &
aranan & "%' Order By YAZILAR_ADI"
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
Sinirla = 20 'Listelenecek kayıt
sayısını buradan
sınırlayabiliriz
'Toplam 20 kayıt listeliyoruz
Do While Not RS.EOF And i < (Sinirla + 1)
Response.Write ("<li
onClick=""fill('"&RS("YAZILAR_ID")&"');"">"&RS("YAZILAR_A
DI")&"</li>")
'Response.Write RS("YAZILAR_ADI") & "|" &
RS("LINK_ID") & vbCrlf
'Response.Write RS("YAZILAR_ADI") &
vbCrlf
i = i + 1
RS.MoveNext
Loop
End If
RS.Close
conn.Close
%>
yukarıdaki kodlardan
Response.Write ("<li
onClick=""fill('"&RS("YAZILAR_ID")&"');"">"&RS("YAZILAR_A
DI")&"</li>")
ile arama yaptırıyorum .sonuçları gösteriyor ama link
veremedim bir türlü.yardımcı olabilir misiniz
__________________
eczanehaberleri
|
ASPTurkiye.com Forum : ASP / ASP.NET
Konu: arama kutusuna link verme
Aktif Konular
Üye Listesi
Arama
Yardım
Kayıt Ol
Giriş
