ASP kode bliver ikke overført !!

Hej med Jer !!
Jeg har et problem med et script som gør at asp koden ikke bliver vist ! Scriptets ser sådan ud :

<%
function include(fil)
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set incfile = fso.OpenTextFile(Server.MapPath(fil), 1)
    include = incfile.ReadAll
    incfile.close
end function
%>

<%
test =include(Request.Querystring("page"))
response.write test
%>

Jeg bruger det til at kalde det midterste af min side som er det eneste der forandre sig på min webside. Det virker sådan set fint men alle de sider med asp kode bliver vist men asp koden bliver ikke udført !!

Hvad kan der være galt ????