|
<%
Dim objFile1,objFso1
Dim strFileName1, strPath1
dim strPageContent1
strFileName1 = "_#!*INCLUDEFILENAME*!#"
strPath1 = Server.MapPath("/singleclicksolutions/contentdir")
strPath1 =strPath1 & "/" & strFileName1
Set objFso1 = Server.CreateObject("Scripting.FileSystemObject")
if objFso1.FileExists(strPath1) Then
Set objFile1 = objFso1.OpenTextFile(strPath1)
strPageContent1 = objFile1.ReadAll
Response.Write strPageContent1
end if
%>
|
