<%@ LANGUAGE="VBSCRIPT" %> <% dim pageTop dim pageBottom dim theContent dim webPage_name webPage_name = "One_Campaign_Resources" Dim fso, fldr, isFolder ' Get instance of FileSystemObject. Set fso = CreateObject("Scripting.FileSystemObject") ' Check Folder Existance. isFile = fso.FileExists(server.mapPath("templates/pageTopNew11.html")) if (isFile = true) Then pageTop = getFile(server.mappath("templates/pageTopNew11.html")) end if isFile = fso.FileExists(server.mapPath("templates/pageBottomNew11.html")) if (isFile = true) Then pageBottom = getFile(server.mappath("templates/pageBottomNew11.html")) end if isFile = fso.FileExists(server.mapPath("theContent/" & webPage_name & ".html")) if (isFile = true) Then theContent = getFile(server.mappath("theContent/" & webPage_name & ".html")) else theContent = "test" end if set isFile = nothing set fso = nothing response.write pageTop & "

" response.write theContent & "

" response.write pageBottom %>