Asp SEO sorunu

Tuncsoft şarkı scripti üzerine yapılmış olan seo ana dizin için hazırlanmış ben onu /sarki klasörü içerisinde çalıştırmak istiyorum kodları nasıl düzenlemem gerekiyor.

kodlar;
<%
Dim istekurl
Dim istekbolum
Set istekurl = Request.ServerVariables("QUERY_STRING")
istekbolum = Split(istekurl,"/")
istegim = istekbolum(3)
istekayir = split(istegim,"-")
if Lcase(istekayir("0")) = "sarki" Then
Server.Execute("sarki.asp")
Elseif Lcase(istekayir("0")) = "sanatci" Then
Server.Execute("sanatci.asp")

Elseif Lcase(istekayir("0")) = "sanatcilar" Then
Server.Execute("sanatcilar.asp")

Elseif Lcase(istekayir("0")) = "a" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "b" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "c" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "co" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "d" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "e" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "f" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "g" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "h" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "io" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "i" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "j" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "k" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "l" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "m" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "n" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "o" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "oo" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "p" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "r" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "s" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "so" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "t" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "u" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "uo" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "v" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "y" Then
Server.Execute("harf.asp")
Elseif Lcase(istekayir("0")) = "z" Then
Server.Execute("harf.asp")

Else
Response.Write("yok")
End if
%>

Kim öyle bir eklenti yapmış merak ettim şimdi

<% 
Dim istekurl 
Dim istekbolum 
Set istekurl = Request.ServerVariables("QUERY_STRING") 
istekbolum = Split(istekurl,"/") 
istegim = istekbolum(3) ' bu satır üzerinde işlem yap 3 sayısını 4 yap

olacaktır.

Burda seolu olarak verildi https://www.r10.net/ucretsiz-scriptle...pti-seolu.html
anadizinde çalışıyor ama alt klasör şeklinde bendede çalışmamıştı.

eğer 404.asp yi anadizine httpdocs a attıysanız çalışmayabilir.

404 ü ayarlarken ;
Tür : URL
Yol : /scriptyolu/404.asp

yapın Execute leride ona göre ayarlayın

çok fazla else if var performansı çok düşürür, select case kullan bence.

verdiginiz gibi yaptım ama olmadı bu scripti seosuz hali varmı sizlerde?