aşağıdaki sayfaları böyle kullanırsam yapı şu oluyor:
siteadi.com/Haber/1-haber-basligi.html
ben ise: Siteadi.com/Kategorisi(guncel,spor vs)/haber-basligi-h1.html yapmak istiyorum ama yapamadım sayfa kodlarım aşağıda.

haber.asp sayfası:

<%
Dim adres
Dim ustyer  

Set adres = Request.ServerVariables("QUERY_STRING") 
adres = Replace(adres, "404;"&strurl&":80/", "", 1, -1, 1)
adres = Replace(adres, seolinkturu, "", 1, -1, 1)
ustyer = Split(adres,"-")

Set adres = Request.ServerVariables("QUERY_STRING")  
ustyer = Split(adres,"/")
gelenveri=ustyer(4)
bol=Split(gelenveri,"-")
idd=inject(bol(0))


Set kat = Baglanti.Execute("select * from Haberler where id="&idd&" and onay=1")
if kat.eof then
Response.Redirect ""&dizin&"index.html"
end if
katbaslik=kat("baslik")
katresim=kat("resim")
katid=kat("id")
katkid=kat("kid")
katspot=kat("spot")
katdetay=kat("detay")
katetiket=kat("etiket")
kattarih=kat("tarih")
kathit=kat("hit")
%>

404.asp Sayfası:

<% 
Dim adres 
Dim ustyer  

alan3="Haber"

On error Resume Next 
Set adres = Request.ServerVariables("QUERY_STRING")  
ustyer = Split(adres,"/") 

Elseif ustyer("3") = alan3 Then
Server.Execute("Haber.asp")
%>