ASP ile SefLink Yapımı ve SEO

mrb arkadaşlar bir konuda yardımınıza ihtiyacım var.

Bir haber sitesi yapıyorum ama sef linkler iyice kafamı karıştırdı.

veritabanımda iki ayrı tablo var;
1. Kategoriler
2. Haberler

sorun şu;

Menudeki kategorilere tıkladığımda sef link yapısının
SiteAdı.Com/Guncel
SiteAdı.Com/Spor
SiteAdı.Com/ekonomi
gibi sorunsuz çalışmasını istiyorum

haberlere tıkladığımda ise;
SiteAdi.Com/Guncel/haber-basligi-h345.html (h'den sonraki id numarası) deki gibi olmasını istiyorum.

404.asp sayfası ile bunu nasıl yapabilirim. yada başka yolu varmıdır. bana verebileceğiniz bir örnek kod varmıdır

yardımlarınız için şimdiden teşekkür ederim

HaberId = Request.ServerVariables("QUERY_STRING")
HaberId = Split(HaberId, "-")(Ubound(Split(HaberId, "-")))
HaberId = Replace(HaberId, ".html", "")
HaberId = Replace(HaberId, "h", "")

Bu size URL'de geçen haberin numarasını verir.

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")
%>