Invalid procedure call or argument

\"
Microsoft VBScript runtime error \'800a0005\'
Invalid procedure call or argument
/ftp/filting.asp, line 30
\"

Men hvor, her er koden.
Linie 30 er \"    Set objDrive = colDrives.Item(CStr(strLetter))\"

Håber i gider :)
Kan slet ikke selv fange den.

<%
        Response.Write \"<html>\"
        Response.Write \"<head>\"
        Response.Write \"<title>cms ting</title>\"
        Response.Write \"<link rel=\"\"stylesheet\"\" href=\"\"../incl/css.css\"\">\"
        Response.Write \"</head>\"
        Response.Write \"<body>\"
       
Dim objFSO, colDrives, objDrive, strLetter, strDriveType, objFSO2, F, Cfiles
   
    Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set colDrives = objFSO.Drives

        Response.Write \"<b>Tilgængelige drev : \" & colDrives.Count & \"</b><br><hr><br>\"
        Response.Write \"Vælg venligst drev\"
        Response.Write \"<form method=\"\"post\"\" action=\"\"filting.asp\"\">\"
        Response.Write \"<select name=\"\"drevnavn\"\" class=\"\"input\"\">\"

    For Each objDrive In colDrives
        Response.Write \"<option>\" & lCase(objDrive.DriveLetter) & \":\\></option>\"
    Next

        Response.Write \"</select>\"
        Response.Write \"<input type=\"\"submit\"\" name=\"\"submit\"\" value=\"\"Egenskaber\"\" class=\"\"submit\"\">\"
        Response.Write \"</from><br><hr><br>\"
        Response.Write \"<b>Egenskaber for drev :</b><br>\"
   
strLetter = Request.Form(\"drevnavn\")
    If strLetter <> \"\" Then
    Set objDrive = colDrives.Item(CStr(strLetter))
   
        Response.Write \"Drev \" & objDrive.DriveLetter & \"<br>\"
   
    Select Case objDrive.DriveType
        Case 1
            strDriveType = \"Flytbar\"
        Case 2
            strDriveType = \"Fixed\"
        Case 3
            strDriveType = \"Netværks drev\"
        Case 4
            strDriveType = \"CD-ROM\"
        Case 5
            strDriveType = \"RAM Disk\"
        Case Else
            strDriveType = \"Ukendt\"
    End Select
   
        Response.Write \"Drev type : \" & strDriveType & \"<br>\"

    If objDrive.IsReady = false Then
       
        Response.Write \"Drev \" & strLetter & \" er ikke klar <br>\"
   
    Else
   
        Response.Write \"Fil system : \" & objDrive.FileSystem & \"<br>\"
        Response.Write \"Tilgængelig plads : \" & objDrive.FreeSpace & \"<br>\"
        Response.Write \"Total størrelse : \" & objDrive.TotalSize & \"<br>\"
        Response.Write \"Hoved mappe : \" & objDrive.RootFolder & \"<br>\"
        Response.Write \"Netværks navn : \" & objDrive.ShareName & \"<br>\"
        Response.Write \"Disk navn : \" & objDrive.VolumeName & \"<br>\"
   
    End If
    End If

    Set objFSO2 = CreateObject(\"Scripting.FileSystemObject\")
    Set F = FSO.GetFolder(Left(Request.ServerVariables(\"PATH_TRANSLATED\"), InStrRev(Request.ServerVariables(\"PATH_TRANSLATED\"), \"\\\")))

    Set CFiles = F.Files
   
    For Each Ting In CFiles
        Response.Write \"<a href=\'\" & Ting.Name & \"\'>\" & Ting.Name & \"</a><br>\"
    Next

        Response.Write \"</body>\"
        Response.Write \"</html>\"
%>