<%
 function ReadFromFile(Name) 
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
    Const fsoForReading = 1 
    Dim objTextStream 
    Set objTextStream = objFSO.OpenTextFile(Server.MapPath(Name), fsoForReading) 
    ReadFromFile=objTextStream.ReadAll 
  end function
%><%=ReadFromFile("template.html")%>