Gönderen: 23-Mayıs-2012 Saat 15:16 | Kayıtlı IP

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...

Gönderen: 23-Mayıs-2012 Saat 15:18 | Kayıtlı IP

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