Opret XML fil
Jeg har store problemer med at få skrevet en XML fil.Koden ser således ud:
<%
xml_start = "<?xml version=""1.0"" encoding=""windows-1252""?>" & vbCrLf & vbCrLf
xml_templateStart = "<course_data>" & vbCrLf
xml_templateEnd = "</course_data>" & vbCrLf
strXML = strXML & "<item>"
strXML = strXML & "<title>Test</title>"
strXML = strXML & "</item>"
strFinalXML = xml_start & xml_templateStart & strXML & xml_templateEnd
Dim objFSO : Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Set objXMLFile = objFSO.CreateTextFile( Server.MapPath("tmp_65498754.xml") , true )
objXMLFile.Write(strFinalXML)
objXMLFile.Close
objFSO.Close
response.write("Filen er nu oprettet...")
%>
Håber I kan hjælpe.
MVH
Garnet
