我在执行Set tfolder = fso.GetSpecialFolder(SystemFolder)的时候提示错误

[prettyheart]

我的代码如下：
on error resume next

dim Conn '设置下载数据库连接
Dim xmlDoc
Dim nodeList
Dim length
dim strConn
Dim strDbType
dim strServerName '服务器名
dim strUserName '用户名
dim strPsw '密码
dim strDbName '数据库名
dim strPath
Dim fso, SystemFolder '系统目录
Dim tfolder, tname, tfile

'读取下载数据库连接
SystemFolder = 1
Set fso = CreateObject("Scripting.FileSystemObject")

Set tfolder = fso.GetSpecialFolder(SystemFolder)
Response.Write Err.Description
%>
错误如下：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Active Server Pages 错误 'ASP 0115'

意外错误

/test.asp

外部对象中发生一个可捕捉的错误(C0000005)。脚本无法继续执行。

我在别的计算机上，都是好的，我的win2000 pro是正版，iis是盗版，和这有关系吗？谢谢给我解答一下。

[liyan010]

fso.GetSpecialFolder(0)="c:\windows"
fso.GetSpecialFolder(1)="c:\windows\system32"
fso.GetSpecialFolder(2)=用户临时文件夹
一般说来,不同的系统有可能有细微差别