<% dim s s=Request.QueryString("song") Set fs=Server.CreateObject("Scripting.FileSystemObject") If s<>"" then Set f=fs.OpenTextFile(Server.MapPath("text.txt"),2,true) f.WriteLine(s) f.Close Set f=Nothing Else If (fs.FileExists(Server.MapPath("text.txt")))=true Then Set f=fs.OpenTextFile(Server.MapPath("text.txt"),1) Response.Write("On air: "+f.ReadAll) f.Close Set f=Nothing End if End if Set fs=Nothing %>