<%
Sub Include(strDosya)
SET FSO = Server.CreateObject(”Scripting.FileSystemObject”) ‘=> Dosya sistemi nesnemizi yarattık.
SET Oku = Fso.OpenTExtFile(Server.Mappath(strDosya)) ‘include yapacağımız dosyayı açtık
strKodlar = Oku.ReadAll ‘=> Kodlarımızı aldık
Oku.Close ‘=> Nesnemizi durdurduk.
Set oku = Nothing ‘=> Nesnemizi temizledik.
Set Fso = NoThing ‘=> Nesnemizi temizledik.
Execute(strKodlar) ‘=> Kodlarımı çalıştırdık.
End Sub
%>
Yukarıdaki işlemi yaptıktan sonra Respose.Write yapmanız gerekmektedir.