Gelişmiş arama sayfasında, sayfalama yaparken sef link kullanımı yardım

Merhaba Arkadaşlar
Gelişmiş arama sayfasını bir türlü sef link yapamadım, kodlama aşağıdaki gibi bu konuda yardımcı olabilirmisiniz,
Teşekkürler.

404.asp içerindeki kodlama
<%
istekurl = Request.ServerVariables("QUERY_STRING")
istekbolum = Split(istekurl, "/")

If Ubound(istekbolum) >= 3 Then strPage4 = Split(istekbolum(3), "-")

If Ubound(strPage4) >= 0 Then rst = strPage4(0)
If Ubound(strPage4) >= 1 Then rstil = strPage4(1)
If Ubound(strPage4) >= 2 Then rstilce = strPage4(2)
If Ubound(strPage4) >= 3 Then rsttur = strPage4(3)
If Ubound(strPage4) >= 4 Then rsttip = strPage4(4)

Select Case rst
Case "ilanara"
%><!--#include file="ilanara.asp"-->
Case Else
%><!--#include file="hata.asp"--><%
End Select
%>

ilanara.asp sayfası içindeki kodlama

<!--#include file="../ data.asp"-->
<%
degisken = Request.QueryString
gelenlink_bol = split(degisken, "/")
uzanti_bol = split(gelenlink_bol(3), "-")
rst = uzanti_bol(0)

Set rsil = Server.CreateObject("ADODB.RecordSet" )
rsil.Open "Select * from iller where sehir like'%"&rstil&"%'" , db , 1 , 3

Set rsilce = Server.CreateObject("ADODB.RecordSet" )
rsilce.Open "Select * from ilceler where adi like'%"&rstilce&"%'" , db , 1 , 3

Set rsturu = Server.CreateObject("ADODB.RecordSet" )
rsturu.Open "Select * from turu where tr_tur_cevir like'%"&rsttur&"%'", db , 1 , 3

Set rstipi = Server.CreateObject("ADODB.RecordSet" )
rstipi.Open "Select * from tip where tr_tip like'%"&rsttip&"%'", db , 1 , 3


if Trim(KrktrTmzl(Request("id")))="" then
sql="SELECT * FROM ilan WHERE onay=1 ":sql_str="/ilanara/"

il_id=Trim(KrktrTmzl(Request("il_id"))):If Not il_id="" Then sql=sql&" AND il_id='" & rsil("id") & "'":sql_str=sql_str&"il_id="& il_id &"_"

ilce_id=Trim(KrktrTmzl(Request("ilce_id"))):If Not ilce_id="" Then sql=sql&" AND ilce_id='" & rsilce("id") & "'":sql_str=sql_str&"ilce_id="& ilce_id &"/"

durumu_id=Trim(KrktrTmzl(Request("durumu_id"))):If Not durumu_id="" Then sql=sql&" AND durumu_id='" & rsturu("id") & "'":sql_str=sql_str&"durumu_id="& durumu_id &"_"

tip_id=Trim(KrktrTmzl(Request("tip_id"))):If Not tip_id="" Then sql=sql&" AND tip_id='" & rstipi("id") & "'": sql_str=sql_str&"tip_id="& tip_id &"_"

sql=sql&" ORDER BY tarih DESC":sql_str=sql_str

else

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

id=Trim(KrktrTmzl(Request("id"))):If Not id="" Then sql=sql&" AND id='" & id & "'":sql_str=sql_str&"id="& id &"/"

sql=sql&" ORDER BY tarih DESC":sql_str=sql_str

end if

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

%>

Arkadaşlar bu konuda yardım edebilecek arkadaş yokmu? veya elinde 404.asp`ye uygun il, ilçe vb kriterlere göre site içi arama moturu ve sayfalama yapabilecek örnek varsa bu konuda yardımcı olabilirmisiniz.
Saygılar.

Merhaba emlak21, Ben Ceviz forumdan Ferdi

Yapmak istediğini tam olarak anlamadım istersen bana özelden daha detaylı yaz problemi ona göre ücretli veya ücretsiz problemini çözmene yardımcı olurum.

Kolay gelsin.