site içi arama motoru yardım

Merhaba Arkadaşlar
404.asp içerisinde ilanlar.asp`yi ilanlar olarak gösterdim ve il, ilçe, durumu ve tipini parçalayarak adres çubuğunda göstermek istedim, fakat formu post ettiğimde adres çubuğunda http://www.siteadi.com/ilanlar---- olarak gösteriyor ve bütün ilanları listeliyor, adres çubuğunda ilanlar dan sonra parçaladığım id leri göstermiyor, burada yapmak istediğim il, ilçe, durumu ve tipe göre arama yapmasını istiyorum,
, aşağıda ara.asp ve ilanlar.asp içerisindeki kodlamaları veriyorum
yardımlarınızı bekliyorum arkadaşlar.

ara.asp
<form method="post" name="" action="/ilanlar-<%=il_id%>-<%=ilce_id%>-<%=durumu_id%>-<%=tip_id%>">

ilanlar.asp
<%
set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from ilan where onay=1 and il_id like '%" & il_id & "%' and ilce_id like '%" & ilce_id & "%' and durumu_id like '%" & durumu_id & "%' and tip_id like '%" & tip_id & "%' order by id desc"
rs.open sql,db,1,3
%>

Arkadaşlar acilen yardımlarınızı bekliyorum.

emlak21 nick değiştirerek bir sonuç elde edemezsin

https://www.r10.net/asp/856248-gelism...mi-yardim.html

Merhaba frdtrkc siz herhalde başka üye ile beni karıştırdınız, yardım edeceksiniz lütfen yardım ediniz, yoksa boş şeyler yazmayalım.
teşekkürler.

.

Arkadaşlar
Site içi arama motorumda arama yaptıktan sonra verileri getiriyorum ama sayfalamada adres çubuğunda 2 ci sayfaya geçerken aşağıdaki linki adres çubuğunda gösteriyor.
http://www.siteadi.com/ilanara-il_id=1&ilce_id=1&durumu_id=1&tip_id=1&/2
yanlız 1 ci sayfaya tekrar döndüğümde aşağıdaki linkte il_id=1& yi silip adres çubuğunda aşağıdaki linki gösteriyor
http://www.siteadi.com/ilanara-ilce_id=1&durumu_id=1&tip_id=1&/1
bu konuda yardımlarınızı bekliyorum

sayfalama kodlaması aşağıdaki gibi


<!--#include file="veri.asp"-->
<!--#include file="tmzl.asp"-->
<%
Set degisken = Request.ServerVariables("QUERY_STRING")
istekbolum = Split(degisken,"/")


if Trim(Tmzl(Request("id")))="" then

sql="SELECT * FROM ilan WHERE onay=1":sql_str="/ilanara-"

il_id=Trim(Tmzl(Request("il_id"))):If Not il_id="" Then sql=sql&" AND il_id='" & il_id & "'":sql_str=sql_str&"il_id="& il_id &"&"
ilce_id=Trim(Tmzl(Request("ilce_id"))):If Not ilce_id="" Then sql=sql&" AND ilce_id='" & ilce_id & "'":sql_str=sql_str&"ilce_id="& ilce_id &"&"
durumu_id=Trim(Tmzl(Request("durumu_id"))):If Not durumu_id="" Then sql=sql&" AND durumu_id='" & durumu_id & "'":sql_str=sql_str&"durumu_id="& durumu_id &"&"
tip_id=Trim(Tmzl(Request("tip_id"))):If Not tip_id="" Then sql=sql&" AND tip_id='" & tip_id & "'":sql_str=sql_str&"tip_id="& tip_id &"&"
sql=sql&" ORDER BY tarih ASC":sql_str=sql_str

else

sql="SELECT * FROM ilan WHERE onay=1":sql_str="/ilanara-"
id=Trim(Tmzl(Request("id"))):If Not id="" Then sql=sql&" AND id='" & id & "'":sql_str=sql_str&"id="& id &"&"
sql=sql&" ORDER BY tarih ASC":sql_str=sql_str

end if

Set rs =server.createobject("ADODB.Recordset")
rs.Source = SQL
Set rs.ActiveConnection = db
rs.Open

Toplam = rs.RecordCount

If Toplam = 0 Then
intSayfaSayisi = 0
%>

İlan bulunmamakta!

<%
Else

If Ubound(istekbolum) >= 4 Then intGecerliSayfa = istekbolum(4)
If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1


rs.PageSize =9
intSayfaSayisi= rs.PageCount
rs.AbsolutePage =intGecerliSayfa

For m = 1 to 9
If rs.Eof Then Exit For

%>
<%=rs("il_id")%><br />
<%=rs("ilce_id")%><br />
<%=rs("durumu_id")%><br />
<%=rs("tipi_id")%><br />
<%

rs.Movenext
next

End If

Aralik = 2
intSayfaAltSiniri = intGecerliSayfa - Aralik
intSayfaUstSiniri = intGecerliSayfa + Aralik
intSolGrupSayisi = 1 + Aralik
intSagAltSinir = intSayfaSayisi - Aralik

If (intSayfaUstSiniri >intSayfaSayisi) Then
intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik)
intSayfaUstSiniri = intSayfaSayisi
End If

If (intSayfaAltSiniri <= 0) Then
intSayfaAltSiniri = 1
intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik)

If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi
End If

If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1
If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1

If intGecerliSayfa >1 Then %>

<a href="<%=sql_str%>/1" title="<%=lis_6%>">««</a>
<a href="<%=sql_str%>/<%=intGecerliSayfa-1%>" title="<%=lis_7%>">«</a>
<%
Else
End If

For i = intSayfaAltSiniri to intSayfaUstSiniri
If CInt(i) = CInt(intGecerliSayfa) Then

Response.Write " <b>"
Response.Write "<SPAN Class=Ayni>"
Else
%>

<a href="<%=sql_str%>/<%=i%>" title="<%=i%>. <%=lis_8%>">
<%
End If
Response.Write i &"</SPAN></a></b>"
Next

If CInt(intGecerliSayfa) <>CInt(intSayfaSayisi) Then
%>
<a href="<%=sql_str%>/<%=intGecerliSayfa+1%>" title="<%=lis_9%>">»</a>
<a href="<%=sql_str%>/<%=intSayfaSayisi%>" title="<%=lis_10%>">»»</a>
<%
End if
rs.Close
Set rs = Nothing
%>