Suporte

Gerando arquivos XML com ASP

<%Response.Charset="ISO-8859-1"
Dim objFS
arquivo = "xmlteste.xml"
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set ObjTextS = objFS.CreateTextFile(Server.MapPath(arquivo), True, False)
    texto = "<galeria>"
    texto = texto & "<image thmb="imagem/1.gif" url="index.html"/>" & vbCrLf
    texto = texto & "</gallery>"
ObjTextS.Write texto
Set objTextS = Nothing
response.write "O arquivo (" & arquivo & ") foi criado com sucesso"
Set objFS = Nothing%>