dim rsp5,sqlp5
set rsp5 = createobject("adodb.recordset")
sqlp5 = "select * from order_wedding o,cusreserve c,sale_detail s,product p ,buy_products b where p.pro_id='06' and o.user_login=c.user_login and o.sale_id=s.sale_id and o.sale_id=b.sale_id and b.id like 'CA%' and p.id like 'CA%' and s.id like 'CA%' and p.id=s.id and s.id=b.id and b.status = 'สั่งซื้อ'"
rsp5.Open sqlp5,conn,1,3
do while not rsp5.eof
id = rsp5("id")
days = rsp5("day_want")
dats = cstr(year(days))+"-"+ cstr(month(days)) + "-"+cstr(day(days))
da= DateAdd("D",-13,dats)
session("daa") = cstr(year(da)+543)+"-"+ cstr(month(da)) + "-"+cstr(day(da)) ' วันที่สั่งสินค้า
session("now_date") = cstr(year(date))+"-"+ cstr(month(date)) + "-"+cstr(day(date)) ' วันที่ปัจจุบัน
เอาวันที่ปัจจุบันมาเทียบ ว่า เท่ากับ วันที่สั่งสินค้า หรือเปล่า ถ้าใช่ ให้สั่ง
if session("daa") = session("now_date") then
check = 1
Dim rs,sql
set rs = createobject("adodb.recordset")
sql = "select * from order_wedding o,cusreserve c,sale_detail s,product p ,buy_products b where b.day_want ='"& dats &"' and p.pro_id='06' and o.user_login=c.user_login and o.sale_id=s.sale_id and o.sale_id=b.sale_id and b.id = '"& id &"' and p.id = '"& id &"' and s.id = '"& id &"' and p.id=s.id and s.id=b.id and b.status = 'สั่งซื้อ' order by b.day_want"
Rs.Open sql,conn,1,3
rsp5.movenext
loop
Else
check = 0
Response.Write("ไม่มีรายการการ์ดแต่งงานที่ต้องสั่งซื้อ")
end if
Load balance : Server 01
