filesystemobject og asx

jeg skal generere en asx fil
den ehr kode siger ikke fejl
men den genererer heller ikke en asx fil ! hurra! lol
koden kommer her:

<%
Set FileSystemFile = CreateObject("Scripting.FileSystemObject")
FileSystemFile.CreateTextFile "C:\Inetpub\test.asx"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set Filesystem = CreateObject("Scripting.FileSystemObject")
Set FilesystemFileContext = Filesystem.OpenTextFile("C:\Inetpub\test.asx", 2, true)
'FilesystemFileContext.WriteLine ("<br>- ") & skod
FilesystemFileContext.WriteLine ("<ASX VERSION='3.0' PREVIEWMODE='NO' >")
FilesystemFileContext.WriteLine ("<ENTRY>")
FilesystemFileContext.WriteLine ("<TITLE>Example Clip</TITLE>")
FilesystemFileContext.WriteLine ("<REF  HREF = 'mms://129.142.131.36/rejsegalleriet/fantacy/250.wmv' />")
FilesystemFileContext.WriteLine ("<STARTTIME VALUE='1:30.0' />")
FilesystemFileContext.WriteLine ("<STARTTIME VALUE='1:30.0' />")
FilesystemFileContext.WriteLine ("<ENTRY>")
FilesystemFileContext.WriteLine ("</ASX>")
FilesystemFileContext.Close
Set FilesystemFileContext = Nothing
Set FileSystemFile = Nothing

%>