|
#2
永夜的极光2007-10-17 10:10
|
strsql="SELECT * FROM songzw.Require_Bill INNER JOIN"
strsql=strsql&"REQUIRE_ESTI ON songzw.Require_Bill.FLOWSN = REQUIRE_ESTI.IT_NO Where REQUIRE_ESTI.EVALUATEMEMBER = '" & UserName & "' And REQUIRE_ESTI.IT_NO = '" & FLOWSN & "' "
response.Write(strsql)
set Rsr = server.CreateObject("Adodb.Recordset")
rsr.open strsql ,conn,1,1
nBENTFIT = request("BENTFIT")
REQUIREHOUR = request("REQUIREHOUR")
ANALYSEHOUR = request("ANALYSEHOUR")
CODEHOUR = request("CODEHOUR")
TESTHOUR = request("TESTHOUR")
ESTIMATETIME = request("ESTIMATETIME")
ItTotalTime = request("ItTotalTime")
' ItTotalTime = nREQUIREHOUR + nANALYSEHOUR + nCODEHOUR + nTESTHOUR
if nBENTFIT< ItTotalTime then
' if request("REQUIREHOUR") <>"" then
set cneo=server.createobject("ADODB.CONNECTION")
strOracon = "Provider=MSDAORA.1; Persist Security Info=True;User ID=eosms; Password=eofficesms; Data Source=EOFFICE"
cneo.open strOracon
sysdate=date()
temprs = cneo.Execute("select EOFFICE.S_SY_MsgSend.nextval from dual")
\ if ItUserID <>"" then
subject = "<center>部门：" & APPLY_DEPARTMENT & "<br>用户：" & APPLIER & "<br>需求主旨：" & MAJOR_IDEA & "<br>提出日期：" & APPLY_TIME & "<br>需求提出确定日" & Now & "<br>效益太低<br><br><br>http://eoffice.soueast-motor.com/newit/<br></center>"
sql1="insert into EOFFICE.SY_MsgSend(MS_ID,ms_content,ms_sendtime,ms_type,ms_sender,MS_Status,MS_MsgSource) VALUES ("&temprs(0)&",'"& subject &"',sysdate,'1',1,1,2)"
cneo.execute(sql1)
' response.write sql1
sql2="insert into EOFFICE.SY_MsgReceiver(ms_id, mr_receiver, mr_mobileno, mr_type, mr_isread,mr_readdate) values ("&temprs(0)&",' 130001 ','','1',0,sysdate)"
cneo.execute(sql2)
' response.write sql2
end if
set Rss=nothing
这是在OA上的短信功能,提示错误,就在红字那,奇怪都没有on咧,而且似乎没有错误呀,高手帮帮忙
Microsoft OLE DB Provider for SQL Server 错误 '80040e14'
在关键字 'ON' 附近有语法错误。