<% Set fso = CreateObject("Scripting.FileSystemObject") UpdateName = "updates/update.txt" strPhysicalPath = Server.MapPath(UpdateName) Set f1 = fso.OpenTextFile(strPhysicalPath, 1) strPhysicalPath = Server.MapPath("ordergrain.htm") Set template = fso.OpenTextFile(strPhysicalPath,1) tempfile = template.ReadAll Do while not f1.AtEndOfStream a = F1.readline op = Split(a,"=") tempfile = Replace(tempfile,op(0),op(1)) Loop F1.Close Response.Write tempfile %>