Invalid procedure call or argument

xingame

------------------错误信息-----------------------------
Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

/esep21/Install.asp, line 503


-------------------------------------------------


-----------------相应代码----------------------------------


491    ........

492    Sub CreatSkinFile()
493              If Not fso.FolderExists(Server.MapPath(InstallDir & "Skin")) Then
494                fso.CreateFolder (Server.MapPath(InstallDir & "Skin"))
495              End If
496
497          Dim rsSkin, sqlSkin, hf
498          sqlSkin = "select * from PE_Skin"
499          Set rsSkin = Server.CreateObject("adodb.recordset")
500          rsSkin.Open sqlSkin, Conn, 1, 1
501          Do While Not rsSkin.EOF
502             Set hf = fso.CreateTextFile(Server.MapPath(InstallDir & "Skin/Skin" & rsSkin("SkinID") & ".css"), True)
503           hf.Write Replace_CaseInsensitive(rsSkin("Skin_CSS"), "Skin/", InstallDir & "Skin/")
504           hf.Close
505           rsSkin.MoveNext
506         Loop
507        rsSkin.Close
508       sqlSkin = "select * from PE_Skin where IsDefault=" & PE_True & ""
509       rsSkin.Open sqlSkin, Conn, 1, 1
510       If rsSkin.BOF And rsSkin.EOF Then
511        FoundErr = True
512        ErrMsg = ErrMsg & "<br><li>没有默认风格！</li>"
513     Else
514        Set hf = fso.CreateTextFile(Server.MapPath(InstallDir & "Skin/DefaultSkin.css"), True)
515        hf.Write Replace_CaseInsensitive(rsSkin("Skin_CSS"), "Skin/", InstallDir & "Skin/")
516        hf.Close
517    End If
518    rsSkin.Close
519    Set rsSkin = Nothing
520   End Sub

521   ......


-----------------------------------------------------------------

bingu

修改代码也要人帮忙？