Dim objFS,otf%>
Set objFS = CreateObject("Scripting.FileSystemObject")
Set otf = objFS.OpenTextFile(server.mappath("/include/filename.asp"), 1, False)
response.write otf.readall
otf.Close
set fs=nothing
<!--include file="file1.asp"-->else
<!--include file="file1.asp"-->End if %>