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