implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP / ASP.NET
 ASPTurkiye.com Forum : ASP / ASP.NET
Konu Konu: asp ile site içi arama Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
ismail0202
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20-Mayıs-2012
Ülke: Turkiye
Gönderilenler: 37
Gönderen: 23-Mayıs-2012 Saat 15:16 | Kayıtlı IP Alıntı ismail0202

Merhaba,
Forumu çok uzun süredir takip ediyorum, genelde karşılaştığım tüm sorunların cevabınıda buldum ama sadece bugün aradığım konuyu bir türlü çözemedim. Konu şu; 2. el oto ilan sitesi (çok basit-üniversitede ödev olarak vermişler bi arkadaşa), access veritabanımız var (data.mdb), ilan adında bir tablomuzda mevcut, içerisinde ki alanlardan marka, model ve yil (model yılı anlamında)'da site içi arama yaptırmak istiyorum.

aşağıda ki kodlarla alan içerisinde sıralama yaptırabiliyorum (içerisinde p harfi geçen kayıtlar)
Kod:
<table>
<%
veritabani = Server.MapPath("data.mdb") 
baglantim = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & veritabani 
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open baglantim 
Set kayitlar = Server.CreateObject("ADODB.RecordSet") 
aramasql = "SELECT * FROM ilan WHERE model LIKE '%p%' ORDER BY id ASC" 
kayitlar.Open aramasql, baglanti, 1, 3 
%>
<% For i = 1 To 20
If kayitlar.EOF Then Exit For 
%> 
<tr><td valign="top"><% = kayitlar("model") %></td></tr> 
<% 
kayitlar.MoveNext : Next 
%>
</table>
<% 
kayitlar.Close 
Set kayitlar = Nothing 
baglanti.Close 
Set baglanti = Nothing 
%>
ama işi aşağıda ki gibi değiştirdim mi sayfa görüntülenmiyor

Kod:
<table>
<% arananklm = Request.QueryString("aranan") %>
<% arananklm = "" Then %>
<tr><td><h5>Aranacak sözcüğü girin</h5>
<br><a href=""javascript :window.history.back()""><h6>Geri</h6></a& gt;</td></tr></table>
<%  Else 
arananklm = arananklm
End If %>

<%
veritabani = Server.MapPath("data.mdb") 
baglantim = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & veritabani 
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open baglantim 
Set kayitlar = Server.CreateObject("ADODB.RecordSet") 
aramasql = "SELECT * FROM ilan WHERE model LIKE '%" & arakanklm & "%' ORDER BY id ASC" 
kayitlar.Open aramasql, baglanti, 1, 3 
%>
<% For i = 1 To 20
If kayitlar.EOF Then Exit For 
%> 
<tr><td valign="top"><% = kayitlar("model") %></td></tr> 
<% 
kayitlar.MoveNext : Next 
%>
</table>
<% 
kayitlar.Close 
Set kayitlar = Nothing 
baglanti.Close 
Set baglanti = Nothing 
%>
yardımcı olursanız sevinirim...


__________________
123
Yukarı Dön Göster ismail0202's Özellikler Diğer Mesajlarını Ara: ismail0202
 
kabadayı hakan
Yeni Üye
Yeni Üye


Kayıt Tarihi: 21-Mayıs-2012
Ülke: Türkiye
Gönderilenler: 34
Gönderen: 23-Mayıs-2012 Saat 15:18 | Kayıtlı IP Alıntı kabadayı hakan

Kod:
<% arananklm = Request.QueryString("aranan") %>
<% arananklm = "" Then %>
<tr><td><h5>Aranacak sözcüğü girin</h5>
<br><a href=""javascript :window.history.back()""><h6>Geri</h6></a& gt;</td></tr></table>
<%  Else 
arananklm = arananklm
End If %>
üstteki kısmı böyle değiştirin


Kod:

<% arananklm = Request.QueryString("aranan") If arananklm = "" Then %> <tr><td><h5>Aranacak sözcüğü girin</h5> <br><a href=""javascript :window.history.back()""><h6>Geri</h6></a& gt;</td></tr></table> <% End If %>

kodu böyle değiştir olur

Yukarı Dön Göster kabadayı hakan's Özellikler Diğer Mesajlarını Ara: kabadayı hakan
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0781 Saniyede Yüklendi.