<%
function cleaner(cln)
cln = Replace (cln, ".html","")
cleaner=cln
end function
set adres = request.ServerVariables("QUERY_STRING")
veri=split(adres,"/")
On Error Resume Next
temizveri=cleaner(veri(3))
if ""&temizveri&""="makale" then
%>
<!--#include file="makale.asp"-->
<%
elseif ""&temizveri&""="siir" then
%>
<!--#include file="siir.asp"-->
<%
end if
%>