求救！一个急于解决的问题关于Application()对象使用？？？？？

[tfhui928]

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'Application(...)'
/check.asp，行6

check.asp程序：
<%
Response.Buffer=true
Response.Expires=0
session("fw")=request("userbm")
userbm=request("userbm")
set khCon = Application("khCon")

username=request("cs")
passwd=request("pwd")
shenfen=request("shenfen")
set rs=server.createobject("adodb.recordset")
sql="select * from CLIENT_AUTHOR where NAME='"& username &"' and PSW='"& passwd &"' and SF='"& shenfen &"' and DEP='"& userbm &"'"
rs.open sql,khCon,3,1
if not rs is nothing then
if rs.state=1 then
if not rs.eof and not rs.bof then
session("username")=username
session("password")=passwd
session("levell")=rs("levell")
session("cname")=rs("cname")
session("levellname")=rs("levellname")
session("depart")=rs("depart")
session("shenfen")=shenfen
session("id")=rs("id")
session("dep")=rs("dep")
if shenfen="sys" then response.redirect "system/system.asp"
if shenfen="tab" then response.redirect "money/money.asp"
response.redirect "manage/default.asp"
end if
end if
end if
response.write"<SCRIPT language=JavaScript>alert('对不起，您的身份无法得到确认！请检查！');"
response.write"javascript:history.go(-1)</SCRIPT>"
%>

[cjf1009]

Application("khCon")：在服务器端没有创建这个变量。
去global.asa文件里去找。

[angelheavens]

khCon = Application("khCon")

[tfhui928]

我看了没错啊！昨天还运行的好好的呢！
是不是配置有什么问题啊！
global.asa程序：

<SCRIPT LANGUAGE=VBSCRIPT RUNAT=SERVER>
SUB Application_OnStart
set khCon=Server.CreateObject("ADODB.Connection")
khCon.CursorLocation = 3
khCon.Open "DSN=client;UID=sa;PWD="
set Application("khCon")= khCon
END SUB

SUB Session_OnStart
session.Timeout=120
END SUB

SUB Session_OnEnd
'dim ei
'set ei = Application("em")
'ei.Logout Session("wem"), Session("tid")
'set ei = nothing
END SUB


SUB Application_OnEnd
Application.Lock
Set Application("em") = nothing
Application.Unlock
END SUB

</SCRIPT>

[tfhui928]

谁能帮我解决下啊！
急啊·
在线等待！

[guihengzhang]

angelheavens(龙辉) 说了
khCon = Application("khCon") 有问题
该加个Set

[tfhui928]

set khCon = Application("khCon")
我的没错，他写错了

[tfhui928]

谁能快点帮帮我啊！急！

[tfhui928]

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[INTERSOLV][ODBC SQL Server driver]Insufficient information to connect to the data source.

//global.asa，行6

这问题如何解决啊！