这是我的实例,但是还是提示错误,请指教!(Microsoft VBScript 运行时错误 (0x800A01A8)缺少对象: 'rs3')
<% set rs1=Server.CreateObject("adodb.recordset")
sql1= "SELECT * FROM alertdata WHERE txzt='需要提醒' and syname='"&session("UserName")&"' and szlx='每周定期提醒' "
rs1.open sql1,conn,1,1
if not rs1.eof then
response.write "<script language='javascript'>"
response.write "parent.getMsg2();"
response.write "parent.popalertcontent.location(../everyweeknotice.asp;)"
response.write "</script>"
set rs2=Server.CreateObject("adodb.recordset")
sql2= "SELECT * FROM alertdata WHERE txzt='需要提醒' and syname='"&session("UserName")&"' and szlx='每月定期提醒' and rishu>=day(date())"
rs2.open sql2,conn,1,1
if not rs2.eof then
response.write "<script language='javascript'>"
response.write "parent.getMsg2();"
response.write "parent.popalertcontent.location(../everymonthnotice.asp;)"
response.write "</script>"
set rs3=Server.CreateObject("adodb.recordset")
sql3= "SELECT * FROM alertdata WHERE txzt='需要提醒' and syname='"&session("UserName")&"' and and szlx='固定时间提醒' and szrq>=date() and szsj=< time() "
rs3.open sql3,conn,1,1
if not rs3.eof then
response.write "<script language='javascript'>"
response.write "parent.getMsg2();"
response.write "parent.popalertcontent.location(../realtimenotice.asp;)"
response.write "</script>"
set rs4=Server.CreateObject("adodb.recordset")
sql4= "SELECT * FROM alertdata WHERE txzt='需要提醒' and syname='"&session("UserName")&"' and szlx='每天定时提醒' and szsj< time()"
rs4.open sql4,conn,1,1
if not rs4.eof then
response.write "<script language='javascript'>"
response.write "parent.getMsg2();"
response.write "parent.popalertcontent.location(../everydaynotice.asp;)"
response.write "</script>"
response.end
end if
end if
end if
end if
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
rs3.close
set rs3=nothing
rs4.close
set rs4=nothing
%>
[[it] 本帖最后由 boyfuture 于 2008-1-29 21:37 编辑 [/it]]