Ciao!! si puo tradurre questo script in php??
<%

Dim strLinea, FileObject, Instream, intVisite, intTipo, OutStream


newname = Trim(Request("newname"))
title = Trim(Request("title"))
themsg = Trim(Request("themsg"))
dataflash = FormatDateTime( Now(),1)
filexml = Request("filexml")

strFile = Server.MapPath(filexml)

' creo l'oggetto
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

' apro il file
intTipo = 8
Set OutStream = FileObject.OpenTextFile(strFile, intTipo, true)

' Ci metto i dati dentro
OutStream.Write("<nome>"&newname&"</nome><titolo>"&title&"</titolo><msg>"&themsg&"</msg><data>"&dataflash&"</data>")


' libero risorse
OutStream.Close
Set OutStream = Nothing

Set FileObject = Nothing


Response.Write("att=ok")




%>