Min include laver ikke ASP koden.

Hej, jeg har et lille stykke kode som gør at jeg ka inkludere en fil og samtidig benytte fx ?page=hej, til at finde ud af hvilken fil der ska inkluderes.

Problemet er så bare:
Hvis jeg har inkluderet en ASP-fil med tilhørende stykke ASP-kode, bliver ASP-koden skrevet ud som almindelig tekst, men alt andet html og css kode bliver skrevet rigtigt.

Hvorfor? Og kan i hjælpe?

<%
dim page
page = request.querystring("page")

function include(fil)
  dim fso
  set fso = CreateObject("Scripting.FileSystemObject")
  set incfile = fso.OpenTextFile(Server.MapPath(fil), 1)
  include = incfile.ReadAll
  incfile.close
end function

set fs = Server.CreateObject("Scripting.FileSystemObject")

if page = "" then
  %> <!--#include file="forsiden.asp" --> <%
elseif fs.FileExists(server.mappath(page & ".asp")) then
  response.write(include(page & ".asp"))
else
  response.write("Filen eksisterer ikke.")
end if

set fs = nothing
%>