<%
Dim istekurl
Dim istekbolum
Dim istekbolum2
Dim parcala
Dim isteksayfa
Dim istek1

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

istekbolum2=istekbolum(3)
parcala=split(istekbolum2,"-")
isteksayfa=parcala(0)

If isteksayfa="firmalar" Then
    Server.Execute("firma_detay.asp")
elseIf isteksayfa="ozelfirmalar" Then
    Server.Execute("of/giris.asp")
elseIf isteksayfa="resimekle.html" Then
    Server.Execute("resimekle.asp")
elseIf isteksayfa="videoekle.html" Then
    Server.Execute("videoekle.asp")
Elseif isteksayfa="ilanlar" Then
    Server.Execute("ilan_detay.asp")
Elseif isteksayfa="urunler" Then
    Server.Execute("urun_detay.asp")
Elseif isteksayfa="haberler" Then
    Server.Execute("haber_oku.asp")
Elseif isteksayfa="makaleler" Then
    Server.Execute("makale_oku.asp")
elseIf isteksayfa="anketler.html" Then
    Server.Execute("anketler.asp")
elseIf isteksayfa="galeriler" Then
    Server.Execute("galeriler.asp")
elseIf isteksayfa="videolar" Then
    Server.Execute("videolar.asp")
elseIf isteksayfa="duyurular" Then
    Server.Execute("duyuru_oku.asp")
Elseif isteksayfa="sektorler" Then
    Server.Execute("sektor_liste.asp")
Elseif isteksayfa="altsektorler" Then
    Server.Execute("altsektor_liste.asp")
Elseif isteksayfa="sayfalar" Then
    Server.Execute("sayfa.asp")
Elseif isteksayfa="firmaekle" Then
    Server.Execute("firmaekle.asp")
Elseif isteksayfa="ilanekle" Then
    Server.Execute("ilanekle.asp")
Elseif isteksayfa="giris.html" Then
    Server.Execute("giris.asp")
Elseif isteksayfa="resimgalerisi.html" Then
    Server.Execute("resimgalerisi.asp")
Elseif isteksayfa="videogalerisi.html" Then
    Server.Execute("videogalerisi.asp")
Elseif isteksayfa="giris" Then
    Server.Execute("giris.asp")
Elseif isteksayfa="rehber" Then
    Server.Execute("rehber.asp")
Elseif isteksayfa="tumfirmalar" Then
    Server.Execute("tumfirma.asp")	
Elseif isteksayfa="tumozelfirmalar" Then
    Server.Execute("tumozel.asp")	
Elseif isteksayfa="tumnormalfirmalar" Then
    Server.Execute("tumnormal.asp")	
Elseif isteksayfa="urun" Then
    Server.Execute("urun.asp")	
Elseif isteksayfa="haber" Then
    Server.Execute("haber.asp")	
Elseif isteksayfa="link" Then
    Server.Execute("link.asp")	
Elseif isteksayfa="ilan" Then
    Server.Execute("ilan.asp")	
Elseif isteksayfa="chat" Then
    Server.Execute("chat.asp")	
Elseif isteksayfa="ziyaretcidefteri" Then
    Server.Execute("defteroku.asp")	
Elseif isteksayfa="deftereyaz.html" Then
    Server.Execute("mesajekle.asp")	
Elseif isteksayfa="iletisim" Then
    Server.Execute("iletisim.asp")	
Elseif isteksayfa="detayliarama" Then
    Server.Execute("detayliarama.asp")	
Elseif isteksayfa="tumkategoriler" Then
    Server.Execute("kategoriler.asp")	
Elseif isteksayfa="tumhitlistesi" Then
    Server.Execute("hit.asp")	
Elseif isteksayfa="uyari" Then
    Server.Execute("uyari.asp")	
Elseif isteksayfa="engelli" Then
    Server.Execute("")		
Elseif isteksayfa="temadegistir" Then
    Server.Execute("temadegistir.asp")
elseif isteksayfa="tumillerhavadurumu" then
    Server.Execute("tumhava.asp")
Else
    Server.Execute("sayfayok.asp")	
End if
%>