Åbne en bestemt fil
<%Response.Buffer = True
dim sti,fso,folder,files
sti = server.MapPath(".")
Set fso = createobject("scripting.filesystemobject")
Set folder = fso.getfolder(sti)
Set files = folder.files
for each file in files
if LCase(fso.GetExtensionName(file.name)) = "xml" and inStr(1,Lcase(file.name), "test_data_") > 0 then
filnavn = file.name
exit for
end if
next
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
xml.load (Server.MapPath(filnavn))
Dim title, heading, paragraph, testHTML
Fornavn = xml.documentElement.childNodes(0).text
Efternavn = xml.documentElement.childNodes(1).text
Adresse = xml.documentElement.childNodes(2).text
Postnr = xml.documentElement.childNodes(3).text
By = xml.documentElement.childNodes(4).text
Set xml = Nothing
%>
Jeg skal åbne en bestemt xml-fil på serveren.
Filen bliver automatisk genereret af et eksternt program.
Filen hedder test_data_xxxx.xml hvor x'erne er vilkårlige tal og bogstaver.
Der findes også en test_data.xml, men det er den anden som skal åbnes
Jeg har prøvet med nedenstående script uden succes.
Kan man gøre andet - f.eks sige at filen skal være over 9 tegn?
På forhånd tak
----------------------------script-----------
<html>
<head>
<title></title>
</head>
<body>
<h3 align="center"><%= fornavn %> <%= efternavn %></h3>
<p align="center"><% = adresse %></p>
<div align="center"><%= postnr %><%= by %></div>
</body>
</html>
