大G，大J，帮忙进来看一下这段代码好嘛？

[wukol]

Function SJmail(Sname,ToEmail,Subject,mailbody,sTime) 'send email
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "[e-mail]"
msg.MailServerPassword = "pasewsd45784"
msg.From = "[e-mail]"
msg.FromName = Sname
msg.AddRecipient ToEmail
msg.DeferredDelivery = sTime
msg.Subject = Subject
msg.Body = mailbody
isgo=msg.Send ("smtp.pawa.cn")
msg.close()
set msg = nothing
End Function


sqls="select * from user where name='"&session("name")&"'"
set rss=server.createobject("adodb.recordset")
rss.open sqls,conn,1,3
if not rss.eof and not rss.bof then
birthday=mid(rss("birthday"),1,5)&"/"&YEAR(DATE)
userid=rss("id")
end if
rss.close
set rss=nothing

if trim(request.form("fre"))="1" or request.form("fre")=1 then　　'频率
if datediff("d",date,birthday) then
'response.write birthday
'response.write datediff("d",date,birthday)
for j=0 to cint(datediff("d",date,birthday))
sTime=dateadd("d",j,date)
'response.write sTime
isgo=SJmail(request.form("name"),request.form("email"),"自己的生日提醒",request.form("desc"),sTime)
next
end if
end if


这上一段根据频率定时发送生日提醒的邮件。
isgo=SJmail(request.form("name"),request.form("email"),"自己的生日提醒",request.form("desc"),sTime)
这句加上去就死掉。提示运行时间过长。
注释掉，就能正确输出这些时间。
这，错了嘛？？？

[wukol]

5555

为什么每次都没人理我呢？？

是我问的问题太笨了嘛？还是？

[Yjanuary]

帮你up！

[wukol]

哎，都沉下来了。。

心好痛呀。。

[xiangjiao1982]

你自己先分析一下把问题提明确点
谁有工夫帮你看这么长的程序啊

[wukol]

明确的就是：
JMAIL　组件　的　DeferredDelivery　不可用。
不会延时发送邮件。

我好像没说话不全的嘛。

我要延时发送。。。