% Dim oFile, oFso, sFileText Set oFso = Server.CreateObject("Scripting.FileSystemObject") if (oFso.FileExists(Server.MapPath("../pohjat/HEADER.HTM")) = true) then Set oFile = oFso.OpenTextFile(Server.MapPath("../pohjat/HEADER.HTM"), 1) sFileText = oFile.readAll oFile.close set oFile = Nothing sFileText = Replace(sFileText, "", "
", 1, -1) sFileText = Replace(sFileText, "", "Sulje haku", 1, -1) select case (sApp) case "5" 'perusaski sFileText = Replace(sFileText, "", "