求大神帮忙看看

小弟实在找不着在哪里 请各位大神伸出援手 谢谢啦

Microsoft JET Database Engine 错误 '80040e14'

语法错误 (操作符丢失) 在查询表达式 'ID=' 中。

D:\WWWROOT\YOUYOU8732\WWWROOT\ADMIN\XINXI\../../inc/func.asp，行 45

具体的代码为

<%sub showerr(str)
response.write "<script>alert('"&str&"');history.go(-1);</script>"
response.endend sub
sub showmsg(str,url)
response.write "<script>alert('"&str&"');location.href='"&url&"';</script>"end sub
function htmlencode(fString)     fString = replace(fString, ">", "&gt;")  fString = replace(fString, "<", "&lt;")  fString = Replace(fString, chr(32), "&nbsp;")  fString = Replace(fString, CHR(10) & CHR(10), "</p><p>")  fString = Replace(fString, CHR(10), "<br>")  htmlencode=fStringEnd Function
Sub DoDelFile(sPathFile)  On Error Resume Next  Dim oFSO  Set oFSO = Server.CreateObject("Scripting.FileSystemObject")  oFSO.DeleteFile(Server.MapPath(sPathFile))  Set oFSO = NothingEnd Sub
function getfilename(str)
dim pos
pos=instr(str,".")
if str<>"" then
str=mid(str,pos,len(str))
end if
getfilename=strend function
FUNCTION NEWS_CLASSNAME(STR)
DIM RS_CLASS
SET RS_CLASS=CONN.EXECUTE("SELECT NEWS_CLASS FROM HR_NEWS_CLASS WHERE ID="&STR)
NEWS_CLASSNAME=RS_CLASS("NEWS_CLASS")END FUNCTION
FUNCTION CLASSNAME(STR)
DIM RS_CLASS
SET RS_CLASS=CONN.EXECUTE("SELECT classname FROM CLASS WHERE ID="&STR) 出错的45行代码
CLASSNAME=RS_CLASS("classname") END FUNCTION
FUNCTION NCLASSNAME(STR)
DIM RS_CLASS
SET RS_CLASS=CONN.EXECUTE("SELECT nclassname FROM NCLASS WHERE ID="&STR)
NCLASSNAME=RS_CLASS("nclassname")END FUNCTION%>

我为人人，，，人人为我。。。。。