<% Dim adresurl Dim secilialan alan1="kategori" alan2="haberdetay" alan3="haber" On error Resume Next Set adresurl = Request.ServerVariables("QUERY_STRING") secilialan = Split(adresurl,"/") If Lcase(secilialan("3")) = alan1 Then Server.Execute("kategoriler.asp") Elseif Lcase(secilialan("3")) = alan2 Then Server.Execute("haberdetay.asp") Elseif Lcase(secilialan("3")) = alan3 Then Server.Execute("default.asp") %> <% Else%>
HATA
404
Üzgünüz, Sayfa Bulunamadı.

Lütfen Url adresini kontrol ediniz.

.

<%End if%>