64位windows环境，无法给bookmark赋值

[lxzyan]

以下是代码。

set msql=server.createobject("ADODB.CONNECTION")
msql.open "Driver={SQL Server};Server=(local);Database=ddd;Uid=sa;Pwd=bbbb;"

dim d
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open "select * from sys_otherweb",msql,1,3
while not rs.eof
  if cInt(rs("id"))=10 then
    d=rs.Bookmark
  end if
  response.write(rs("id")&"-"&rs.bookMark&"<br>")
  rs.MoveNext
wend
rs.Bookmark=d
response.write(rs("id")&"-<br>")
while not rs.eof
  if cInt(rs("id"))=10 then
    d=rs.Bookmark
  end if
  response.write(rs("id")&"-"&rs.bookMark&"<br>")
  rs.MoveNext
wend

在相同的windows2008 64位服务器上，对以上程序所在的应用程序池，如启用32位应用程序，以上代码可以顺利输入，没有任何问题。但如果不启用32位应用程序，即在64位环境下，上述程序中“rs.Bookmark=d”这句会报错，提示：参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。试过各种办法均无解。求助大家了。

[csdn_aspnet]

dim d 去掉 或者在代码第一行加上<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 试试

[lxzyan]

引用 1 楼 hefeng_aspnet 的回复:

dim d 去掉 或者在代码第一行加上<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 试试

不行：（

[lxzyan]

再次求助！！