Código PHP:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%'borro el fichero
Sub borra(direccio, arxiu)
'Sub borra(arxiu)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile(direccio & "\" & arxiu),true
'FSO.DeleteFile(arxiu),true
Response.Write("l'arxiu s'ha borrat correctement. ")
Set FSO = Nothing
End Sub
Dim arxiu
Dim direccio
direccio = Server.MapPath("\bastoners\arxius\")
arxiu = "noticies.xml"
borra direccio, arxiu
%>
<br><br>
<%
'fabrico el erchivo
Sub crea(direccio, arxiu)
'Sub borra(arxiu)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.createTextFile(direccio & "\" & arxiu),true
'FSO.DeleteFile(arxiu),true
Response.Write("el fitxer creat correctement. ")
Set FSO = Nothing
End Sub
crea direccio, arxiu
'inserto contenido
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set oFich = FSO.createTextFile(Server.MapPath("noticies.xml"),true)
oFich.write ("<?xml version=""1.0""?>"& vbCrlf)
oFich.Write ("<xmlticker>"& vbCrlf)
oFich.Write ("<pause>2000</pause>"& vbCrlf)
oFich.Write ("<message url=""noticies.aps?id=1"" class=""menu_sota"">ja està programada la nova sortida a la fi del mon</message>"& VbCrlf)
oFich.Write ("<message url=""noticies.aps?id=2"" class=""menu_sota"">Estrenem vestit nou, creat per la maria</message>"& VbCrlf)
oFich.Write ("<message url=""noticies.aps?id=3"" class=""menu_sota"">Ens assosciem a la associacio de bastoners de catalunya </message>"& VbCrlf)
oFich.Write ("</xmlticker>")
oFich.Close
%>
alguien sabe alguna solución?
gracias