Object variable not set 0

[kgd198294]

'检查并创建邮件数据库
Set mailDb = New notesDatabase("","HGmailntf.ntf") '邮件系统模板
fileName = Trim("mail\"+cgi.mailName(0)+".nsf")
Dim maildbtemp As notesdatabase
Set maildbtemp=session.getdatabase("",filename,False)

If maildbtemp.isopen=True Then
alertstr= "邮箱名为 "+cgi.mailname(0)+" 的邮箱已经存在了，不能注册"
Call printerr(alertstr)
Exit Sub
End If


众位高手，为什么我执行的时候老是出现　“Object variable not set 0”问题啊？

[kgd198294]

补充一下，这段语句在R5上运行没问题，在R6上运行就出现“Object variable not set 0”，这是什么原因啊要？

[maplescloud]

你贴出来的代码是 sub 和 end sub 之间所有的吗，你最好用 on error goto 来打出你出错的行是哪一行,从上面大概分析似乎是maildbtemp这个变量没有内容，也就是说没有对应名称的邮件文件存在，请检查cgi.mailName(0)的有效性。

[desertwolf81]

在
Set maildbtemp=session.getdatabase("",filename,False)

If maildbtemp.isopen=True Then
之间加入这个判断：
If maildbtemp Is Nothing Then
Msgbox "can't found mail db"
End if
看看。因为首先要判断NotesDatabase对象有没有创建，在用isopen去判断。

[hulaishun]

sub 函数名
on error goto 函数名Error

***
函数功能代码

***
exit sub

'函数错误处理
函数名Error：
msgbox “In the 函数名，the No。”＋cstr（erl）＋space（2）＋error$
exit sub

end sub

[hulaishun]

这样你监控后台，就知道数据库的哪行代码出错

[雷布斯尼亚]

两台服务器的配置一样吗，运行代理的用户在这两台服务器上的权限一样吗？