<% Dim istekurl Dim istekbolum Dim istek1 Dim istek2 istek2="html" istek3="sayfalar" istek4="indir" istek5="html" istek6="urunleri" istek7="prodetay" istek8="izle" On error Resume Next Set istekurl = Request.ServerVariables("QUERY_STRING") istekbolum = Split(istekurl,"/") uzanti_bol = split(istekbolum(3), ".") If istekbolum(3) = "anasayfa.html" Then Server.Execute("default.asp") ElseIf istekbolum(3) = "iletisim.html" Then Server.Execute("iletisim.asp") ElseIf istekbolum(3) = "kurumsal.html" Then Server.Execute("kurumsal.asp") ElseIf uzanti_bol("1") = istek3 Then Server.Execute("Sayfalar.asp") ElseIf uzanti_bol("1") = istek7 Then Server.Execute("Projeler_detay.asp") ElseIf uzanti_bol("1") = istek8 Then Server.Execute("Izle.asp") ElseIf istekbolum(3) = "uretimlerimiz.html" Then Server.Execute("uretim.asp") ElseIf uzanti_bol("1") = istek4 Then Server.Execute("Dosyalar.asp") ElseIf istekbolum(3) = "hizmetlerimiz.html" Then Server.Execute("hizmet.asp") ElseIf uzanti_bol("1") = istek5 Then Server.Execute("Haberler_Detay.asp") ElseIf istekbolum(3) = "projelerimiz.html" Then Server.Execute("kalite.asp") ElseIf uzanti_bol("1") = istek6 Then Server.Execute("Urunler_detay.asp") ElseIf istekbolum(3) = "bayilerimiz.html" Then Server.Execute("bayilerimiz.asp") ElseIf istekbolum(3) = "galeri.html" Then Server.Execute("galeri.asp") ElseIf istekbolum(3) = "insan-kaynaklari.html" Then Server.Execute("insan_kaynaklari.asp") ElseIf istekbolum(3) = "haberler." Then Server.Execute("haberler.asp") ElseIf uzanti_bol("1") = istek2 Then Server.Execute("haber_detay.asp") Else Response.Write ("Aradığınız sayfa bulunamadı yada boyle bir sayfa yok buradan anasayfaya gidebilirsiniz. Tıklayınız.") End if %>