<% Dim nArtist Dim nSong Set bwoFile = Server.CreateObject("Scripting.FileSystemObject") Set bwoFile = bwoFile.OpenTextFile(Request.ServerVariables ("APPL_PHYSICAL_PATH") & "upd.txt",1) nArtist = bwoFile.ReadLine() nSong = bwoFile.ReadLine() bwoFile.Close %>

On Air: <%response.write(replace(nArtist,"\","") & " - " & replace(nSong,"\",""))%>