<%

Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")

Set MyOutStream=MyFileObj.CreateTextfile(Server.MapPath("../ads/adrot.txt"))
  MyOutStream.Write(Request.Form("new"))
MyOutStream.Close
Set MyFileObj = nothing
Response.Redirect "updateads.asp"

%>