<%
Dim veri
veri = Request.ServerVariables("QUERY_STRING") 
veri=karakter(veri)

function karakter(veri) 
veri = Replace (veri ,"404;http://localhost:80/","",1,-1,1)
veri = Replace (veri ,"404;http://siteniz.com:80/","",1,-1,1)
veri = Replace (veri ,"404;http://www.siteniz.com:80/","",1,-1,1)
veri = Replace (veri ,".html","",1,-1,1) 'Herhangi bir uzantı tanımladık'
karakter=veri 
end function 


'Döngümüzü kuruyoruz'
if left(veri,11)="klasorunuz/" then '11 değeri klasör adındaki karakter sayısını belirliyor'
uzunluk2=len(veri) 'veri uzunluğa eşitlendi böylece;'
eksi2=(uzunluk2-11) '11 karakter sonrasında gelen değeri dikkate alacağız'
sayfalink=right(veri,eksi2) 'yani klasorunuz/serkan.html olarak gelen verinin veritabanımızın veriyi çektiğimiz sutununda serkan verisinin bulunması gerekir.'
end if 'döngü dönmekten yorulmasın diye kapattık:) '

if sayfalink<>"" then%><!--#include file="sayfaniz.asp"-->
<%end if

'yukarıda sayfa link olarak belirlenen değer, yukarıdaki döngünün içindeki sayfalink=right(veri,eksi2) şeklinde belirlenen kod

if sayfalink="" then
response.redirect("Default.asp")
end if%>

if left(veri,8)="zoneasp/" then 'dikkat, klasör adındaki karakter sayımız 8 karakter
uzunluk2=len(veri)
eksi2=(uzunluk2-8)
sayfalink2=right(veri,eksi2)
end if
if sayfalink2<>"" then%><!--#include file="sayfaniz2.asp"-->
<% end if

if sayfalink="" or sayfalink2="" then
response.redirect("Default.asp")
end if%>

<%
Dim veri
veri = Request.ServerVariables("QUERY_STRING") 
veri=karakter(veri)

function karakter(veri) 
veri = Replace (veri ,"404;http://localhost:80/","",1,-1,1)
veri = Replace (veri ,"404;http://siteniz.com:80/","",1,-1,1)
veri = Replace (veri ,"404;http://www.siteniz.com:80/","",1,-1,1)
veri = Replace (veri ,".html","",1,-1,1) 'Herhangi bir uzantı tanımladık'
karakter=veri 
end function 

if left(veri,11)="klasorunuz/" then 
uzunluk2=len(veri)
eksi2=(uzunluk2-11)
sayfalink=right(veri,eksi2)
end if
if sayfalink<>"" then%><!--#include file="sayfaniz.asp"-->
<%end if 

if left(veri,8)="zoneasp/" then 
uzunluk2=len(veri)
eksi2=(uzunluk2-8)
sayfalink2=right(veri,eksi2)
end if
if sayfalink2<>"" then%><!--#include file="sayfaniz2.asp"-->
<%end if

if sayfalink="" and sayfalink2="" then %>Sayfa bulunamadı<% end if %>