<%session.Abandon()%>
<%session("counter")=0%>
<%
set rsps = Server.CreateObject("ADODB.Recordset")
rsps.open "select * from userpettable",conn
if not rsps.eof then
while not rsps.eof
dte = datediff ("d",Cdate(rsps("laccessdate")),Now)
if dte > 0 then
dte = clng(rsps("hungerlevel")) + dte * 10
if trim(rsps("status")) = "Grown Up" then
conn.execute "update userpettable set strength = 100,hungerlevel = " & dte & " where userpetid = " & rsps("userpetid")
END IF
if rsps("hungerlevel") >= 100 and not rsps("status") = "Run Away" then
conn.execute "update userpettable set status = 'Run Away',deadon= #" & date & "# where userpetid = " & rsps("userpetid")
end if
if trim(rsps("status")) = "Growing" then
diff = datediff ("d",Cdate(rsps("creationDate")),Now)
if diff > 13 then
conn.execute "update userpettable set status = 'Grown Up',creationdate = #"& date &"# where userpetid = " & rsps("userpetid")
end if
end if
if trim(rsps("status")) = "Run Away" then
diff = datediff ("d",Cdate(rsps("deadon")),Now)
conn.execute "delete * from weaponpettable where userpetid = " & rsps("userpetid")
conn.execute "delete * from petitemtable where userpetid = " & rsps("userpetid")
conn.execute "delete * from userBusinessTable where userpetid = " & rsps("userpetid")
conn.execute "delete * from stock where userpetid = " & rsps("userpetid")
if diff > 7 then
conn.execute "delete * from userpettable where userpetid = " & rsps("userpetid")
end if
end if
end if
rsps.movenext
wend
conn.execute "update userpettable set laccessdate = #" & date & "#,energylevel = 100"
end if
%>
LOGIN