<% On Error Resume Next Dim objFSO, objFile Dim strFileName Dim itxt strFileName = Server.MapPath("/admin/news.smc") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(strFileName, 1, True) If Not objFile.AtEndOfStream Then itxt = objFile.ReadAll Else itxt = "===== BEGIN =====" End If objFile.Close Set objFile = Nothing Set objFSO = Nothing %> <% response.write itxt %>