<% fName = Request.Querystring("fName") Set Obj = Server.CreateObject("Scripting.FileSystemObject") ' Response.Write(sPath & "/" & fName & ".tpl") ' Response.End If Obj.FileExists(Server.MapPath(sPath) & "/" & fName & ".tpl") Then Set objFile = Obj.OpenTextFile(Server.MapPath(sPath) & "/" & fName & ".tpl") sTxt = objFile.ReadAll objFile.Close Set objFile = Nothing Session("debug") = Now() & " " & "Filen 'templates/" & fName & ".tpl' förhandsgranskas..." & VbCrLf & Session("debug") Response.Write(fCode(sTxt)) ' Server.Execute(sPath & "/" & fName & ".tpl") Else Response.Write("
Välj en fil att förhandsgranska.
") End If %>