<%
    Function IncludeFile(strFileName)

    	Dim objFileSys
    	Dim objTextString

    	Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
    	Set objTextString = objFileSys.OpenTextFile(Server.MapPath(strFileName))

    	IncludeFile = objTextString.ReadAll

    	objTextString.Close
    	Set objTextString = Nothing
    	Set objFileSys = Nothing

    End Function
	
dim Content
Content = Request.ServerVariables("PATH_INFO")
Content =  "c" & Content
			
response.write IncludeFile(Content)
%>