<%
Dim istekurl
Dim istekbolum
Dim istek1
Dim istek2
Dim istek3
Dim istek4
Dim istek5
Dim istek6
Dim istek7
Dim istek8

istek1="video"
istek2="videoarsiv"
istek3="haber"
istek4="haberarsiv"
istek5="resim"
istek6="resimarsiv"
istek7="muzik"
istek8="muzikarsiv"

'Ekle eklemek istediğin kadar

Set istekurl = Request.ServerVariables("QUERY_STRING") 
istekbolum = Split(istekurl,"/")

If istekbolum("3") = istek1 Then
    Server.Execute("video.asp")

Elseif istekbolum("3") = istek2 Then
    Server.Execute("videoarsiv.asp")

Elseif istekbolum("3") = istek3 Then
    Server.Execute("haber.asp")

Elseif istekbolum("3") = istek4 Then
    Server.Execute("haberarsiv.asp")

Elseif istekbolum("3") = istek5 Then
    Server.Execute("resim.asp")

Elseif istekbolum("3") = istek6 Then
    Server.Execute("resimarsiv.asp")

Elseif istekbolum("3") = istek7 Then
    Server.Execute("muzik.asp")

Elseif istekbolum("3") = istek8 Then
    Server.Execute("muzikarsiv.asp")
'Elseif lere ekle eklemek istediğin kadar

Else

Response.Write ("Aradığınız sayfa bulunamadı")

End if
%>