关于用vb编写的组件调用中出现的问题

[yuanrong]

组件中类模块的代码如下:

Private nsibcScriptingContext As ScriptingContext

Private nsibcApplication As Application

Private nsibcRequest As Request

Private nsibcResponse As Response

Private nsibcServer As Server

Private nsibcSession As Session

Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)

Set nsibcScriptingContext = PassedScriptingContext

Set nsibcApplication = nsibcScriptingContext.Application

Set nsibcRequest = nsibcScriptingContext.Request

Set nsibcResponse = nsibcScriptingContext.Response

Set nsibcServer = nsibcScriptingContext.Server

Set nsibcSession = nsibcScriptingContext.Session

End Sub

Public Sub OnEndPage()

Set nsibcScriptingContext = Nothing

Set nsibcApplication = Nothing

Set nsibcRequest = Nothing

Set nsibcResponse = Nothing

Set nsibcServer = Nothing

Set nsibcSession = Nothing

End Sub

Public Function Rs(strsql As String) As Recordset

Dim oConn As Connection

Dim oRs As Recordset

Dim strconnstring As String

Dim svrAddress As String

svrAddress = "(local);"

strconnstring = "driver={sql server};server=" + svrAddress
strconnstring = strconnstring & "uid=sa;pwd=82126sql;database=nsibc"

oConn.Open strconnstring

oRs.ActiveConnection = oConn

End Function

Public Function DataSourceConnection() As Variant

Dim svrAddress As String
svrAddress = "(local);"

DataSourceConnection = "driver={sql server};server=" + svrAddress
DataSourceConnection = DataSourceConnection & "uid=sa;pwd=82126sql;database=nsibc"

End Function


asp程序文件conn.asp中的调用代码:
<%
Set Conn=Server.CreateObject("nsibcADODB.nsibcConnection")
objConn=Conn.DataSourceConnection()
application("strconn")=objConn
%>


另一个asp程序文件中的执行代码:
<!--#include file="../conn.asp"-->
<%
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select M_Card from G_Member where M_Card = '"&M_Card&"'"
rs.open sql,application("strconn"),1,1
if rs.recordcount>0 then
.....
end if
rs.close
set rs=nothing
%>

这段都可以正常执行,但是下面这段往数据库里写入数据的代码就有问题了:
sql="insert into G_Member(M_Name,M_Grade,M_Card,M_PW)"
sql=sql & "values('"&request("M_Name")&"','"&request("M_Grad")e&"','"&request("M_Card")&"','"&request("M_PW")&"')"
application("strconn").execute sql

程序提示:

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'application(...)'

不明白,还请大家指教,谢谢!

[yuanrong]

补充一下，上面两段代码都在同一个asp程序文件里。第一段先执行，第二段后执行。

[online]

Public Function DataSourceConnection() As Variant
少open操作

objConn=Conn.DataSourceConnection()
'下面这句就不要了
application("strconn")=objConn

改称
objconn.execute sql

[online]

rs.open sql,application("strconn"),1,1
我怀疑这句就没有执行
你跟踪一下

[yuanrong]

谢谢online.

[yuanrong]

没有朋友会这方面的问题吗？
唉~~~`

[yuanrong]

还是不行，还是出现一样的提示。
请问如何解决？
急，谢谢！