עזרה עם FSO

עבדתי לפי המדריך שיש ב asp.org.il כדי ליצור חיפוש עם FSO
אבל יש לי שגיאה כזו:

|5|ASP_0221|Invalid_@_Command_directive 200 0 1484 554 16

הקוד הוא כזה:

<%@ Language=VBScript CodePage=1255 %.

<%

Dim objFolder
Dim strSearchText
Dim objFSO

strSearchText = Request.Form("SearchText")  <– מחרוזת החיפוש

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("/"))

Search objFolder

Function Search(objFolder)
  Dim objSubFolder

  For Each objFile in objFolder.Files
    Set objTextStream = objFSO.OpenTextFile(objFile.Path,1) <– For Reading

        strFileContents = objTextStream.ReadAll

        If InStr(1, strFileContents, strSearchText, 1) then
           Response.Write "<A HREF=""/" & objFile.Name & _
                """>" & objFile.Name & "</A><BR>"
           bolFileFound = True
        End If

        objTextStream.Close
  Next

  For Each objSubFolder in objFolder.SubFolders
        Search objSubFolder
  Next
End Function

%>