Merhaba

www.turkslayt.com adlı sitemde 404 hata sayfası vererek sef yapmaya çalıştım ama alt sayfalar açılmıyor

Bu default.asp de ki hata verdirtme bölümü

 
 Response.Write("<a href="""& strScriptYolu &"haber/"& intHaberID &"-"& CreateURL(strHaberBaslik) &".html""><h2>"& strHaberBaslik &"</h2></a>" & _
    "<p class=""info""><img src=""img/kategori.gif"" alt=""Kategori"" />&nbsp;Kategori: <a href=""default.asp?kategori="& intHaberKategori &""">"& KategoriBul(intHaberKategori) &"</a>&nbsp;|&nbsp;")
    If blnHaberYorum Then Response.Write("<img src=""img/yorum.gif"" alt=""Yorumlar"" />&nbsp;<a href="""& strScriptYolu &"haber/"& intHaberID &"-"& CreateURL(strHaberBaslik) &".html#yorum"">"& intHaberYorumSayisi &" Yorum</a>&nbsp;|&nbsp;")
    Response.Write("<img src=""img/okunma.gif"" alt=""Okunma"" />&nbsp;"& intHaberOkunma &" Okunma&nbsp;|&nbsp;")
    If intHaberEditor <> 2 Then Response.Write("<img src=""img/kullanici.gif"" alt=""Yazar"" />&nbsp;Yazan: <a href="""& strScriptYolu &"editor/"& intHaberEditor &"-"& CreateURL(YazanBul(intHaberEditor)) &".html"">"& YazanBul(intHaberEditor) &"</a>&nbsp;|&nbsp;")
    Response.Write(TarihFormatla(dtmHaberTarih,1) &"</p>")
    Response.Write("<div class=""ozet"">")
    If Len(strHaberResim) > 3 Then Response.Write("<img src="""& strHaberResim &""" alt="""" align=""left"" vspace=""5"" hspace=""5"" class=""haber-resim"" />")
    Response.Write(Satir(strHaberOzet) &"&nbsp;<a href="""& strScriptYolu &"haber/"& intHaberID &"-"& CreateURL(strHaberBaslik) &".html"">Slaytı izle »</a></div>")
    intLooper = intLooper + 1
    kdGenel.MoveNext
   Loop

Buda 404.asp hata sayfası kodu

 
<%
Set strURL = Request.ServerVariables("QUERY_STRING") 
strBolum = Split(strURL,"/")
Dim arrSayfalar(2)
arrSayfalar(0) = "haber"
arrSayfalar(1) = "editor"
For i = 0 To UBound(arrSayfalar)
 If strBolum("3") = arrSayfalar(i) Then
  Server.Execute("_"& LCase(arrSayfalar(i)) &".asp")
  blnSayfaVar = True
  Exit For
 End If
Next
%>

teşekkürler