Uhm.. hvis du bare skal have udskrevet filen:
<%Option Explicit%>
<%Response.Expires = -1%>
<%
Const VIRTUEL_MAPPE = \"../prog/xml/\"
Const FILE_READ = 1, FILE_WRITE = 2
Dim action,retVal
action = Request(\"action\")
Select Case action
Case \" Vis indhold af filen \"
retVal = Request(\"target_file\")
Response.Write \"<p><font face=\'verdana\' color=\'#000033\' size=\'1\'><b>Indholdet af: \" & retVal & \"</b></p><p>\" & Replace(Replace(Server.HTMLEncode(LoadFile(retVal)),vbCrLf,\"<br>\"),\" \",\" \") & \"</font></p>\"
End Select
%>
<html>
<head>
<title>Læs XML fil</title>
</head>
<body>
<table border=\"2\" cellspacing=\"0\" cellpadding=\"0\">
<form action=\"
http://<%=Request.ServerVariables(\"SERVER_NAME\")%><%=Request.ServerVariables(\"URL\")%>\" method=\"post\">
<tr>
<td>Vælg den fil der skal læses</td>
<td align=\'right\'>
<%
If Left(VIRTUEL_MAPPE,1) = \"!\" Then
Response.Write ListFiles(Mid(VIRTUEL_MAPPE,2))
Else
Response.Write ListFiles(Server.MapPath(VIRTUEL_MAPPE))
End If
%>
</td>
</tr>
<tr>
<td align=\'right\' colspan=\"2\"><input type=\"submit\" name=\"action\" value=\" Vis indhold af filen \"></td>
</tr>
</table>
</form>
</body>
</html>
<%
Function LoadFile(Path)
Dim fso,fil \' FileSystemObject, File
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
\' Indlæs indholdet af filen
Set fil = fso.OpenTextFile(Path, FILE_READ)
LoadFile = fil.ReadAll
fil.Close
\' Roomservice (Ryd op i brugte objekter)
Set fil = Nothing
Set fso = Nothing
End Function
Function ListFiles(Path)
Dim fso,fo,fi \' FileSystemObject, Folder og File
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set fo = fso.GetFolder(Path)
ListFiles = \"<select name=\'target_file\' size=\'1\'>\" & vbCrLf
For Each fi In fo.Files
If LCase(Right(fi.name,3)) = \"xml\" Then ListFiles = ListFiles & String(3,Chr(9)) & \"<option value=\'\" & fi.path & \"\'>\" & fi.name & \"</option>\" & vbCrLf
Next
ListFiles = ListFiles & String(2,Chr(9)) & \"</select>\"
\' Roomservice (Ryd op i brugte objekter)
Set fi = Nothing
Set fo = Nothing
Set fso = Nothing
End Function
%>