Lave Script lidt Om!?

Jeg vil gerne have skrevet dette om, sådan at ShowFolderList ikke Ligger i en Funktion?

Function ShowFolderList
  Dim fso, f, f1, s, sf
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.GetFolder(Server.MapPath(\".\"))
  Set sf = f.SubFolders

  For Each f1 in sf
      s = s & f1.name
      s = s & \"<BR>\"
  Next
  ShowFolderList = s
End Function